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键运行该过程,此时可以在“立即窗口”中获取指定数据库中的字段记录
用Fields("字段名")这种方法将数据库内容读出来,例如数据库有一个字段是ABC然后用一个TEXT控件就是Text1.Text = Adodc1.Recordset.Fields("ABC")ADODB.Recordset数据集啊,和.NET的dataset类似
======================================就是数据表在内存中的映射
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)