Membuat Koneksi Ke Database Via DAO.Database Dan ADO.Database Dengan 2 Baris Instruksi Saja

Niguru.com | Rabu, 8 Mei 2019 | Bila pada beberapa hari sebelumnya Niguru.com pernah memposting cara untuk membuat koneksi ke database tanpa menggunakan pemrograman, maka kali ini Niguru.com akan menjelaskan cara untuk membuat koneksi ke database dengan menggunakan instruksi yang sangat singkat .. cukup dengan 2 baris instruksi saja.

Sengaja Niguru.com memberikan penjelasan cara membuat koneksi database ini untuk 2 jenis koneksi database yang paling populer, yaitu: DAO (Data Access Object) dan ADO (ActiveX Data Objects). DAO adalah fasilitas default dari VB dan MS Access, sedangkan ADO menjadi koneksi database yang paling populer karena dikenal dengan kecepatan dan fleksibilitasnya yang lebih baik.



Sebagai contoh disini digunakan file “DBkaryawan.MDB” sebagai database dan tabel “t_karyawan” sebagai recordset-nya.
Cara koneksi database dengan DAO.Database, ke tabel pada database internal (pada MS Access):

Dim DBrs As Recordset
Set DBrs = CurrentDb.OpenRecordset("t_karyawan")


Cara koneksi database dengan DAO.Database, ke tabel pada database eksternal (pada VB dan MS Access):

Dim DBrs As Recordset
Set DBrs = OpenDatabase("DBkaryawan.MDB").OpenRecordset("t_karyawan")

-------------------------------------------------------------------------------------------------------------------
Cara koneksi database dengan ADO.Database, ke tabel pada database internal (pada MS Access):

Dim DBrs As New ADODB.Recordset
DBrs.Open "t_karyawan", CurrentProject.Connection


Cara koneksi database dengan ADO.Database, ke tabel pada database eksternal (pada VB dan MS Access):

Dim DBrs As New ADODB.Recordset
DBrs.Open "t_karyawan", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DBkaryawan.mdb"


Cara koneksi database dengan ADO.Database, ke tabel pada database eksternal, untuk koneksi ke database MS Access versi 2007 atau versi yang lebih baru (pada VB dan MS Access):

Dim DBrs As New ADODB.Recordset
DBrs.Open "t_karyawan", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBkaryawan.accdb"

-------------------------------------------------------------------------------------------------------------------
Untuk menampilkan data dari recordset yang sudah terhubung tersebut ke text box tinggal ketikkan saja nama fieldnya dan tampilkan pada text box yang diinginkan, misal:

Text0 = DBrs.Fields("NamaKaryawan")

Cara ini berlaku sama untuk recordset dari DAO.Database maupun ADO.Database.

Demikianlah penjelasan mengenai cara untuk membuat koneksi database dengan instruksi yang sangat singkat. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)