使用 VBA 不使用 CopyFromRecordSet 從 SQL 服務器獲取查詢結果

Question

我有以下來自 SQL-Server 的 VBA 查詢，僅返回一個結果。 我的問題是如何閱讀它。 到目前為止，我已經找到了一種方法，但我不想使用它。

Dim rsData              As Object
Set rsData = CreateObject("ADODB.Recordset")

With rsData
    .ActiveConnection = cnLogs
    .Open "USE DB SELECT [VersionNumber] FROM Main WHERE [IsLastCurrent] = 1"
End With

我不想使用的解決方案：

Cells(1, 1).CopyFromRecordset rsData

Answer 1

在SQL命令中嘗試以下更改：

With rsData
    .ActiveConnection = cnLogs
    .Open "USE DB; SELECT [VersionNumber] FROM Main WHERE [IsLastCurrent] = 1;"
End With

If (rsData.EOF = False) OR (rsData.BOF = False) Then
 'there are recordset
 myVar=   rsData.Fields(0).value
End If

rsData.Close

Answer 2

您可以通過使用Fields屬性的記錄來訪問Recordset記錄中的值。 首次打開記錄集時，它要么為空（在這種情況下recordset.BOF和recordset.EOF均為true），要么指向該集中的第一個記錄（在這種情況下recordset.BOF和recordset.EOF均為false） ）。 然后，您可以使用（例如）訪問該記錄中的數據：

rsData.Fields("VersionNumber").Value

您可以通過記錄使用移動（如果你有一個以上的） MoveFirst ， MoveLast ， MoveNext ，和MovePrevious的方法recordset對象。

Answer 3

如果要將數據保留在 memory 中，請使用像 Dim rsArray這樣的數組變量作為變體，然后將記錄集復制到它：

rsArray = rsData.GetRows