[ZaaaK]

Здравствуйте!Прошу помочь нубу

Хочу организовать поиск по базе данных...есть 2 таблицы ADOTable1 и ADOTable2...в первой храняться вопросы,во второй варианты...База в MS Access...проблема заключается в следующем...я использую свой внутренний счетчик на TEdit, т.к. Ассесс дает тока индексацию уникальную...формирую запрос через Query:
------------------------------------
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Вопрос WHERE Вопрос like
"%'+find_vop.Text+'%"');
adoQuery1.Active := true;
DataSource1.DataSet:=ADOQuery1;
ADOTable1.Active:=true;
------------------------------------
find_vop.Text - едит откуда беру текст для поиска...
Так вот если я так огранизую поиск, то у меня в Квери задаются тока значения из
из таблицы ADOTable1, а значения вариантов не задаются...как сделать чтобы выводилось нормально,т.е. у меня получается голова есть а как вывести тело не знаю...потому что счетчик оргнанизован через Next(уж извините как смог)...
даю ссылку на сам проект (база внутри) --- http://depositfiles.com/files/3k9vfnsjx

[Black Raider]

Насколько понял связь между таблицами :
вопросов ответов по полю код? если да то проблем никаких
что мешает дописать:

Код:

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Вопрос WHERE Вопрос like
"%'+find_vop.Text+'%"');
adoQuery1.Active := true;
DataSource1.DataSet:=ADOQuery1;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM Варианты WHERE Код = :kd');
ADOQuery2.parametrs.parambyname('kd').value:= Adoquery1.fieldbyname('Код').AsInteger;
adoQuery2.Active := true;
DataSource2.DataSet:=ADOQuery2;

[ZaaaK]

спасибо огромное!заработало

[Black Raider]

да не за что.

[ZaaaK]

А тут же вопрос: как можно по-порядку определить номер записи по поиску вопроса?...который в Quary1 пришел запрос...вроде как цикл наверно организовать нужно,но я не знаю как правильно прописать лог условие для выхода...с базами мало работал....

[Black Raider]

Номер записи или же КОД?

[ZaaaK]

нет не код, номер записи...