Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/импорт в MS SQL 2012 макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » импорт в MS SQL 2012 макросом (Макросы/Sub)
импорт в MS SQL 2012 макросом
skais Дата: Пятница, 11.08.2017, 22:56 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 29 ±
Замечаний: 20% ±

Excel 2010
Может кто-нибудь дать ссылки или пример макроса, который осуществляет импорт данных (пару значений записать на сервер в разные таблицы) в MS SQL Server 2012?
 
Ответить
СообщениеМожет кто-нибудь дать ссылки или пример макроса, который осуществляет импорт данных (пару значений записать на сервер в разные таблицы) в MS SQL Server 2012?

Автор - skais
Дата добавления - 11.08.2017 в 22:56
doober Дата: Суббота, 12.08.2017, 01:43 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Пару строк кода[vba]
Код
 
  sCon1 = "Driver={SQL Server};SERVER=WIN-EH86B2R58\SQLEXPRESS;" & _
       "DataBase=MMM;Uid=doober;Pwd=123456"
  sCon2 = "Provider=SQLOLEDB.1;Password=123456;Persist SecurityInfo=True;" & _
       "User ID=doober;Initial Catalog=MMM;Data Source=192.168.0.227"
   sCon = "Provider=SQLOLEDB.1;Data Source=SERG-PC;" & _
           "Initial Catalog=MMM;Integrated Security=SSPI;"
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open sCon
    sSql = "INSERT INTO [dbo].[users] ([login],[password] ,[role]) VALUES('login','password','boss')"
    Cn.Execute (sSql)
    Cn.Close
    Set Cn = Nothing
[/vba]




Сообщение отредактировал doober - Суббота, 12.08.2017, 01:45
 
Ответить
СообщениеПару строк кода[vba]
Код
 
  sCon1 = "Driver={SQL Server};SERVER=WIN-EH86B2R58\SQLEXPRESS;" & _
       "DataBase=MMM;Uid=doober;Pwd=123456"
  sCon2 = "Provider=SQLOLEDB.1;Password=123456;Persist SecurityInfo=True;" & _
       "User ID=doober;Initial Catalog=MMM;Data Source=192.168.0.227"
   sCon = "Provider=SQLOLEDB.1;Data Source=SERG-PC;" & _
           "Initial Catalog=MMM;Integrated Security=SSPI;"
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open sCon
    sSql = "INSERT INTO [dbo].[users] ([login],[password] ,[role]) VALUES('login','password','boss')"
    Cn.Execute (sSql)
    Cn.Close
    Set Cn = Nothing
[/vba]

Автор - doober
Дата добавления - 12.08.2017 в 01:43
skais Дата: Суббота, 12.08.2017, 13:16 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 29 ±
Замечаний: 20% ±

Excel 2010
doober Спасибо!
А есть часть кода, где insert идет сразу целого диапазона данных (к примеру range(A2:C100))?
 
Ответить
Сообщениеdoober Спасибо!
А есть часть кода, где insert идет сразу целого диапазона данных (к примеру range(A2:C100))?

Автор - skais
Дата добавления - 12.08.2017 в 13:16
doober Дата: Суббота, 12.08.2017, 16:29 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Сами напишете, выглядеть будет так[vba]
Код
sSql = "INSERT INTO [dbo].[users] ([login],[password] ,[role]) VALUES('login','password','boss')
,('login2','password2','boss')
,('login2','password3','boss')"
[/vba]


 
Ответить
СообщениеСами напишете, выглядеть будет так[vba]
Код
sSql = "INSERT INTO [dbo].[users] ([login],[password] ,[role]) VALUES('login','password','boss')
,('login2','password2','boss')
,('login2','password3','boss')"
[/vba]

Автор - doober
Дата добавления - 12.08.2017 в 16:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » импорт в MS SQL 2012 макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!