VBA代碼執行中斷，試圖關閉記錄集或連接

Question

我嘗試使用ADODB將數據從SQL Server導入到Excelsheet中。 我還激活了“參考”下的“ Microsoft ActiveX數據對象2.8庫”。 我不得不承認，我是ADODB的新手。

下面的代碼可以正常運行，並且記錄集已正確寫入Excelsheet。 但是，代碼在“ rs.close”處拋出錯誤，提示“代碼執行已被中斷”。

由於此錯誤消息非常籠統，因此我自己無法找到與此有關的任何內容。

我已經關閉了所有其他在我的計算機上訪問同一數據庫的程序。

Sub Test()

Dim con As ADODB.Connection
Dim conStr As String
Dim SQL As String
Dim rs As Recordset
Dim myWb As Workbook

Set myWb = ThisWorkbook

Set con = New ADODB.Connection
conStr = "Provider=SQLOLEDB;Data Source=*censored*;Initial Catalog=RegMetrics;Trusted_connection=yes;"
con.Open conStr

SQL = "Select * From dbo.fn_Counterparty_RWA()"
Set rs = con.Execute(SQL)
myWb.ActiveSheet.Range("A2").CopyFromRecordset rs

rs.Close
con.Close

End Sub

Answer 1

只需重新啟動計算機即可解決此問題。