Exemplo do método Append de exibições (VB)
O código a seguir demonstra como usar um objeto Command e o método Append da coleção Views para criar uma exibição na fonte de dados subjacente.
' 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='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
Consulte Também
Propriedade ActiveConnection (ADOX)
Método Append (Exibições do ADOX)
Objeto Catalog (ADOX)
Objeto View (ADOX)
Coleção Views (ADOX)