从 Excel 到 SQL 服务器的 ADO 连接执行但没有返回记录

Question

我有一个电子表格，我想从中将 SQL 脚本传递给我的 SQL 服务器数据库，以检索记录和运行存储过程。

这是我的代码：

Sub ApendPickListData()
Dim SqlConn As New ADODB.Connection
Dim listID As Integer
Dim lists As New ADODB.Recordset
Dim SQLstr As String

SqlConn.ConnectionString = "Provider = 'SQLOLEDB';Server=MyServer\SQLEXPRESS;Database=MyDatabase;Uid=Username;PWD=Password;"
SqlConn.Open

 

 'The following execution of a stored procedure works
    SqlConn.Execute "Exec spListsInsertNew @Type = 'Picking', @Date ='" & Date & "'"
    
SQLstr = "SELECT ItemList.ItemNumber from ItemList"
    'This method doesn't work
    
With lists
    .ActiveConnection = SqlConn
    .Source = SQLstr
    .Open
    Debug.Print .RecordCount
    'prints -1 in the immediate window - no records
End With

'Neither does this method
Set lists = SqlConn.Execute(SQLstr)
Debug.Print lists.RecordCount
'prints -1 in the immediate window - no records    

SqlConn.Close

End Sub

我觉得我错过了一些明显的东西。 我搜索了这个站点和其他站点，找到了该代码应该工作的示例。 我已经在 SSMS 中测试了 select 语句，它按预期工作。

任何帮助，将不胜感激！

Answer 1

有效的代码来自 Mark Balhoff 的评论。 这里是：

Sub ApendPickListData()
Dim SqlConn As New ADODB.Connection
Dim listID As Integer
Dim lists As New ADODB.Recordset
Dim SQLstr As String

SqlConn.ConnectionString = "Provider = 'SQLOLEDB';Server=Myserver\SQLEXPRESS;Database=MyDB;Uid=Username;PWD=Password;"
SqlConn.Open


SQLstr = "select dbo.ItemList.ItemNumber from dbo.ItemList"

With lists
.ActiveConnection = SqlConn
.Source = SQLstr
.CursorLocation = adUseClient 'This was the key!
.Open
Debug.Print .RecordCount

End With

SqlConn.close
End Sub