Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Цикл по записям сохраненного запроса  [new]
-Eugene-
Member

Откуда: деревня Гадюкино
Сообщений: 31
Есть сохраненный запрос с определенным именем и 2 параметрами. Есть два комбобокса, фильтрующие результаты запроса. Результаты отображаются на экране. Мне нужно результаты вывести построчно во внешний файл. Можно ли пройтись по результатам сохраненного запроса или придется ручками создавать аналогичный запрос, задавать параметры и бежать по нему? Нигде не могу найти пример цикла по предварительно сохраненному запросу.
7 авг 06, 15:04    [2973012]     Ответить | Цитировать Сообщить модератору
 Re: Цикл по записям сохраненного запроса  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
Не надо ничего создавать руками.

dim q as dao.querydef, rs as dao.recordset

set q=currentdb.querydefs!...
q.parameters(...)=...
set rs=q.openrecordset
7 авг 06, 15:15    [2973068]     Ответить | Цитировать Сообщить модератору
 Re: Цикл по записям сохраненного запроса  [new]
-Eugene-
Member

Откуда: деревня Гадюкино
Сообщений: 31
Но у меня уже есть открытый датасет. Тот, данные которого, отображаются на форме. Зачем делать еще один? В этом и состоит вопрос.
7 авг 06, 15:19    [2973090]     Ответить | Цитировать Сообщить модератору
 Re: Цикл по записям сохраненного запроса  [new]
aleks2
Guest
Open FileName For Output As #1
with Me.RecordsetClone
  .MoveFirst
  while not .EOF 
     print #1, .Fields("имя_поля1"), .Fields("имя_поля2"), ... .Fields("имя_поляN")
     .MoveNext
  wend
end with
Close #1
7 авг 06, 15:35    [2973185]     Ответить | Цитировать Сообщить модератору
 Re: Цикл по записям сохраненного запроса  [new]
-Eugene-
Member

Откуда: деревня Гадюкино
Сообщений: 31
2 Aleks2: Спасибо, выручил! То, что надо!
7 авг 06, 15:47    [2973232]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить