Excel -> сохраненная процедура MS SQL Server ?

[Зелёный]

Здравствуйте!
Подскажите пожалуйста, как работать из Excel с сохраненной процедурой MS SQL Server-a? Подключил я ADODB, соединился с MS SQL Server, а дальше что? Никогда ранее не сталкивался с работой VB->СУБД, а посему извините за ламерский вопрос.
Заранее всем благодарен....

[Зелёный]

Господа!
Никто не знает, как из VB обращаться к сохраненной процедуре на сервере?
Я горю!!!

[Dantes]

Код: Выделить всё

    Dim cnnSQL As New ADODB.Connection
    Dim rsSQL As ADODB.Recordset
    Dim cmdSQL As New ADODB.Command

    cnnSQL.Open strSQLCnnString '< - коннекшн стринг к базе
    cmdSQL.CommandText = SQLStoredProcedureName '< - имя хранимой процедурки
    cmdSQL.CommandType = adCmdStoredProc
    cmdSQL.ActiveConnection = cnnSQL
    Set rsSQL = cmdSQL.Execute


Только на сколько я помню, коннект к базе надо осуществлять посредством ODBC - драйвера...

[Зелёный]

Спасибо большое!

[Cyrax]

Код: Выделить всё

    Dim cnnSQL As New ADODB.Connection
    ......

Только на сколько я помню, коннект к базе надо осуществлять посредством ODBC - драйвера...

зачем...? чтоб сильнее тормозило? в ADO есть родной провайдер для MS SQL Server
называется он Microsoft OLE DB Provider for SQL Server
для свойства ADODB.Connection.Provider нужно указывать строку SQLOLEDB.1

[Dantes]

зачем...? чтоб сильнее тормозило? в ADO есть родной провайдер для MS SQL Server
называется он Microsoft OLE DB Provider for SQL Server

Ну не отработает хранимка через OLE DB провайдер, НЕ ОТРАБОТАЕТ... Если покажешь маленький кусочек рабочего кода, запускающего хранимую процедуру и коннектящийся к БД через OLE DB, буду благодарен за просветление.... У меня в своё время такая проблема была, получилось решить её только, когда стал коннектиться к базе через ODBC. Ну понятно, версия MDAC должна быть также соответствующей...

[Зелёный]

Я тут эту проблему решил немного иначе, но через ОLE DB
Работающий пример (это, правда VBA Excel):
1) Connect

Код: Выделить всё

Public cnnMSSQL As ADODB.Connection
Public dbOpen As Boolean

Sub ConnectToServer()
         
         Dim DBName As String
         Dim ServerName As String
         Dim UserName As String
         Dim UserPassword As String
         
         DBName = Range("BB3").Value
         ServerName = Range("BB2").Value
         UserName = Range("BB4").Value
         UserPassword = Range("BB5").Value
           
         Dim ConnectStr As String
     
         ConnectStr = ""
     
        'Формирование строки соединения
         ConnectStr = ConnectStr & "Provider=SQLOLEDB;"
         ConnectStr = ConnectStr & "Initial Catalog=" + DBName + ";"
         ConnectStr = ConnectStr & "Data Source=" & ServerName & ";"
         If ConnectionLogin Then
            ConnectStr = ConnectStr & "User Id=" & UserName & ";"
            ConnectStr = ConnectStr & "Password=" & UserPassword & ";"
         End If

        'Соединяемся с БД
         Set cnnMSSQL = New ADODB.Connection
        On Error GoTo DBConnectNot
         
         If ConnectionLogin Then
            cnnMSSQL.Open ConnectionString:=ConnectStr
         Else
            cnnMSSQL.Open ConnectionString:=ConnectStr,    UserID:=UserName, Password:=UserPassword
         End If
         dbOpen = True
         GoTo Ends
DBConnectNot:
         dbOpen = False
          ' здесь код на ошибку
Ends:
End Sub

2) Disconnect

Код: Выделить всё

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     If dbOpen = True Then
           cnnMSSQL.Close
           dbOpen = False
           Set cnnMSSQL = Nothing
     End If
End Sub

3) Пример работы с простенькой конкретной Созраненной процедурой на удаление одной строки

Код: Выделить всё

Sub DeleteTablesRow(ByVal Finplanmonth_id As Integer)
  If dbOpen = False Then
     MsgBox "Нет соединения с базой данных ."
     Exit Sub
  End If

  Dim SQL As String
  SQL = "Exec dbo.p_FINPLANMONTH_self_delete " & Finplanmonth_id
  cnnMSSQL.Execute (SQL)
  On Error Resume Next
End Sub

Все работает!!!!

[Cyrax]

мдя...
пока искал... уже ответили...
я думаю коментарии излишни...