Cita:
Query1.close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text:='SELECT * FROM medico WHERE '+Combobox1.Text+' LIKE ''%'+Edit5.Text+'%''';
SQLQuery1.ExecSQL(true);
SQLQuery1.Open;
|
En éste código te sobra el SQLQuery1.ExecSQL(true), solo deja el SQLQuery1.Open, como así:
Código Delphi
[-]
with SQLQuery1 do
begin
if Active then Close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add(' FROM Medico');
SQL.Add(' WHERE ' + ComboBox1.Text + ' LIKE ' + QuotedStr('%' + Edit5.Text + '%'));
Open;
end;
Un saludo.