Запуск процедуры SQL Server через VBA

@Marich · Регистрация: 14.05.2012

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане, кто подскажет можно ли при помощи VBA запустить процедуру SQL Server?

@analyst · 05.09.2012, 16:09

Да, можно http://www.databasejournal.com... Access.htm

@Marich · 11.09.2012, 14:36 **[ТС]**

analyst,
Спс за ссылку ну это не совсем то что мне нужно.
Процедура уже записана на SQL Server. Нужно что бы через VBA запускался SQL Server, отробатывал хранимую процедуру, а потом дальше отрабатывался макрос, который будет запускать Access (в котором прилинкованы таблицы с SQL).

@analyst · 11.09.2012, 15:01

Понял. В общем это точно подойдет:
http://custom-designed-databas... procedure/
Все эти финты с линкованными в MS Access хранимыми процедурами - какой-то шаманизм. Хотя видимо для юзеров создано... Вопрос зачем?

@Marich · 11.09.2012, 17:47 **[ТС]**

analyst,
Не знаю может показаться, что это тупой вопрос, но я все таки спрошу для лучшего понимания. В примере который ты мне дал есть строка

T-SQL

1	conn.ConnectionString = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=MYTEST-PC\SQLEXPRESS”

Мне не совсем понятны некоторые значения:
Provider - что занчит это значение? и мочему в примере указано именно SQLOLEDB.1?
Integrated Security - что занчит это значение? и мочему в примере указано именно SSPI?
Persist Security Info - что занчит это значение?
Initial Catalog - это название базы данных (если я правильно понял)?
Data Source - это название сервера (если я правильно понял)?

@analyst · 11.09.2012, 17:52

Здесь про это написано и в общем случае будет полезно:
http://connectionstrings.com/

@Marich · 12.09.2012, 13:55 **[ТС]**

С написанием макроса разобрался. Но он у меня не работает. Вот сам макрос:

Visual Basic

Sub SQL()
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
 
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SalesAnalyst;Data Source=UAIEVAD5"
conn.Open
 
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "OFF_proc"
cmd.CommandType = adCmdStoredProc
cmd.Execute
conn.Close
Set conn = Nothing
Set cmd = Nothing
 
End Sub

На шаге cmd.Execute он выдает ошибку "Timeout Expired". Что ему не нравиться и сто нужноисправить?

@analyst · 12.09.2012, 14:48

А если вставить:

Visual Basic

1	conn.ConnectionTimeout = 120

?

@Marich · 13.09.2012, 11:37 **[ТС]**

Не помогает, я уже данынй параметр менял в реестре. Но все тоже. Может нужно еще какойто параметр поменять?

Добавлено через 19 часов 1 минуту
analyst,
Уже разобрался с данной проблемой. Мы смотрели на параметр Timeout не того свойства. Нужно его увеличить для свойтва Command. То есть нужно было между 12 и 13 cтрочкой вписать строчку

Visual Basic

1	cmd.CommandTimeout=0

Если стоит некоторое число (например 30) то на выполнение процедуры которую мы запускаем отводится это время (в нашем случае 30 сек). Если же данный параметр 0, то VBA будет ждать полного завершения процедуры.

@Marich · 17.09.2012, 10:57 **[ТС]**

Задача немножко усложнилась. Теперь мне нужно еще передать параметр (это дата). Для это записываю вот такой код VBA.

Visual Basic

1 2	cmd.Parameters.Append cmd.CreateParameter("@StartD", adDBDate, adParamInput, 21) cmd.Parameters("@StartD").Value = strDS

Переменная strDS - это собранная строка.
В SQL Serever данная переменная "@StartD" имеет тип "Datetime. Но при пошаговой прогонке у меня на строке "cmd.Parameters("@StartD").Value = strDS" выдает ошибку:
Application uses a value of the wrong type for the current operation.
где я не правильно указываю тип переменной?

@analyst · 17.09.2012, 12:17

Я ни разу не передавал дату в виде параметра, так что не сталкивался с вашими проблемами.
Но можно точно утверждать, что ошибка у вас скорее всего со строкой, которую вы передаете - strDS. Предлагаю вам поэкспериментировать с этой строкой: вставить например вместо неё дату или цифру.
SQL Server должен сам преобразовывать её, но видимо в вашем случае он не может этого сделать.

@Spirit80 · 23.05.2017, 06:39

Дату надо передавать как строку в формате sql
Dim dt as string, dt_ins as date
....
dt=format(Dt_ins, "yyyy-mm-dd")
....
Cmd.parametrs.append cmd.createparametr("@dt", adbdate, adparaminput, , dt)
....
В таком формате дата на sql передаётся без проблем

@Marich 204 / 4 / 1 Регистрация: 14.05.2012 Сообщений: 78
		1
	Запуск процедуры SQL Server через VBA 05.09.2012, 13:34. Показов 17589. Ответов 11 Метки нет (Все метки) Уважаемые форумчане, кто подскажет можно ли при помощи VBA запустить процедуру SQL Server? 0

@analyst 437 / 144 / 9 Регистрация: 12.01.2009 Сообщений: 678 Записей в блоге: 1
	05.09.2012, 16:09	2
	Да, можно http://www.databasejournal.com... Access.htm 0

@Marich 204 / 4 / 1 Регистрация: 14.05.2012 Сообщений: 78
	11.09.2012, 14:36 [ТС]	3
	analyst, Спс за ссылку ну это не совсем то что мне нужно. Процедура уже записана на SQL Server. Нужно что бы через VBA запускался SQL Server, отробатывал хранимую процедуру, а потом дальше отрабатывался макрос, который будет запускать Access (в котором прилинкованы таблицы с SQL). 0

@analyst 437 / 144 / 9 Регистрация: 12.01.2009 Сообщений: 678 Записей в блоге: 1
	11.09.2012, 15:01	4
	Понял. В общем это точно подойдет: http://custom-designed-databas... procedure/ Все эти финты с линкованными в MS Access хранимыми процедурами - какой-то шаманизм. Хотя видимо для юзеров создано... Вопрос зачем? 0

@analyst 437 / 144 / 9 Регистрация: 12.01.2009 Сообщений: 678 Записей в блоге: 1
	11.09.2012, 17:52	6
	Здесь про это написано и в общем случае будет полезно: http://connectionstrings.com/ 0

@analyst 437 / 144 / 9 Регистрация: 12.01.2009 Сообщений: 678 Записей в блоге: 1
	17.09.2012, 12:17	11
	Я ни разу не передавал дату в виде параметра, так что не сталкивался с вашими проблемами. Но можно точно утверждать, что ошибка у вас скорее всего со строкой, которую вы передаете - strDS. Предлагаю вам поэкспериментировать с этой строкой: вставить например вместо неё дату или цифру. SQL Server должен сам преобразовывать её, но видимо в вашем случае он не может этого сделать. 0

@Spirit80 0 / 0 / 0 Регистрация: 23.05.2017 Сообщений: 1
	23.05.2017, 06:39	12
	Дату надо передавать как строку в формате sql Dim dt as string, dt_ins as date .... dt=format(Dt_ins, "yyyy-mm-dd") .... Cmd.parametrs.append cmd.createparametr("@dt", adbdate, adparaminput, , dt) .... В таком формате дата на sql передаётся без проблем 0