Question

我使用ADODB函数从Access c访问Visual Basi中的数据库。目的是访问特定查询，从单元格中复制数据并将其粘贴到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

直到这一刻，代码才能完美运行。到目前为止，我从标题（中的第一行）和第一行（第二行）中访问数据集的每个值（来自Access中的数据库）。但我不知道如何从后续行获取信息（＆＃34; Fields＆＃34; 功能指定＆＃34;索引＆＃34; 在这种情况下，我不能使用比每行（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

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

1 个答案: