Сохранение RecordSet в csv или xml

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сохранение RecordSet в csv или xml (Макросы/Sub)

TD_MElec Дата: Понедельник, 21.03.2022, 10:48 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 1 ±

Замечаний: 0% ±

Excel 2019

Доброго дня.

Возникла потребность сохранять выгрузки из sql. Выгрузка содержит более млн строк, поэтому excel не катит. На примете csv (предпочтительней) или xml файлы.
Для сохранения в csv пытался использовать код:

CSVData = RecordsetToCSV(oRS, True) Open "C:\MyFileName.csv" For Binary Access Write As #1 Put #1, , CSVData Close #1 Public Function RecordsetToCSV(oRS, _ Optional ShowColumnNames As Boolean = True, _ Optional NULLStr As String = "") As String Dim K As Long, RetStr As String If ShowColumnNames Then For K = 0 To oRS.Fields.Count - 1 RetStr = RetStr & ",""" & oRS.Fields(K).Name & """" Next K RetStr = Mid(RetStr, 2) & vbNewLine End If RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr) RetStr = Left(RetStr, Len(RetStr) - 3) RecordsetToCSV = RetStr End Function

Но возникает ошибка "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом" на строке:

RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

Да и кажется мне, что этот вариант будет оч долгим, по сравнению со следующим:
Команда:

myRecordset.Save "C:\yourFile.xml", adPersistXML

Отлично, быстро сохраняет в файл, НО потом у меня ни как не получается прочитать этот файл .notepad++ открывает одни кракозябры, перепробовал много разных кодировок, ничего не получается. Пытался подключиться PowerQwery, так же безрезультатно, выдает ошибку.

RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

Да и кажется мне, что этот вариант будет оч долгим, по сравнению со следующим:
Команда:

myRecordset.Save "C:\yourFile.xml", adPersistXML

Сообщение отредактировал TD_MElec - Понедельник, 21.03.2022, 10:54

Ответить

СообщениеДоброго дня.

Возникла потребность сохранять выгрузки из sql. Выгрузка содержит более млн строк, поэтому excel не катит. На примете csv (предпочтительней) или xml файлы.
Для сохранения в csv пытался использовать код: [vba]

CSVData = RecordsetТoCSV(oRS; Тrue) Open "C:\MyFileЧame.csv" For Binary Access Write As Put1 CSVData Close1; ; Public Function oRS1_ Optional RecordsetТoCSV(ShowColumnNames; As Boolean _ Optional NULLStr = Тrue; As String As String Dim = "") K As Long RetStr As String; If ShowColumnNames Then For K To oRS.Fields.Count RetStr = 0 RetStr K - 1 Name = Next & ",""" & oRS.Fields(K).RetStr & """" RetStr vbNewLine End = Mid(If; 2) & RetStr RetStr adClipString vbNewLine = NULLStr & """" & oRS.GetString(RetStr; -1; ""","""; """" & RetStr & """"; RetStr) RecordsetToCSV = Left(RetStrEnd; Len(Function) - 3) undefined = undefined undefined

[/vba] Но возникает ошибка "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом" на строке: [vba]

RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

[/vba]Да и кажется мне, что этот вариант будет оч долгим, по сравнению со следующим:
Команда: [vba]

myRecordset.Save "C:\yourFile.xml", adPersistXML

[/vba] Отлично, быстро сохраняет в файл, НО потом у меня ни как не получается прочитать этот файл .notepad++ открывает одни кракозябры, перепробовал много разных кодировок, ничего не получается. Пытался подключиться PowerQwery, так же безрезультатно, выдает ошибку.

Автор - TD_MElec
Дата добавления - 21.03.2022 в 10:48

TD_MElec

Дата: Понедельник, 21.03.2022, 20:24 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 1 ±

Замечаний: 0% ±

Excel 2019

Удалил все параметры из .GetString и дело пошло. В CSV сохраняет. НО большой массив данных, как раз на этапе .GetString зависает на очень продолжительное время (30+ минут).

Решил вопрос переводом RecordSet в array и от туда уже запись в текстовый файл. Опять таки есть "НО", процедура записи 3,7 млн строк занимает чуть более 4 минут, а процедура сохранения Recordset.Save "C:\yourFile.xml", adPersistXML чуть больше 10 сек. Явное преимущество. Но ни как не удается сделать xml читабельным, перепробовал все параметры .save

Может кто знает как правильно RecordSet сохранять в XML?

Ответить

Сохранение RecordSet в csv или xml (Макросы/Sub)

Страница 1 из 1
1