Нужна помощь по Delphi 7

[enikeu]

Не могу никак сделать поиск в программе, потерял исходники готового поиска, а у самого чето еще ума не хватает :-)

Суть в том, что надо в поле Edit1 вписать текст, нажать на кнопочку (в которой должна быть прописана вся процедура поиска) и вывести результат в таблице через DBGrid1

Поиск ведется из таблицы сделанной в MS Access и связанной с программной через компнонент ADOQuery

вот как это примерно выглядеть должно...

procedure TForm4.Button2Click(Sender: TObject);
var sql:string;
begin
sql:='';
ADOQuery1.Active:=false;
if Edit1.text<>'' then sql:='a.Название like "'+Edit1.text+'%"';
if (sql<>'') then sql:='where '+sql;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Games a '+sql);
ADOQuery1.Active:=true;
end;

помоги мне

[enikeu]

База данных Games.mdb в ней таблица Games, в таблице строка Название именно на нее мне надо сделать этот сраный поиск :-/

у меня почему то выдается "Ошибка синтаксиса в предложении FROM", помогите мне :-)

[COBEHOK]

запрос должен быть примерно таким:

select * from Games as a where (a.Название like "text");

[enikeu]

так он будет искать тока "text" прописанный в коде, а мне надо чтобы тот который я буду вводить в поле Edit

[nolan]

мде..

sql:='a.Название like '''+Edit1.text+'%''';

отметьте - вокруг Edit1.text - по 3(!) апострофа.

ps sorry, такая конструкция точно работает для сиквеля, для акцеса не может другое что.

[enikeu]

это 100% рабочий код из рабочей программы только немного переделанный

[enikeu]

кстати это не 3(!) апострофа, это кавычки и 1 апостраф

[nolan]

попробуй написать

from games as a

вдруг поможет.

[enikeu]

лююююююди ну помогите сделать поиск!!! :-(((

[enikeu]

/me гордится собой :-)
вот подумал, рас никто не хочет помочь нада делать самому... и сделал! 8-))

кому интересно код получился такой

procedure TForm2.BitBtn8Click(Sender: TObject);
var
sql:string;
sqlu:string;

begin
sql:='';
sqlu:='';
ADOQuery1.Active:=false;
if Edit1.text<>'' then begin
if (sql<>'') then begin
sqlu:='a.[Название] like "'+Edit1.text+'%"';
sql:=sql+' and '+sqlu;
end
else begin
sqlu:='a.[Название] like "'+Edit1.text+'%"';
sql:=sql+sqlu;
end
end;
if (sql<>'') then
begin
sql:='where '+sql;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Игры a '+sql);
ADOQuery1.Active:=true;
end;
end;