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鍵運行該過程,此時可以在“立即窗口”中獲取指定數據庫中的字段記錄