[firebase-br]

[Edson]

Fábio, pelo q entendi vc esta querendo simplesmente buscar o registro na 
grade na medida q o usuário estiver digitando, basta fazer assim entao: 
IBOTable1.Locate('CAMPO',EDIT.TXT ,[loPartialKey])
funciona tbem com query!

Sucesso!






----- Original Message ----- 
From: "Fábio" <fabiomachado em microshell.com.br>
To: "'FireBase'" <lista em firebase.com.br>
Sent: Thursday, December 22, 2005 12:22 AM
Subject: [firebase-br]


Estou tentando fazer uma procura no meu banco de dados e não estou
conseguindo eu uso delphi7 firebird, ibtable da aba interbase, o que quero
na realidade é o seguinte. O código abaixao funciona com a porcaria do
paradox mas funciona,

procedure TForm_Principal.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
   if Text <> '' then
      begin
         OnChange := NIL;
         OldStart := SelStart;
         Text :=
UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
         SelStart := OldStart;
         OnChange := Edit1Change;
      end;
tb_servidores.FindNearest([edit1.text]);
end;

Ou seja a cada letra precionada a dbgrid que me mostra os registro vai
mudando, filtrando. E não consigo fazer isso agora com firebird e ibtable.
Alguem poderia ajudar nesse caso?


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa