VBA Untuk Menyalin (Copy) Table Ke Database (.MDB) Lain

AstroDigi.com | Rabu, 16 Apr 2014 | Kalau pada artikel sebelumnya saya membahas mengenai cara menghapus record (isi tabel) dan juga cara menghapus tabel, maka pada artikel kali ini saya akan membahas mengenai cara menyalin (=meng-copy) tabel dengan perintah VBA.

Saya mulai dengan VBA untuk meng-copy tabel pada database sendiri yaitu:
'-------------------------------
Dim perintahSQL As String

perintahSQL = "SELECT tabelSumber.* INTO tabelBaru FROM tabelSumber"
DoCmd.SetWarnings False
DoCmd.RunSQL perintahSQL
DoCmd.SetWarnings True
'--------------------------------

Berikutnya adalah cara untuk meng-copy tabel ke DATABASE LAIN (file .MDB lain):
'-------------------------------
Dim perintahSQL As String

perintahSQL = SELECT tabelSumber.* INTO tabelBaru IN 'C:\namaDirektori\namaDatabase.mdb' FROM tabelSumber
DoCmd.SetWarnings False
DoCmd.RunSQL perintahSQL
DoCmd.SetWarnings True
'--------------------------------

Peng-copy-an tabel ini bisa dimanfaatkan untuk melakukan backup record dari suatu tabel ke database lain. atau bisa juga digunakan untuk memindahkan data ke database lain.

Selamat mencoba . . . have a nice day :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

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