创建视图范例

目录

如下代码演示如何使用 Command 对象和 Views 集合 Append 方法,在基本数据源中创建新的视图。

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;"   ' 创建代表视图的命令。
      cmd.CommandText = "Select * From Customers"   ' 创建新视图
   cat.Views.Append "AllCustomers", cmdEnd Sub
www.2mysite.net