Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: час
АААААААААААААААА Lukas - добрый вечер!!!!!!

Вот нашёл:

Кривцов Анатолий г.Киев писал в своё время:

Кто пробовал выполнить экспорт в текстовый файл, знает, что экспортировать можно только данные из таблицы или запроса, не имеющего параметров или ссылок на элементы форм. Проблема решается созданием файла непосредственно в процедуре. Идея принадлежит Фаине Крамаровской. Предлагаемая процедура создает файл C:\WarePrice.txt в формате "Переменной длинны с разделителями".Первая строка - имена полей, разделители полей -"#", кодировка символов - DOS (функция ConvANSItoOEM). Такой метод работает быстрее, чем стандартный, и позволяет за один проход создать два и более файлов (например для экспорта в таблицы на стороне "один" и "многие").



Function EksportWarePrice()
Dim dbs As Database, qdf as QueryDef, _
rst As Recordset, NameFld As String

Set dbs = CurrentDb
Set qdf = dbs.CreateQueryDef("")

qdf.SQL= "Parameters .... Select ..."
qdf.Parameters("Имя параметра") = Значение

Set rst = qdf.OpenRecordset

If rst.BOF Then
     Exit Function
End If

Open "C:\WarePrice.txt" For Output As #1

NameFld = "WareID#WareName#Price"
Print #1, NameFld

With rst
    Do Until .EOF
        Print #1, ![WareID] & "#" _
        & ConvANSItoOEM(![WareName]) & # _
        & Format(![Price],"#.00")
        .MoveNext
    Loop
End With

Close #1

End Function 


 


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.