TUTORIAL MEMBUAT KONEKSI EXCEL KE DATABASE SERVER DENGAN MENGGUNAKAN ADODB (DATABASE = MYSQL, DRIVER MYSQL ODBC 3.51)

Huyy guuuyyy..

kita berjumpa kembali..
kali ini saya akan membuat tutorial untuk membuat koneksi atau get data
dari excel ke DATABASE SERVER
database yang saya gunakan adalah MYSQL, untuk download database mysql bisa klik link berikut >> DOWNLOAD MYSQL DATABASE
dan driver yang diguunakan adalah MYSQL ODBC 3.51, untuk download mysql odbc 3.51 driver bisa klik link berikut >> DOWNLOAD MYSQL ODBC 3.51 DRIVER

dengan ip server = 127.0.0.1 (localhost)
database = asaltulisajedb
username = root
password = '' (kosong)
table = tbl_kota_ind

untuk tutorial lebih jelasnya bisa ikuti langkah - langkah pada video berikut

naaah..
saya sertakan juga codingannya..

       
Option Explicit

Private Sub CommandButton1_Click()

' pertama kalian add reference ADODB  nya..
' oiyaaa gan..
' pastikan driver mysql odbc kalian sudah di install ya
' untuk cek nya bisa kalian cek di windows >> odbc
' seperti berikut..
' jika kalian belun install link download nya saya cantumkan di deskripsi ya
' plus link download database mysql nya jika kalian belum punya..
' lanjut ke koding ya..

Dim conn As New ADODB.Connection
Dim record_set As New ADODB.Recordset
Dim column_name As ADODB.Field
Dim i As Integer

conn.ConnectionString = "driver={mysql odbc 3.51 driver};server=127.0.0.1;database=asaltulisajedb;uid=root;password=;"
conn.ConnectionTimeout = 40
conn.Open

' kita masukan query untuk select semua data pada table 'tbl_kota_ind'
' 'tbl_kota_ind' bisa kalian ganti dengan nama table kalian ya guuuyysss...
record_set.Open "select * from tbl_kota_ind", conn

For Each column_name In record_set.Fields
    ThisWorkbook.Sheets(1).Range("A1").Offset(0, i).Value = column_name.Name
    i = i + 1
Next

ThisWorkbook.Sheets(1).Range("A2").CopyFromRecordset record_set
record_set.Close
Set record_set = Nothing

conn.Close
Set conn = Nothing

' oke kita test ya..
' berhasil ataukah masih debug..

End Sub

      

sekian dulu tutorial dari saya..

terimakasih
salam #ExcelSakti #HappyCoding
#AsalTulisAje