Problemas com consultas
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
Curtidas 0
Respostas
Fabio.hc
26/10/2003
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) + ´¬´;
GOSTEI 0