Menjalankan (Running) Query Dari VBA

AstroDigi.com | Senin, 18 Jul 2016 | Salah satu keunggulan dari MS Access adalah pada fasilitas query-nya. MS Access mampu menciptakan query yang merupakan duplikasi dari tabel yang sudah diolah oleh user (filtering, editing, deleting, adding). Sehingga user dapat menggunakan tabel yang lebih sedikit dan pemrograman menjadi lebih sederhana dan efisien.

Keunggulan query yang mirip seperti duplikasi tabel ini, membuat sebuah query dapat melakukan proses query dari query yang lainnya (query bertingkat), sedangkan pada program pengolah database lainnya, umumnya query hanya dapat dilakukan dari sebuah tabel.

Artikel berikut ini akan membahas mengenai cara menjalankan query dari VBA.
Cara yang pertama adalah menjalankan query yang sudah terbentuk sebagai “duplikasi tabel” pada MS Access. Instruksinya adalah sebagai berikut:
‘-----------------------------------------------
 ‘Mematikan sistem notifikasi saat query dijalankan
DoCmd.SetWarnings False       

 ‘Menjalankan query
DoCmd.OpenQuery "NamaQuery"  

‘Mengembalikan fungsi notifikasi
DoCmd.SetWarnings True      
‘------------------------------------------------


Cara yang kedua adalah menjalankan query yang belum ada bentuk “tabel”nya seperti uraian diatas tadi. Instruksinya adalah sebagai berikut:
‘-----------------------------------------------
Dim perintahSqlKu As String

‘contoh perintah SQL, bisa digantikan dengan perintah lain yang sesuai
‘mengaktifkan contreng field Hadir pada tabelKaryawan
SqlKu = ”UPDATE tabelKaryawan SET tabelKaryawan.Hadir = False;"

 ‘Mematikan sistem notifikasi saat query dijalankan
DoCmd.SetWarnings False       

 ‘Menjalankan query
DoCmd.RunSQL SqlKu          'Release Warning List

‘Mengembalikan fungsi notifikasi
DoCmd.SetWarnings True      
‘------------------------------------------------

Kedua cara diatas tidak dapat digunakan untuk jenis query “Select” karena query tersebut hanyalah untuk pembuatan query yang berbentuk “duplikasi tabel”. User dapat memilih salah satu dari kedua cara diatas yang lebih nyaman untuk diaplikasikan saat pembuatan sebuah software aplikasi.

 www.AstroDigi.com (Nino Guevara Ruwano)

AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?