Fórum Fazer uma busca na tabela antes de gravar um registro #366878
08/12/2008
0
Alguém poderia me dar uma mão nessa duvida:
Tenho uma tabela com variaos campos sendo que um deles é ´nome´,
quando eu inserir um novo registro queria que fosse feito uma busca na tabela pra ver se existe algum registro com mesmo nome gravado na tabela se existir retorne uma menssagem que já existe se não existir grava na tabela o registro.
Desde já eu agradeço a ajuda!!!!
estou usando Delphi 7 e firebird 2.0
Lsksskyblu
Curtir tópico
+ 0Posts
09/12/2008
Facc
Crie uma função que retorne um booleano e dentro dela crie um select, e qndo vc clicar pra gravar, chama essa função dentro de um if
Gostei + 0
11/12/2008
Lsksskyblu
Desde já eu lhes agradeço!!!
Gostei + 0
11/12/2008
Facc
Crie uma função que retorne um booleano e dentro dela crie um select, e qndo vc clicar pra gravar, chama essa função dentro de um if
Mais facil que isso, só empurrando bebado na ladeira
Gostei + 0
11/12/2008
Lsksskyblu
Desde já lhe agradeço!!
Gostei + 0
13/12/2008
Lsksskyblu
Desde já eu agradeço a todos!!!1
Gostei + 0
15/12/2008
Lsksskyblu
Desde já lhes agradeço
Gostei + 0
15/12/2008
Joaoshi
-Supondo que você esteja utilizando o DbExpress e ClientDataSet e
-Supondo que você esteja utilizando um botão GRAVAR e
-Supondo que o nome será recebido no edit1.text
Crie a função (obviamente você vai criar também o sqlDataSet):
Function ContaNome(sNome:String):Integer; begin sqlDataSet.Close; sqlDataSet.CommandText := ´SELECT COUNT(*) FROM TABELA WHERE NOME = ´ + QuotedStr(sNome); sqlDataSet.Open; Result := sqlDataSet.Fields[0].asInteger; end;
No evento onClick do botão GRAVAR:
If ContaNome(edit1.Text) > 0 then
begin
ShowMessage(´Nome já cadastrado´);
edit1.SetFocus;
Exit;
end;-Rotina para gravar.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)