Koneksi Database Access

BY IN Access Comments Off on Koneksi Database Access

Pada awal belajar Access VBA, mungkin ini yang pertama kali muncul di benak saya. Secara default pada saat kita menjalankan aplikasi Access, maka koneksi terhadap database sudah diciptakan. Namun untuk keperluan tertentu, kita bisa juga menciptakan koneksi database sendiri.

Koneksi database dapat diciptakan dengan perintah
Dim conn As ADODB.Connection

Sedangkan untuk recordsetnya kita pakai perintah
Dim rst As New ADODB.Recordset

Lalu kita atur koneksi agar merujuk pada koneksi database yang digunakan saat ini
Set conn = CurrentProject.Connection

Nah sampai disini, kita dapat mengeksekusi perintah SQL untuk melakukan operasi database, misalnya sebagai berikut:
rst.Open “SELECT * FROM [Nomor Invoice]”, conn, adOpenStatic, adLockReadOnly
noinv = rst.Fields(“NoInvoiceIuran”)
rst1.Open “SELECT * FROM [Invoice Iuran Details] WHERE [No Invoice]=’” & strNoInvoice & “‘”, conn, adOpenStatic, adLockReadOnly

Sebagai catatan, apabila kita terlanjur mendefinisikan nama tabel dengan mengandung spasi, maka kita bisa menambahkan kurung siku untuk mengapit tabel tersebut di dalam SQL Query.




Comments are closed.