как тогда правильней сделать запрос?
мой код
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
AdoQuery1.Sql.Text := 'select * from organized where Title like :Param1 and classroom like :Param2';
AdoQuery1.Parameters.ParamValues['Param1']:= '%' + Form1.Edit1.Text + '%';
AdoQuery1.Parameters.ParamValues['Param2'] := '%' + Form1.Edit2.Text + '%';
AdoQuery1.Open;
end;
procedure TForm1.Edit2Change(Sender: TObject);
var help1, help2: string;
begin
//Edit1.Text:='';
help1:=Form1.Edit2.Text;
help2:=Quotedstr(help1);
With Form1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from organized where classroom like'+help2);
open;
end;
end;