如下代碼演示如何使用 Command 屬性和 ADO Recordset 對象,檢索視圖的字段信息。
Sub ViewFields()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
Dim cat As New ADOX.Catalog
' 打開連接
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
' 打開目錄
Set cat.ActiveConnection = cnn
' 設置記錄集的源
Set rst.Source = cat.Views("AllCustomers").Command
' 檢索字段信息
rst.Fields.Refresh
For Each fld In rst.Fields
Debug.Print fld.Name & ":" & fld.Type
Next
End Sub