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

Откуда:
Сообщений: 33
У меня такой вопрос есть необходимость выгрузить таблицу в ТХТ файл опрежделенного формата
Private Sub Кнопка14_Click()
Dim db As DAO.Database, rs As DAO.Recordset
Dim fso As Object, sfolder As String, sfile As String, f

Set fso = CreateObject("Scripting.FileSystemObject")
sfolder = "d:\2\"
sfile = "test.txt"
Set f = fso.CreateTextFile(sfolder + sfile, True)
Set db = CurrentDb
Set rs = db.OpenRecordset("2", dbOpenDynaset)
vf.WriteLine TranslateToDos("П000010001004:" + rs!Uchet_info_name)
'...... и так далее
rs.MoveNext
Loop
rs.Close
End Sub

при запуске данной процедуры выдает ошибку и ссылается на Uchet_info_name хотя данное поле в таблице есть
Помогите пожалуйста очень надо решить эту проблему
5 окт 05, 11:46    [1939529]     Ответить | Цитировать Сообщить модератору
 Re: Выгрузка таблицы в текстовый файл  [new]
Dragin
Member

Откуда:
Сообщений: 38
по синтаксису так rs("имя поля")
5 окт 05, 11:55    [1939610]     Ответить | Цитировать Сообщить модератору
 Re: Выгрузка таблицы в текстовый файл  [new]
yaguar
Member

Откуда:
Сообщений: 33
теперь на TranslateToDos ругается
может не срабатывает db.OpenRecordset
5 окт 05, 12:06    [1939720]     Ответить | Цитировать Сообщить модератору
 Re: Выгрузка таблицы в текстовый файл  [new]
Пользователь2
Guest
Loop без Do.
TranslateToDos - функция есть?

    Dim db As DAO.Database
    Dim rs As DAO.recordset
    Dim fso As Object
    Dim sfolder As String
    Dim sfile As String
    Dim f As Object
    
    sfolder = "d:\2\"
    sfile = "test.txt"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.CreateTextFile(sfolder + sfile, True)
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("2", dbOpenTable)
    
    Do Until rs.EOF
        f.WriteLine TranslateToDos("П000010001004:" + rs.Fields("Uchet_info_name"))
        rs.MoveNext
    Loop
    
    rs.Close
    f.Close
    
    Set rs = Nothing
5 окт 05, 12:58    [1940093]     Ответить | Цитировать Сообщить модератору
 Re: Выгрузка таблицы в текстовый файл  [new]
yaguar
Member

Откуда:
Сообщений: 33
Я так думаю что это команда а не процедура
я взял данный пример в инете только сделать что бы он заработал не получается :-(
5 окт 05, 13:04    [1940124]     Ответить | Цитировать Сообщить модератору
 Re: Выгрузка таблицы в текстовый файл  [new]
yaguar
Member

Откуда:
Сообщений: 33
Спасибо всем за участие решил проблему удалением строки TranslateToDos
5 окт 05, 14:34    [1940633]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить