創(chuàng)建視圖范例

創(chuàng)建視圖范例

如下代碼演示如何使用 Command 對象和 Views 集合 Append 方法，在基本數(shù)據(jù)源中創(chuàng)建新的視圖。

Sub CreateView()

   Dim cmd As New ADODB.Command

   Dim cat As New ADOX.Catalog

   ' 打開目錄

   cat.ActiveConnection = _

      "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=c:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   ' 創(chuàng)建代表視圖的命令。

      cmd.CommandText = "Select * From Customers"

   ' 創(chuàng)建新視圖

   cat.Views.Append "AllCustomers", cmd

End Sub