Contoh Koding Koneksi Ke Database Mysql Menggunakan VBA Acess

Untuk mengkoneksikan Microsoft Access ke database MySQL menggunakan Visual Basic for Applications (VBA), Anda dapat menggunakan kode seperti ini:

'Deklarasikan variabel

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim strKoneksi As String

'Buat objek koneksi

Set cn = New ADODB.Connection

'Tentukan string koneksi

strKoneksi = "Driver={MySQL ODBC 8.0 Unicode Driver};" & _

             "Server=localhost;" & _

             "Database=NamaDatabase;" & _

             "UID=username;" & _

             "PWD=password"

'Buka koneksi ke database

cn.Open strKoneksi

'Buat objek recordset

Set rs = New ADODB.Recordset

'Jalankan query SQL

rs.Open "SELECT * FROM NamaTabel", cn

'Tampilkan hasil query

If Not rs.EOF Then

    Do While Not rs.EOF

        Debug.Print rs!Kolom1, rs!Kolom2, rs!Kolom3

        rs.MoveNext

    Loop

Else

    Debug.Print "Tidak ada data"

End If

'Tutup koneksi dan hapus objek

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

Anda dapat mengganti NamaDatabase, username, dan password sesuai dengan nama database, nama pengguna, dan kata sandi yang digunakan untuk mengakses MySQL. Selain itu, Anda juga perlu mengganti NamaTabel dan Kolom1, Kolom2, Kolom3 sesuai dengan nama tabel dan kolom yang ingin Anda tampilkan. Jika Anda ingin menampilkan semua kolom, Anda dapat mengganti query SQL menjadi SELECT * FROM NamaTabel.

Terimakasih

Tweet

Subscribe to receive free email updates: