怎么使用Recordset對(duì)象的屬性來獲取數(shù)據(jù)庫字段？

1、新建Excel工作簿，打開Visual Basic編輯器，在工程資源管理器中插入一個(gè)模塊，在模塊的“代碼”窗口中輸入如下代碼：

Sub RecordsetAttribute()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.Provider="Microsoft.ACE.OLEDB.12.0" '設(shè)置提供者名稱

conn.ConnectionString="data source="&_ThisWorkbook.Path&"\羅斯文2007.accdb" '設(shè)置連接字符串

conn.Mode=adModeReadWrite '設(shè)置數(shù)據(jù)庫讀寫模式

conn.Open '打開數(shù)據(jù)庫連接

rs.CursorLocation=adUseClient '設(shè)置游標(biāo)引擎位置

rs.Open"運(yùn)貨商",conn,adOpenForwardOnly,adLockOptimistic '打開“運(yùn)貨商”數(shù)據(jù)表記錄集

Debug.Print"記錄總數(shù)："&rs.RecordCount '輸出記錄集記錄數(shù)

Do Until rs.EOF '遍歷記錄集所有記錄

Debug.Print rs.AbsolutePosition&vbTab&rs.Fields("公司") '輸出當(dāng)前記錄位置及“公司”字段

rs.MoveNext '移動(dòng)到下一條記錄

Loop

End Sub

2、按F5鍵運(yùn)行該過程，此時(shí)可以在“立即窗口”中獲取指定數(shù)據(jù)庫中的字段記錄，如圖1所示。

圖1　獲取字段記錄