Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Экспорт в текстовый файл из Access

Автор: Chyslyvchyk 21.2.2005, 18:51

Есть запрос Query, при выполнении которого в режиме таблицы можно увидеть 92 000 записей. Нужно выгрузить этот запрос в текстовые файлы Query1.txt, Query2.txt... по 20 000 записей.
smile

Автор: Lavda 22.2.2005, 09:47

Хм думаю способов много....
можно через DAO пробегаться по записям запроса и кидать из в файл, можно создать запрос и выкинуть его в текстовик потом уже доработать текстовик

Автор: Chyslyvchyk 22.2.2005, 10:47

У кого-то есть кусочек кода, как это сделать? smile

И еще: нужно, чтобы разделителем полей был знак табуляции.

Автор: Akina 22.2.2005, 12:00

Код


'draft code
.MoveFirst
RecCount=0
FileNum=1
open "Query" & trim(str(FileNum)) & ".txt" for output as #1
while not .eof
   print #1,!Field1;vbTab;
   print #1,!Field2;vbTab;
   print #1,!Field3
   RecCout=(RecCount+1) mod 20000
   if RecCout=0 then
      close #1
      FileNum=FileNum+1
      open "Query" & trim(str(FileNum)) & ".txt" for output as #1
   end if
   .movenext
wend
close #1

есссно вместо ручного перебора полей лучше работать с коллекцией Fields (TableDef)

Автор: Chyslyvchyk 22.2.2005, 16:21

Akina , спасибо!!! smile