Fórum Problemas com consultas #190761
26/10/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
26/10/2003
Fabio.hc
Troque estas linhas:
Add (´WHERE CTDESC LIKE ´:pCtDesc´´);
ParamByName (´CtDesc´).AsString:= ´EdNome.Text + ´¬´;
por estas:
Add (´WHERE CTDESC LIKE ´:pCtDesc´´);
ParamByName (´CtDesc´).AsString:= ´EdNome.Text + ´¬´;
por estas:
Add (´WHERE CTDESC LIKE upper(:pCtDesc)´); ParamByName(´pCtDesc´).Value:= UpperCase(EdNome.Text) + ´¬´;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)