Como fazer uma consulta?

05/09/2006

1

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.


Responder

Posts

22/09/2006

Elter.teodoro

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 ;


Responder