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
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
.
0 Response to "Contoh Koding Koneksi Ke Database Mysql Menggunakan VBA Acess"
Post a Comment