RecordSet 上的 GetRows 不会存储 Access DB 中的文本列

Question

我已经从 excel 成功连接到我的 Access 数据库，并且可以在我的 RecordSet 上使用 GetString 以字符串形式返回数据库的内容。 GetString 按照我的预期将表的所有内容打印到消息框中（在下面的 cmets 中），但 GetRows 忽略了其中一列（在这种情况下为 GCAT），它恰好是数据库中唯一的文本字段。我正在尝试将此字段的特定实例打印到我的 excel 工作表中，但是在 GCAT 字段应该位于的数组位置（0,1）处，它打印记录的第三项，而不是我期望的第二项。我错过了什么？它与作为文本字段有关吗？也许我使用了错误的库或数据库引擎？数据库中的所有其他列都会正常返回。

Sub Connect()
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim sConn As String
Dim sSQL As String
Dim arrayString As String



sConn = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source='<path_to_db>'; Persist Security Info='False';"

' Open a connection.
Set oConn = New ADODB.Connection
oConn.ConnectionString = sConn
oConn.Open

' Make a query over the connection.
sSQL = "SELECT ID, GCAT, Min_Years, Max_Years, Contract_Price FROM GCAT"
Set oRs = New ADODB.Recordset
CursorLocation = adUseClient
oRs.Open sSQL, oConn, adOpenStatic, adLockBatchOptimistic, adCmdText


GCATArray = oRs.GetRows()

Sheets("Calculations").Range("D6").Value = GCATArray(0, 1)

'GCATString = oRs.GetString()
'MsgBox GCATString

' Close the connection.
oConn.Close
Set oConn = Nothing

End Sub

这是我第一次涉足 VB，所以我对要使用的语言感到困惑和挣扎。

Answer 1

在您的代码中看不到任何明显的错误，您是否尝试过自己调试？您可以循环记录集中的字段，并显示它们的名称以进行测试，如下所示：

For i = 0 To oRS.Fields.Count -1
    debug.print oRS.Fields(i).Name
Next

这样，您可以首先查看您要查找的字段是否确实存在。接下来，您可以通过以下方式访问您所追求的字段：

Do While Not oRS.EOF
    Debug.Print oRS!GCAT
    'Exit Do 'if you want to display only the first, break out of the loop here
    oRS.MoveNext
Loop

在这种情况下，您不需要 GetRows()，这也应该可以提高性能（在较大的记录集上非常明显）。