Código Delphi [-] procedure TForm7.Button1Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Add('select * from merca '); adoquery1.Open; adoquery1.SQL.Add(' where descripcion like :cosa'); adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text; end;
procedure TForm7.Button1Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Add('select * from merca '); adoquery1.Open; adoquery1.SQL.Add(' where descripcion like :cosa'); adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text; end;