VBA 循环遍历记录集 - VBA

VBA 循环遍历记录集是一个常见的任务。记录集通常是一组相关的数据行。在VBA中，可以使用ADO对象来访问记录集。本文将介绍如何循环遍历记录集。

连接到数据库

首先，您需要连接到包含记录集的数据库。在VBA中，可以使用ADODB对象来连接到数据库。以下是一个示例：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\mydatabase.mdb;"
    
conn.Open

在上面的代码中，我们使用ADODB.Connection对象来连接到名为“mydatabase.mdb”的Access数据库。

获取记录集

要获取记录集，您需要使用查询。以下是一个查询的示例：

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM Customers", conn

在上面的代码中，我们使用ADODB.Recordset对象打开一个名为“Customers”的表。这将返回一个记录集，其中包含该表的所有行。

循环遍历记录集

一旦您有了记录集，您就可以循环遍历它，从而访问其中的每一行数据。以下是一个示例代码：

Do Until rs.EOF
    Debug.Print rs.Fields("CustomerName").Value
    rs.MoveNext
Loop

在上面的代码中，我们使用Do Until循环来遍历记录集。EOF属性表示记录集的“End of File”，即已达到第一行之后的末尾。

在循环中，我们使用Debug.Print语句输出名为“CustomerName”的字段的值。然后，我们使用MoveNext方法将记录集中的指针移动到下一行。

关闭数据库连接

最后，您需要关闭数据库的连接。以下是一个示例：

rs.Close
conn.Close

在上面的代码中，我们使用Close方法关闭记录集和连接。

结论

VBA 循环遍历记录集是一个通用的任务，可以帮助您访问和处理数据库中的数据。在本文中，我们介绍了如何连接到数据库，如何获取记录集，如何循环遍历记录集以及如何关闭连接。现在您可以开始使用这些技术来完成自己的数据库任务了。