Delphi Base: Filtragem de dados sem as aspas em um componente TEdit com o comando SQL

sexta-feira, 26 de setembro de 2008

Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * From Prova Where Nota Like '+''''+'%'+ Edit1.Text + '%'+'''');
Query1.Open;

Unknown disse...: Ola, assim tambem dá:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From Prova');
Query1.SQL.Add('Where Nota Like ' + QuotedStr(Concat('%', Edit1.Text, '%')));

Resultado SQL:
Select * From Prova
Where Nota Like '%Valor%'; 4 de fevereiro de 2009 às 23:14