Ускорение вставки данных ответа SQL запроса

Старая форма входа

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

Ускорение вставки данных ответа SQL запроса (Макросы/Sub)

TD_MElec

Дата: Вторник, 05.10.2021, 13:37 | Сообщение № 1

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

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

Сообщений: 73

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

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

Excel 2019

Всем привет.

имеется подключение excel к SQL, которое прекрасно работает, но есть один недостаток, при получении большого ответа (200к+ строк), время на вставку этого ответа, значительно большое (от 5 минут)
Код вставки, который я использую - циклы:
[vba]

Код

Set oConn = CreateObject("ADODB.Connection")
Set oRS = CreateObject("ADODB.Recordset")
oConn.Open ******** 'какое- то подключение

oRS.Open "SELECT * FROM Table", oConn 'какой-то запрос

' -- вставка шапки таблицы
nCol = 1
For Each fld In oRS.Fields
Cells(1, nCol).Value = fld.Name
nCol = nCol + 1
Next

'-- вставка тела таблицы
oRS.MoveFirst
nRow = 2
Do Until oRS.EOF
nCol = 1
For Each fld In oRS.Fields
Cells(nRow, nCol).Value = fld.Value
nCol = nCol + 1
Next
oRS.MoveNext
nRow = nRow + 1
Loop
oRS.Close

[/vba]
Возможно ли вставлять не перебором, а как нибудь типа:
Range('известный диапазон').value = oRS.Полный_ответ.value
Но для этого мне надо сначала получить данные о размерах полученного ответа...

Сообщение отредактировал TD_MElec - Вторник, 05.10.2021, 13:48

Ответить

R_Dmitry

Дата: Вторник, 05.10.2021, 14:10 | Сообщение № 2

Группа: Друзья

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

Сообщений: 74

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

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

2010

заменить этот кусок кода
[vba]

Код

oRS.MoveFirst
nRow = 2
Do Until oRS.EOF
nCol = 1
For Each fld In oRS.Fields
Cells(nRow, nCol).Value = fld.Value
nCol = nCol + 1
Next
oRS.MoveNext
nRow = nRow + 1
Loop

[/vba]
на этот
[vba]

Код

cells(2,1).copyfromrecordset oRs

[/vba]