PDA

Показать полную графическую версию : Экспорт данных их Excel в Sql Server без цикла. VBS


LilLoco
19-11-2012, 12:15
Добрый день, Уважаемые!

Интересует собственно вопрос переноса данных их Excel в SqlServer без цикла. Если быть точнее интересует вопрос о возможности такой реализации. Можно ли что нибудь придумать? Не хотелось бы пробегать по каждой строке файла, и вставлять.

Если такое возможно, подскажите материальчик который можно почитать, или же примеры реализации. Спасибо.

ferget
19-11-2012, 12:31
не совсем понятно, что нужно
Вот пример, лист excel экспортируется в Recordset

Sub m_4()
Dim oConnection As ADODB.Connection
Dim oRecordset As ADODB.Recordset
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=E:\_Рабочий стол\Таблица для переноса.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
oRecordset.Open "Select * FROM [Лист1$]", oConnection
'Проверка, что находится в Recordset
Dim oQueryTable As Excel.QueryTable
Set oQueryTable = ActiveSheet.QueryTables.Add(oRecordset, Range("A1"))
oQueryTable.Refresh
oConnection.Close
End Sub

LilLoco
19-11-2012, 12:55
ferget, А можно ли теперь этот Recordset вставить в таблицу на Sql Server, не пробегаясь циклом по всем строчкам?




© OSzone.net 2001-2012