Microsoft Excel : Membuat Koneksi dengan MySQL

Sama halnya dengan objek lain seperti datagrid pada komponen .NET, pada Microsoft Excel kita juga dapat melakukan koneksi dan juga kueri ke server database melalui komponen ADO. Microsoft menyediakan library Microsoft ActiveX Data Object Library untuk semua kebutuhan koneksi ke database.

Seperti diketahui, Microsoft Office menyediakan tool macro dengan bahasa pemrograman Visual Basic 6.0 yang mana kita dapat menambahkan beberapa objek tertentu kedalam file Sheet kita dan juga dapat dikombinasikan dengan objek lain sesuai kebutuhan.

Pada tutorial ini akan dipaparkan mengenai cara koneksi ke database MySQL dan menampilkan data ke dalam grid melalui Microsoft Excel 2007.

Membuat Koneksi

  • Pastikan mode Developer pada Microsoft Excel telah aktif. Untuk mengaktifkan mode developer dapat dibaca pada tutorial berikut : https://www.alfabet.web.id/2016/07/mengaktifkan-mode-developer-office.html
  • Pada tab Developer (Ctrl+L), klik Visual Basic (Alt+F11)
  • Pada jendela baru, klik menu Tools -> References
  • Tambahkan library berikut kedalam sistem dengan cara mencentang ceklist:
  • Microsoft ActiveX Data Objects 2.8 Library
  • Microsoft ActiveX Data Objects Recordset 2.8 Library
  • Tambahkan sebuah Module dengan cara klik Insert -> Module
  • Deklarasikan sebuah variabel yang nantinya akan dipakai pada semua module dan procedure
    • Public cnn As ADODB.Connection
Public ServerName As String
Public DBName As String
Public UserID As String
Public Password As String
  • Pada module tersebut buatlah sebuah Function Koneksi()
    • Public Function Test_Koneksi()
    ServerName = "localhost"
    DBName = "test"
    UserID = "root"
    Password = ""
    
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}" & _
                           ";SERVER=" & ServerName & _
                           ";DATABASE=" & DBName & _
                           ";UID=" & UserID & _
                           ";PWD=" & Password & ""
    cnn.Open
End Function
    Pada baris yang ditandai {MySQL ODBC 5.1 Driver} adalah versi dari ODBC MySQL Driver, sesuaikan dengan ODBC yang telah diinstall pada komputer anda. ODBC dapat didownload di https://dev.mysql.com/downloads/connector/odbc/
  • Buatlah sebuah pada menu Developer -> Insert
  • Gantilah nama dari diatas dengan nama
  • Double klik CommandButton, lalu masukkan kode dibawah :
    • On Error GoTo Err
    Call Test_Koneksi
    If cnn.State = 1 Then
        MsgBox "Koneksi berhasil", vbInformation
    End If
    Exit Sub
Err:
    MsgBox "Koneksi gagal. Message :" & Err.Description, vbCritical
    Exit Sub
  • Selesai

Download source code

Microsoft Excel : Membuat Koneksi dengan MySQL

Baca Juga :

Older Post
Newer Post