|
Вопрос # 2 656/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты! Как организовать непоследовательный доступ . Пишу программу тестирования.Использую Access и ADO-технологию. Сформировал запрос на выборку данных при помощи ADOQuery. У меня есть внешняя переменная IDQuest (содержит номер вопроса)
необходимо , чтобы в компоненте TWebBrowser на форме отображалась HTM страница путь на которую хранится в БД. Вот и трудность немогу переместить курсор чтобы узнать номер вопроса и сравнить его с внешней переменной.
Может используя свойство RecNo но с ним чет я тоже не соображу как :(
MoveBy тоже не работает .. вот процедура ниже ..не могли бы проверить в чем я ошибся ?
Приложение: Переключить в обычный режим-
-
-
- procedure TTestForm.DBOpenHTMLFile(var Q_N:integer; WB: TWebBrowser);
- var
- Flags: OLEVariant;
- FileName:string;
- S:integer;
- begin
- Flags := 0;
- S:=1;
- TestData.ADOQuery2.SQL.Text := 'Select QFileName,QTheme from Quest WHERE Quest.QTheme = '+
IntToStr(IDTest) +' GROUP BY QFileName,QTheme';
- TestData.ADOQuery2.Open;
- while not Testdata.ADOQuery2.Eof do
- begin
- TestData.ADOQuery2.First;
- if Testdata.ADOQuery2.RecNo = IDQuest
- then begin
- Showmessage('AAAAAAAA');
- Testdata.ADOQuery2.Fields[0].AsString;
-
- FileName:=Testdata.ADOQuery2.Fields[0].Value;
-
- WebBrowser1.Navigate(WideString(FileName), Flags, Flags, Flags, Flags);
- end
- else Testdata.ADOQuery2.Next; inc(S);
- end;
-
-
- end;
 |
Вопрос задал: Motor (статус: Посетитель)
Вопрос отправлен: 19 апреля 2009, 04:39
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Косолапов Дмитрий Юрьевич
Здравствуйте, Motor!
Думаю, во-первых, надо в запрос включать номера вопросов. А затем можно пользоваться, например, методом Locate у ADOTable для перемещения к нужному вопросу.
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
