如何从 Visual Basic - ADODB 连接访问 Access 中数据库的不同位置

Question

我正在使用 ADODB 函数从 Visual Basic 访问 Access 中的数据库。目的是访问特定查询，从单元格复制数据并将其粘贴到 Excel 中。到目前为止，我已经能够获取查询的标题和第一行数据，但不知道获取剩余信息所需的代码。这是我用过的：

Dim Conjunto As New ADODB.Recordset Dim conexionBD As New ADODB.Connection

打开数据库：

conexionBD.Open ConnectionString:="Provider = Microsoft.ACE.OLEDB.12.0; data source=" & BDatos

允许我复制标题和第一行数据的代码是：

For i = 1 to 10
   Cells(1,i).value = Conjunto.Fields(i).Name
   Cells(2,i).value = Conjunto.Fields(i)
Next i

到目前为止，代码运行良好。到目前为止，我正在从标题（for 中的第一行）和第一行（第二行）中访问数据集的每个值（来自 Access 中的数据库）。但是我不知道如何从后续行中获取信息（"Fields" 函数指定了一个 "index"在这种情况下，我不能使用超过每行中总值数 (10) 的任何值。

非常感谢！

Answer 1

'Headers
For i = 1 to 10
   Cells(1,i).value = Conjunto.Fields(i).Name
Next i

'Records
r=2
Do While Not Conjunto.EOF
    For i = 1 to 10
       Cells(r,i).value = Conjunto.Fields(i)
       r=r+1
    Next i
    Conjunto.MoveNext
Loop

'or:
Cells(2,1).CopyFromRecordset Conjunto

如何从 Visual Basic - ADODB 连接访问 Access 中数据库的不同位置

How to access a different position of a database in Access from Visual Basic - ADODB Connection

ms-access

vba

adodb