Views Append Method Example (VB)

The following code demonstrates how to use a Command object and the Views collection Append method to create a new view in the underlying data source.

' BeginCreateViewVB
Sub Main()
    On Error GoTo CreateViewError

    Dim cmd As New ADODB.Command
    Dim cat As New ADOX.Catalog
    
    ' Open the Catalog
    cat.ActiveConnection = _
        "Provider='Microsoft.Jet.OLEDB.4.0';" & _
        "Data Source='c:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind.mdb';"
    
    ' Create the command representing the view.
    cmd.CommandText = "Select * From Customers"
    
    ' Create the new View
    cat.Views.Append "AllCustomers", cmd

    'Clean up
    Set cat.ActiveConnection = Nothing
    Set cat = Nothing
    Set cmd = Nothing
    Exit Sub
    
CreateViewError:

    Set cat = Nothing
    Set cmd = Nothing
    
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub
' EndCreateViewVB

See Also

ActiveConnection Property | Append Method (Views) | Catalog Object | View Object | Views Collection