Código Delphi [-] procedure TF_STOCK.Edit3Change(Sender: TObject); begin Q_STOCK2.Close; Q_STOCK2.SQL.Clear; Q_STOCK2.SQL.Text:='SELECT * FROM STOCK WHERE UPPER(COD_BARRA || '' '' || CATEGORIA || '' '' || MERCADERIA) LIKE ''%'+EDIT3.TEXT+'%'''; Q_STOCK2.Open; end;
procedure TF_STOCK.Edit3Change(Sender: TObject); begin Q_STOCK2.Close; Q_STOCK2.SQL.Clear; Q_STOCK2.SQL.Text:='SELECT * FROM STOCK WHERE UPPER(COD_BARRA || '' '' || CATEGORIA || '' '' || MERCADERIA) LIKE ''%'+EDIT3.TEXT+'%'''; Q_STOCK2.Open; end;