я думал что ты уже все сам написал ..
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim CMD As New ADODB.Command
Dim con as adodb.connection
con.open "строка подключения см. ниже"
CMD.ActiveConnection = Con 'может быть вариант c set (была така хрень) '
CMD.CommandText = "Имя_Хранимки"
CMD.CommandType = adCmdStoredProc
CMD.Parameters.Append CMD.CreateParameter( "@pram0" , adInteger, adParamInputOutput) 'если нужны параметры'
CMD.Parameters( 0 ) = .... 'присваиваешь значения входным параметрам '
CMD.Execute
... = CMD.Parameters( 0 ) 'возвращаемый параметр можно присвоить переменной'
Set CMD = Nothing
con.close
set con = nothing
строка подключения
"Provider=SQLOLEDB;Data Source=<SERVER_NAME>;database=<DB_NAME>;uid=<UID>;pwd=<PWD>;"
' MS SQL Server 6.x/7.x/2000 (OLEDB connection)
или
"driver={SQL Server};server=<SERVER_NAME>;uid=<UID>;pwd=<PWD>;database=<DATABASE_NAME>"
' MS SQL Server 6.x/7.x/2000 (ODBC connection)
ты этого ждешь?
