Импорт из Excel в бд SQL Server через ado в пустую таблицу - VB
Формулировка задачи:
Можно ли это сделать через ADO и проч.?
Есть БД на сервере, есть файл xls, из которого в таблицу нужно данные вытянуть .
Процедура с использованием ADO переносит данные, если в таблице БД есть хотя бы 1 запись.
А вот если таблица пустая- ничего не выходит набор пустой.
Пока выход вышел такой
Записали данные в файл sql,
а затем выполнили запрос к серверу.
Есть БД на сервере, есть файл xls, из которого в таблицу нужно данные вытянуть .
Процедура с использованием ADO переносит данные, если в таблице БД есть хотя бы 1 запись.
А вот если таблица пустая- ничего не выходит набор пустой.
Пока выход вышел такой
Записали данные в файл sql,
а затем выполнили запрос к серверу.
Решение задачи: «Импорт из Excel в бд SQL Server через ado в пустую таблицу»
textual
Листинг программы
<font color="blue">For</font> s = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>453</b></font>
<font color="blue">With</font> adoCommand
.ActiveConnection = con
.CommandText = <font color="teal">"Insert into MO(MO_Name,MO_Parent,mo_Level,MO_ADM_Address,OKATO) Values ('"</font> _
& xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>3</b></font>).Value & <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>5</b></font>).Value _
& <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>6</b></font>).Value & <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>6</b></font>).Value _
& <font color="teal">"','"</font> & xlWb.ActiveSheet.Cells(s, <font color="darkblue"><b>7</b></font>).Value & <font color="teal">"')"</font>
.Execute
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">Next</font> s