CopyFromRecordset导致Excel崩溃

Question

我创建了一个从Oracle（64位）到Microsoft Excel 2013（64位）的连接。 VBA按预期方式连接并按预期粘贴列标题，但是一旦我尝试使用CopyFromRecordSet Excel复制记录之前冻结。我不知道为什么。我没有收到任何错误消息。

这些是我所选择的参考库：

1. Visual Basic应用程序
2. 的Microsoft Excel 15.0对象库
3. OLE自动化
4. 的Microsoft Office 15.0对象库
5. Microsoft窗体2.0对象库
6. Microsoft ActiveX数据对象6.1库
7. TabBtnEx 1.0类型库
8. Microsoft ActiveX数据对象Recordset 2.8库

下面是代码：

Sub getdata3() 
Dim UserName As String 
Dim PassWord As String 
Dim con As Object 
Dim recSet As Recordset 
Dim SQL_String As String 
Dim dbConnectStr As String 
Dim recordCount As Long 
Dim col As Integer 

'Set up variables 
UserName = "unid" 
PassWord = "pwd" 
dbConnectStr = "DSN=DW;Uid=" & UserName & ";Pwd=" & PassWord 


'Set connection parameters 
Set con = New ADODB.Connection 
Set recSet = New ADODB.Recordset 
con.ConnectionString = dbConnectStr 
con.ConnectionTimeout = 30 
con.Open dbConnectStr 

'Query 
SQL_String = "SELECT * FROM U0408224.D_FLAG WHERE DWID = 675863" 
recSet.Open SQL_String, con, adOpenStatic 

'Recordset to sheet 
col = 0 
Do While col < recSet.Fields.Count 
Sheets("SQL").Cells(20, col + 1) = recSet.Fields(col).Name 
col = col + 1 
Loop 
Sheets("SQL").Cells(21, 1).CopyFromRecordset recSet 

'Close recordsets and connections 
recSet.Close 
con.Close 
Set con = Nothing 
Set recSet = Nothing 


End Sub 

Answer 1

我想我想通了。我将CursorTypeEnum从adOpenStatic更改为adOpenForwardOnly，并且完美运行。我怀疑在ODBC连接中有一些不允许adOpenStatic的错误。我运行Excel 64位，但是，用于ODBC连接的dll文件在其中有32个文件。