LIKE
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
Curtidas 0
Respostas
Nebrio
28/04/2003
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
GOSTEI 0
Nebrio
28/04/2003
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;
GOSTEI 0
Falinden
28/04/2003
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,
GOSTEI 0