如何使用Recordset对象的属性来获取数据库字段？

1、新建Excel工作簿，打开Visual Basic编辑器，在工程资源管理器中插入一个模块，在模块的“代码”窗口中输入如下代码：

Sub RecordsetAttribute()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.Provider="Microsoft.ACE.OLEDB.12.0" '设置提供者名称

conn.ConnectionString="data source="&_ThisWorkbook.Path&"\罗斯文2007.accdb" '设置连接字符串

conn.Mode=adModeReadWrite '设置数据库读写模式

conn.Open '打开数据库连接

rs.CursorLocation=adUseClient '设置游标引擎位置

rs.Open"运货商",conn,adOpenForwardOnly,adLockOptimistic '打开“运货商”数据表记录集

Debug.Print"记录总数："&rs.RecordCount '输出记录集记录数

Do Until rs.EOF '遍历记录集所有记录

Debug.Print rs.AbsolutePosition&vbTab&rs.Fields("公司") '输出当前记录位置及“公司”字段

rs.MoveNext '移动到下一条记录

Loop

End Sub

2、按F5键运行该过程，此时可以在“立即窗口”中获取指定数据库中的字段记录，如图1所示。

图1　获取字段记录