找不到存储过程 Excel VBA 错误

Question

Error occurs on this line of code

Set rs = conn.Execute("GetReportingHierarchy")

Sub RunCode()
Dim sConnString As String,conn As adodb.Connection,rs As adodb.Recordset

sConnString = "PROVIDER=SQLOLEDB;" & _
          "Data Source=MyServerIPAndPort" & _
          "Initial Catalog=MyDB;" & _
          "User Id=MyUserName;" & _
          "Password=MyPassword;"

sConnString = sConnString
Set conn = New adodb.Connection
Set rs = New adodb.Recordset

conn.Open sConnString
Set rs = conn.Execute("GetReportingHierarchy")

If Not rs.EOF Then
    Range("A6").CopyFromRecordset rs
    rs.Close
Else
    MsgBox "Error: No records returned.", vbCritical
End If

If CBool(conn.State And adStateOpen) Then conn.Close
Set conn = Nothing
Set rs = Nothing
   
End Sub

SQL Server Stored Procedure

Answer 1

终于找到解决办法了。

应该是完全合格的参考。

Set rs = conn.Execute("MyDBName.dbo.GetReportingHierarchy")

找不到存储过程 Excel VBA 错误

Could not find stored procedure Excel VBA Error

sql-server

excel

vba

stored-procedures