3 Langkah Untuk Menguji Keberadaan Tabel Dan Menghapus Tabel

AstroDigi.com | Jumat, 3 Feb 2017 | Dalam melakukan pemrograman dengan Microsoft Access, seringkali seorang programmer perlu untuk melakukan pengecekan apakah sebuah tabel sudah berada didalam database (file .MDB) yang sedang dikerjakannya.

Dan seringkali pula seorang programmer perlu menghapus sebuah tabel yang berada didalam database. Biasanya hal ini dilakukan bila tabel tersebut hanya diperlukan untuk sementara waktu saja (temporary table).

Dalam artikel kali ini saya akan berbagi tentang cara melakukan pengecekan mengenai keberadaan sebuah tabel dan juga sekaligus menjelaskan cara menghapus tabel lewat VBA.

Penghapusan tabel yang saya maksudkan adalah menghapus seluruh tabelnya, bukan hanya menghapus record yang tersimpan didalam tabel tersebut.

Untuk menguji keberadaan tabel saya menggunakan fungsi DCount, dengan kode instruksi sebagai berikut:

DCount("[Name]", "MSysObjects", "[Name]= '" & [nama_tabel_yang_akan_diuji_keberadaannya] & "'") = 1

Sedangkan untuk menghapus tabel saya menggunakan komponen dalam Access Command, dengan kode instruksi sebagai berikut:

DoCmd.DeleteObject acTable, [nama_tabel_yang_akan_dihapus]

Untuk lebih jelasnya saya berikan contoh aplikasi untuk melakukan pengujian dan kemudian menghapus tabel dengan 3 langkah mudah, yaitu:
1. Mengisikan data tabel yang akan diuji dan dihapus.
2. Melakukan pengujian keberadaan tabel.
3. Melakukan penghapusan tabel, hanya bila tabel yang dimaksudkan memang ada didalam database.

'LANGKAH PERTAMA
Dim criteriaKu, tableKu As String
tableKu = "table1"    'user tinggal mengisikan nama tabel yang akan diuji dan dihapus disini
criteriaKu = "[Name]= '" & tableKu & "'"

'lanjutkan dengan instruksi untuk pengujian keberadaan tabel sekaligus menghapusnya dituliskan
'LANGKAH KEDUA
If DCount("[Name]", "MSysObjects", criteriaKu) = 1 Then    'penghapusan hanya dilakukan bila tabelnya ada (eksis)
'LANGKAH KETIGA
DoCmd.DeleteObject acTable, tableKu
End If

Nah .. bagaimana? Sudah jelas bukan langkah-langkah yang saya tuliskan diatas? Selamat mencoba .. have a nice day :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

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