如下代碼演示如何使用 Command 屬性更新視圖的文本。
Sub ViewText()
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
' 打開連接
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
' 打開目錄
Set cat.ActiveConnection = cnn
' 獲得 Command
Set cmd = cat.Views("AllCustomers").Command
' 更新 Command 的 CommandText
cmd.CommandText = _
"Select CustomerId, CompanyName, ContactName From Customers"
' 更新視圖
Set cat.Views("AllCustomers").Command. = cmd
End Sub