VBA untuk Menghapus Tabel Pada Database Lain

AstroDigi.com | Senin, 14 Apr 2014 | Setelah dimuatnya artikel terdahulu yang berjudul "VBA untuk Menghapus Tabel" (Sabtu, 12 Apr 2014). Saya menerima beberapa email yang menanyakan bagaimana bila tabel yang ingin dihapus berada pada database (file .mdb) yang lain?

Okay . . langsung saja saya jawab:

'Untuk menghapus ISI/RECORD tabel pada database lain:

DoCmd.RunSQL "DELETE namaTabel.* FROM namaTabel IN C:\namaDirektori\namaFile.mdb"

'-----------------------------------
'Untuk menghapus (menghilangkan) tabel dari database lain:
'Cara 1

Dim otdb As New Access.Application
With otdb
    .OpenCurrentDatabase "C:\namaDirektori\namaFile.mdb"
        .DoCmdDeleteObject acTable, "namaTabel"
        .CloseCurrentDatabase
End With

'-----------------------------------
'Cara 2

Dim otdb As DAO.Database

Set otdb = OpenDatabase("C:\namaDirektori\namaFile.mdb")
otdb.TableDefs.Delete "namaTabel"
otdb.Close
Set otdb = Nothing

'-----------------------------------

Silahkan pilih VBA script mana yang sesuai dengan kebutuhan. Selamat mencoba  . . . Have a nice day :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

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