Contoh Metode Tutup Koneksi, Properti Jenis Tabel (Visual Basic)
Mengatur properti ActiveConnection ke Tidak ada yang harus menutup koneksi ke katalog. Koleksi terkait akan kosong. Objek apa pun yang dibuat dari objek skema dalam katalog akan tanpa sumber. Properti apa pun pada objek yang telah di-cache masih akan tersedia, tetapi upaya untuk membaca properti yang memerlukan panggilan ke penyedia akan gagal.
' BeginCloseConnectionVB
Sub Main()
On Error GoTo CloseConnectionByNothingError
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source= 'Northwind.mdb';"
Set cat.ActiveConnection = cnn
Set tbl = cat.Tables(0)
Debug.Print tbl.Type ' Cache tbl.Type info
Set cat.ActiveConnection = Nothing
Debug.Print tbl.Type ' tbl is orphaned
' Previous line will succeed if this info was cached.
Debug.Print tbl.Columns(0).DefinedSize
' Previous line will fail if this info has not been cached.
'Clean up.
cnn.Close
Set cat = Nothing
Set cnn = Nothing
Exit Sub
CloseConnectionByNothingError:
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
' EndCloseConnectionVB
Menutup objek Koneksi yang digunakan untuk membuka katalog harus memiliki efek yang sama dengan mengatur properti ActiveConnection ke Tidak Ada.
Attribute VB_Name = "Connection"
Lihat juga
Properti ActiveConnection (ADOX)
Objek Katalog (ADOX)
Objek Kolom (ADOX)
Kumpulan Kolom (ADOX)
Objek Tabel (ADOX)
Koleksi Tabel (ADOX)
Properti Jenis (Tabel) (ADOX)
Saran dan Komentar
https://aka.ms/ContentUserFeedback.
Segera hadir: Sepanjang tahun 2024 kami akan menghentikan penggunaan GitHub Issues sebagai mekanisme umpan balik untuk konten dan menggantinya dengan sistem umpan balik baru. Untuk mengetahui informasi selengkapnya, lihat:Kirim dan lihat umpan balik untuk