22.06.2017, 10:54
|
Новичок
|
|
Регистрация: 12.06.2017
Сообщения: 90
Версия Delphi: RAD Studio XE7
Репутация: 10
|
|
Помогите с поиском по БД
вот такой код у меня
Код:
procedure TForm1.Edit1Change(Sender: TObject);
var help1, help2:string;
begin
help1:='%'+Form1.Edit1.Text+'%';
help2:=QuotedStr(help1);
with Form1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * from zakazKL where salon like'+help2+' or data like'+help2+' or fioklient like'+help2+' or data zakaza like'+help2+' order by salon');
Open;
end;
end;
end.
ругается на Ошибку синтаксиса прилогаю скрины ругани!
Помогите разобраться где я ошибку допустил
|