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

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

Суть в том, что надо в поле 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;

помоги мне :help:

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

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

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

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

мде..

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

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

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

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

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

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

from games as a

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

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

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

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