Вставить данные с Листа Excel в таблицу MS SQL (свободная рамка объекта)
|
|
Понедельник, 29 Июня 2015 г. 14:15
+ в цитатник
Добрый день, уважаемые!
Помогите пож-ста задачкой (хочу понять и научиться):
Создал навигационную форму в MS Access на одной из вкладок которой вставил "свободную рамку объекта" лист Excel, планирую чтобы пользователь двойным нажатием открывал лист Excel на форме и копировал туда данные из различных файлов (Excel, Word, блокнот ...), то есть на листе Excel на форме будет собираться вся информация ... (это создал)
Теперь встала задача всю информацию с листа Excel импортировать на сервер MS SQL [SQL_Server_Name] в таблицу [Table_Test]
Никак не могу понять как мне в инструкции FROM указать лист Excel на форме ... так вообще можно делать? корректно ли?
Ниже замученный мой код ...
Dim ExcelWb As Excel.Workbook
Dim ExcelWsh As Excel.Worksheet
Set xlWB = OLE_ExcSh.Object
Set xlWS = xlWB.Sheets("Лист1")
Dim rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Conn.Open ConnectionString:="Provider=SQLOLEDB;" & _
"Data Source=SQL_Server_Name;Initial Catalog=BDNAME;User ID=Admin1;Password=Admin1"
Conn.Execute "INSERT INTO [Table_Test] ([Name]) SELECT [Имя] FROM [Лист1!$B2:B4]"
Заранее спасибо за советы ...
http://www.sql.ru/forum/1163632/vstavit-dannye-s-lista-excel-v-tablicu-ms-sql-svobodnaya-ramka-obekta
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-