Contoh Properti ActiveConnection Katalog (Visual Basic)
Mengatur properti ActiveConnection ke koneksi yang valid dan terbuka "membuka" katalog. Dari katalog terbuka, Anda dapat mengakses objek skema yang terkandung dalam katalog tersebut.
' BeginOpenConnectionVB
Sub Main()
On Error GoTo OpenConnectionError
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source= 'Northwind.mdb';"
Set cat.ActiveConnection = cnn
Debug.Print cat.Tables(0).Type
'Clean up
cnn.Close
Set cat = Nothing
Set cnn = Nothing
Exit Sub
OpenConnectionError:
Set cat = Nothing
If Not cnn Is Nothing Then
If cnn.State = adStateOpen Then cnn.Close
End If
Set cnn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndOpenConnectionVB
Mengatur properti ActiveConnection ke string koneksi yang valid juga "membuka" katalog.
Attribute VB_Name = "Catalog"
Lihat juga
Properti ActiveConnection (ADOX)
Objek Katalog (ADOX)
Objek Tabel (ADOX)
Koleksi Tabel (ADOX)
Properti Jenis (Tabel) (ADOX)