Filtro: ADOQuery, DBGrid y Edit.

[Luis.Lapuente]

Buena noche ante todo un saludo a todo los integrante del Foro. Tengo un pequeño proyecto el cual estoy trabajando con un ADOConnection, ADOQuery, DataSource y un DBGrid. En el ADOQuery estoy usando este produce:

Código SQL [-]
SELECT dbo.SAPROV.CodProv As RUC, 
       dbo.SAPROV.Descrip As Nombre, 
       dbo.SAACXP.NumeroD As Documento, 
       dbo.SAACXP.[Document] As Descripcion, 
       dbo.SAACXP.MontoNeto As Sub_Total, 
       dbo.SAACXP.MtoTax As Impuesto, 
       dbo.SAACXP.Monto As Total, 
       dbo.saacxp.FechaE as Emitido, 
       fechav as Vence, DATEDIFF ( DAY , dbo.saacxp.FechaE, fechav ) as Restan
FROM   dbo.SAPROV INNER JOIN dbo.SAACXP ON dbo.SAPROV.CodProv = dbo.SAACXP.CodProv

y me funciona muy bien la cosa es que quiero hacer un filtro desde un edit y no logro hacerlo intente con este código:

Código Delphi [-]
 
banco.ADOQueryProveedor.filter:= 'Descrip Like ' + QuotedStr ('%' + edit1.Text + '%'  );
Banco.ADOQueryProveedor.Filtered:= true;

Pero no me funciona, si me pueden ayudar se los agradezco.
Gracias ante mano.

[ecfisa]

Hola Luis.Lapuente.

Por favor usa las etiquetas.



Saludos y gracias por tu colaboración

[ecfisa]

Hola de nuevo.

Empezado por Luis.Lapuente

...quiero hacer un filtro desde un edit y no logro hacerlo intente con este código
banco.ADOQueryProveedor.filter:= 'Descrip Like ' + QuotedStr ('%' + edit1.Text + '%' );
Banco.ADOQueryProveedor.Filtered:= true;
Pero no me funciona, si me pueden ayudar se los agradezco.

Intenta de este modo:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  with Banco.ADOQueryProveedor do
  begin
    Filtered:= False;
    Filter  := 'DESCRIP LIKE ' + QuotedStr ('%' + Edit1.Text + '%' );
    Filtered:= True;
  end;
end;

Saludos