使用Recordset对象的属性来获取数据库字段的方法

                               

                        Recordset对象是基于连接数据库的数据表或通过Command对象执行结果获取的记录集。要通过ADO对象模型对数据库中的数据进行操作，经常需要使用该对象。本文介绍使用Recordset对象的属性来获取数据库字段的方法。本文使用微软Access自带的“罗斯文2007”数据库文件，程序将开启其中的“运货商”数据表记录集，将返回记录集记录总数及有关字段。
        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　获取字段记录