Problemas com consultas

Delphi

26/10/2003

Ola, estou querendo fazer uma consulta que a medida que o usuario for digitando no edit a palavra a ser consultada a consulta ja vai sendo executada, estou usando o seguinte codigo

procedure TFrmListaRegistros.EdCatDescChange(Sender: TObject);
begin
with DmlPrincipal.QRYCATEGORIAS1 do
begin
Close;
with SQL do
begin
Clear;
Add (´SELECT *´);
Add (´FROM CATEGORIAS´);
Add (´WHERE CTDESC LIKE ´:pCtDesc´´);
end;
ParamByName (´CtDesc´).AsString:= ´EdNome.Text + ´¬´;
Open;
end;
DBGCatDesc.DataSource:= DmlPrincipal.DSQRYCATEGORIAS1;
end;

mas acho que estou usando o evento errado e tbm estou com problema no LIKE, pois quando coloco o ¬ ele inclui na palavra o ¬ e naum funciona como deveria, sera que estou passando de forma errada meu parametro, estou usando interbase.......desde ja agradeço


Kaniggia

Kaniggia

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

26/10/2003

Troque estas linhas:
Add (´WHERE CTDESC LIKE ´:pCtDesc´´);

ParamByName (´CtDesc´).AsString:= ´EdNome.Text + ´¬´;

por estas:
   Add (´WHERE CTDESC  LIKE upper(:pCtDesc)´);

   ParamByName(´pCtDesc´).Value:= UpperCase(EdNome.Text) + ´¬´;




GOSTEI 0
POSTAR