Código Delphi [-] procedure TForm6.Button2Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Text:= 'select * from merca '; adoquery1.SQL.Add('WHERE (((merca.descripcion)="'+Edit1.Text+'"))'); adoquery1.Open; end;
procedure TForm6.Button2Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Text:= 'select * from merca '; adoquery1.SQL.Add('WHERE (((merca.descripcion)="'+Edit1.Text+'"))'); adoquery1.Open; end;