[英]Could not find stored procedure Excel VBA Error
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 SQL 服务器存储过程
Finally found the solution.终于找到了解决方案。
It should be fully qualified reference.它应该是完全合格的参考。
Set rs = conn.Execute("MyDBName.dbo.GetReportingHierarchy")
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.