Tips Menambah Kolom Isian Baru di Tabel MS Access dari Excel dengan Macro VBA
Melanjutkan pembahasan sebelumnya tentang Cara Membuat Tabel Baru MS Access dari Excel dengan Macro VBA, kali ini kami akan berbagi cara menambah kolom isian pada tabel yang telah dibuat tersebut di MS Access melalui kode Macro VBA Excel.
Sebagai contoh kolom isian yang akan ditambahkan pada data karyawan di tabelKaryawan adalah jenis kelamin.
Berikut langkah-langkah pembuatan macro kolom tabel database:
1. Wajib dilakukan, dalam Excel silakan buka VBE kemudian pastikan Anda telah mengaktifkan Microsoft ActiveX Data Objects 2.8 Library pada menu Tools > References... tandai centang lalu klik OK.
2. Buka menu Insert > Module
3. Pada Module, ketik dan tekan Enter kode berikut:
4. Tepat di bawahnya ketik contoh variabel berikut:
Dim B As ADODB.Command
Dim C As String
5. Tentukan alamat dan nama file database Access di komputer Anda:
6. Tugaskan variabel untuk membuka sambungan:
7. Tentukan penyedia sambungan dan membuka sambungan:
.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & C & _
8. Beri tugas pada variabel command:
Set B.ActiveConnection = A
9. Perintahkan untuk menambahkan kolom isian jenis kelamin dalam tabel:
"ALTER TABLE tabelKaryawan Add Column JenisKelamin text)"
10. Laksanakan perintah tersebut dengan kode:
11. Lepas memori variabel objek:
Set A = Nothing
Kode macro lengkap sebagai berikut:
Dim A As ADODB.Connection
Dim B As ADODB.Command
Dim C As String
C = "C:\Alamat\File\Anda\Database1.accdb"
Set A = New ADODB.Connection
With A
.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & C & _
";Persist Security Info=False;"
.Open C
End With
Set B = New ADODB.Command
Set B.ActiveConnection = A
B.CommandText = _
"ALTER TABLE tabelKaryawan Add Column JenisKelamin text)"
B.Execute , , adCmdText
Set B = Nothing
Set A = Nothing
End Sub
Demikian pembahasan tentang cara menambahkan kolom baru di tabel database Access melalui macro Excel.
Silakan dicoba dan semoga bermanfaat.