Array
(
)

Como fazer uma consulta?

Jmarcosmoraes
   - 05 set 2006

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.


Elter.teodoro
   - 22 set 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 ;