如何从Excel中的记录集中获取数据？

Question

我有以下代码：

Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Dim AppPath As String
Set cn = CreateObject("ADODB.Connection")
AppPath = Application.ActiveWorkbook.Path

Set rs = CreateObject("ADODB.RecordSet")

strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & AppPath & "\Masterlist_Current_copy.accdb;"

strSql = "SELECT [Neptune Number],[Description],[Manufacturer],[Manufacturer P/N] FROM [All Components];"
cn.Open strConnection
Set rs = cn.Execute(strSql)

'Need Code here to get Info out of recordset

我试图从查询结果转储到其中的记录集中获取信息。我试图弄清楚如何查询记录集并获取“Neptune Number”字段中具有特定值的行数。然后，我将在我正在修改的工作表中插入正确的行数。之后，我需要获取该值的数据并将其插入工作表中。

注意：我不在乎是否使用记录集、数据表或其他任何东西，我只需要能够执行上面描述的操作。请出示代码。

Answer 1

到达您想要的地方的最简单方法是修改您的 SQL 语句，更改

strSql = "SELECT [Neptune Number],[Description],[Manufacturer],[Manufacturer P/N] FROM [All Components];"

为

strSql = "SELECT [Neptune Number],[Description],[Manufacturer],[Manufacturer P/N] FROM [All Components] WHERE [Neptune Number] = 'Specific Value' ;"

这将强制 sql 查询仅返回您需要的记录。 .find 方法可用于过滤记录集，但我避免在这种情况下使用它，因为仅向数据库询问您想要的信息会更干净。

要处理记录集，您可以使用以下内容

with rs
    'will skip further processing if no records returned
    if not (.bof and .eof) then
        'assuming you do not need the headers
        'loop through the recordset
        do while not .eof
            for i = 0 to .fields.count -1
                'assuming the active sheet is where you want the data
                cells(row, i + colOffset) = .fields(i).value
            next
            Rows(Row & ":" & Row).Insert
            .movenext
        loop
    end if
end with

，其中 row 是数据的起始点，colOffset 是数据的起始列。请注意，此代码不会按照您在问题中指定的确切顺序执行操作（我根据需要插入行，而不是预先计算记录数。）

我避免使用 .recordcount 因为我find 根据所使用的数据库，它不会返回正确的记录计数。