使用 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