Como fazer uma consulta?
Boa tarde a todos.
Estou montando um sistema usando o IBDataSet.
Ao digitar dados em um DBEdit gostaria de imediatamente pesquisar se o registro já está cadastrado.
Estou fazendo assim e não está dando certo:
If IBDataSet1.Locate(´Nro_Conta´, DBEdit1.Text, []) then
begin
ShowMessage(´Número de conta já cadastrado.´);
DBEdit1.SetFocus;
end;
O que estou fazendo de errado?
Abraços.
Estou montando um sistema usando o IBDataSet.
Ao digitar dados em um DBEdit gostaria de imediatamente pesquisar se o registro já está cadastrado.
Estou fazendo assim e não está dando certo:
If IBDataSet1.Locate(´Nro_Conta´, DBEdit1.Text, []) then
begin
ShowMessage(´Número de conta já cadastrado.´);
DBEdit1.SetFocus;
end;
O que estou fazendo de errado?
Abraços.
Jmarcosmoraes
Curtidas 0
Respostas
Elter.teodoro
05/09/2006
Voce esta querendo mover um ponteiro de registro que esta sendo Editado.
Evite os Locates,Filters e SetRanges e melhor trabalhar com comandos SQL.
Sera voce usar o componente de com IBQuery
Veja o Exemplo :
IBQuery.close ;
IBQuery.sql.text := ´ Select Nro_Conta from Banco ´+
´ Where Nro_Conta = ´+DBEdit1.Text ;
DBEdit1.open ;
if IBQuery.Eof then
begin
ShowMessage(´Número de conta já cadastrado.´);
DBEdit1.SetFocus;
end;
IBQuery.close ;
Evite os Locates,Filters e SetRanges e melhor trabalhar com comandos SQL.
Sera voce usar o componente de com IBQuery
Veja o Exemplo :
IBQuery.close ;
IBQuery.sql.text := ´ Select Nro_Conta from Banco ´+
´ Where Nro_Conta = ´+DBEdit1.Text ;
DBEdit1.open ;
if IBQuery.Eof then
begin
ShowMessage(´Número de conta já cadastrado.´);
DBEdit1.SetFocus;
end;
IBQuery.close ;
GOSTEI 0