Koneksi VB 6 dengan MySQL

Selamat pagi sobat blogger semua,
pada kesempatan kali ini admin akan berbagi tutorial untuk koneksikan vb 6 dengan database MySQL. Seperti diketahui vb 6 merupakan aplikasi yang cukup familiar untuk para programmer aplikasi desktop, dan bagi yang sedang menyusun tugas akhir/ skripsi mungkin tutorial ini akan sedikit membantu.
langsung saja ke tutorialnya...

1. instal dulu konektor untuk menghubungkan VB6 dengan MySQL
    untuk x86 bisa unduh disini x64 unduh disini
2. buat dulu database MySQL ditutorial ini  nama database yang digunakan  "latihan"

  
3. buat project baru di vb 6
4. agar tidak menuliskan coding berulang di dalam form,
    pilih modul dan tuliskan coding di bawah ini

Option Explicit
Public koneksi As New ADODB.Connection
Public rs As ADODB.Recordset
Public str As String

'buat fungsi bukadatabase()
Public Sub bukadatabase()
    Set koneksi = New ADODB.Connection
    koneksi.CursorLocation = adUseClient

        koneksi.ConnectionString = "" _
        & "DRIVER={MYSQL ODBC 3.51 Driver};" _
        & "SERVER=localhost;" _
        & "DATABASE=latihan;" _
        & "UID=root;" _
        & "PWD=;" _
        & "OPTION="
     
    On Error Resume Next
        If koneksi.State = adStateOpen Then
            koneksi.Close
            Set koneksi = New ADODB.Connection
            koneksi.Open
        Else
            koneksi.Open
        End If
 
    'jika gagal muncul pesan error
    If Err.Number <> 0 Then
        MsgBox "Koneksi MySQL gagal", vbCritical, "Error"
    Else
    'jika koneksi berhasil pesan sukses
        MsgBox "Koneksi MySQL sukses", vbInformation, "Koneksi Sukses"
    End If
End Sub

hasilnya akan seperti berikut ini:

jika sudah selesai, untuk tes apakah program tersebut sudah jalan atau belum,

pada form load di form1 tambahkan code call bukadatabase

jika berhasil akan tampil kode koneksi sukses...

sekian tutorial ini semoga bermanfaat...

dari: berbagai sumber.