Fórum LIKE #156251
28/04/2003
0
Fala moçada....
Estou com um pequeno problema, e se possível gostaria que vcs me ajudassem, seguinte:
Tenho 1 datasource, 1 query, 1 dbgride e 1 edit onde digito o que quero localizar dentro da grid, gostaria que acada tecla pressionada o resultado fosse aparecendo dentro da grid, ja tentei mas nao deu certo.
agradeço desde já
Estou com um pequeno problema, e se possível gostaria que vcs me ajudassem, seguinte:
Tenho 1 datasource, 1 query, 1 dbgride e 1 edit onde digito o que quero localizar dentro da grid, gostaria que acada tecla pressionada o resultado fosse aparecendo dentro da grid, ja tentei mas nao deu certo.
agradeço desde já
Psiu
Curtir tópico
+ 0
Responder
Posts
28/04/2003
Nebrio
faça este código no onChange do Edit;
with query do
begin
SQL.Clear;
SQL.Add(´Select * from Tabela Where Campo LIKE :texto´);
ParamByName(´texto´).AsString := DBEdit1.Text;
Prepare;
Open;
end;
Se existir muitos registros pode ficar lento
with query do
begin
SQL.Clear;
SQL.Add(´Select * from Tabela Where Campo LIKE :texto´);
ParamByName(´texto´).AsString := DBEdit1.Text;
Prepare;
Open;
end;
Se existir muitos registros pode ficar lento
Responder
Gostei + 0
28/04/2003
Nebrio
Você pode fazer assim tb:
no OnChange do Edit mesmo:
query.Locate(´CAMPO´,DBEdit1.Text,[loCaseInsensitive,loPartialKey]);
não esqueça de colocar na clausula Uses a unit DB;
no OnChange do Edit mesmo:
query.Locate(´CAMPO´,DBEdit1.Text,[loCaseInsensitive,loPartialKey]);
não esqueça de colocar na clausula Uses a unit DB;
Responder
Gostei + 0
28/04/2003
Falinden
Coloque o código abaixo no evento OnChange do objeto Edit:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Query1.Close;
Query1.ParamByName(´NomeCampo´).asstring := edit1.text+´¬´;
Query1.Open;
end;
Boa sorte,
procedure TForm1.Edit1Change(Sender: TObject);
begin
Query1.Close;
Query1.ParamByName(´NomeCampo´).asstring := edit1.text+´¬´;
Query1.Open;
end;
Boa sorte,
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)