skais
Дата: Пятница, 11.08.2017, 22:56 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация:
29
±
Замечаний:
20% ±
Excel 2010
Может кто-нибудь дать ссылки или пример макроса, который осуществляет импорт данных (пару значений записать на сервер в разные таблицы) в MS SQL Server 2012?
Может кто-нибудь дать ссылки или пример макроса, который осуществляет импорт данных (пару значений записать на сервер в разные таблицы) в MS SQL Server 2012? skais
Ответить
Сообщение Может кто-нибудь дать ссылки или пример макроса, который осуществляет импорт данных (пару значений записать на сервер в разные таблицы) в 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]
Пару строк кода[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
Сообщение отредактировал 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
Ответить
Сообщение 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
Ответить
Сообщение Сами напишете, выглядеть будет так[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