-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Вставить данные с Листа 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


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку