Cara Menghubungkan Database di VB6 dengan Kode Contoh

Berikut adalah contoh kode VB6 untuk melakukan koneksi ke database:

Private Sub ConnectDB()
   Dim conn As ADODB.Connection
   Set conn = New ADODB.Connection
   
   'Mengatur koneksi database
   conn.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Public\Documents\Database1.mdb'
   
   'Membuka koneksi
   conn.Open
   
   'Menutup koneksi
   conn.Close
End Sub

Pada kode di atas, kita menggunakan objek 'ADODB.Connection' untuk melakukan koneksi ke database. Koneksi tersebut diatur dengan menggunakan properti 'ConnectionString' yang berisi informasi tentang jenis provider dan lokasi database. Setelah itu, kita melakukan pembukaan koneksi dengan menggunakan metode 'Open' dan menutup koneksi dengan metode 'Close'.

Pastikan juga bahwa Anda telah menambahkan referensi Microsoft ActiveX Data Objects (ADO) pada proyek VB6 Anda.