Assalamu’alaikum wr..wb...
Tanpa mengurangi rasa hormat saya terhadap para master yang sudah melanglang buana dalam dunia pemrograman, mungkin sudah hal biasa kalo sekedar koneksi vb 6.0 mySQL ini. Tapi disini saya Cuma ingin sharing ama sobat-sobat yang masih kebingungan untuk koneksi mySQL Vb 6.0 hehe...

Untuk koneksi databse mySQL dengan VB 6.0 memang agak sedikit lebih rumit dibandingkan dengan database Microsoft Access. Sebelum kita masuk ke form visual basic, terlebih dahulu kita buat sebuah tabel pada mysql, disini saya menggunakan phpmyadmin.  Agar tidak panjang lebar, saya anggap sobat sekalian sudah bisa membuat database pada phpmyadmin. Baiklah sobat bisa rancang tabelnya seperti dibawah ini :

  Nama database : db_latihan
  Nama tabel          : tb_lagu

Field
Jenis
judul
Varchar(20)
penyanyi
Varchar(20)


Setelah itu, mari kita tinggalkan sejenak phpmyadmin dan beralih pada form VB. Buka aplikasi microsoft visual basic 6.0  kemudian pilih Standart EXE. Sebelum mulai ngoding tambahkan References dengan cara klik menu project kemudian pilih References dan centang microsoft ActiveX Data Objects 2.8 Library. Untuk lebih jelasnya lihat gambar dibawah ini :


Setelah itu pilih kembali menu project kemudian pilih Add Module. Setelah itu copy-paste koding dibawah ini :

Option Explicit
Public KonekDatabase As New ADODB.Connection
Public reset_lagu As New ADODB.Recordset

Sub openDatabase()
    Dim SS, Port, DB, UID, PWD As String
            SS = "localhost"
            Port = "3306"
            DB = "db_latihan"
            UID = "root"
            PWD = ""
    Set KonekDatabase = New ADODB.Connection
    KonekDatabase.CursorLocation = adUseClient
    KonekDatabase.ConnectionString = "" _
        & "DRIVER={MYSQL ODBC 3.51 Driver};" _
        & "SERVER=" & SS & ";" _
        & "DATABASE=" & DB & ";" _
        & "UID=" & UID & ";" _
        & "PWD=" & PWD & ";" _
        & "OPTION="
    On Error Resume Next
    If KonekDatabase.State = adStateOpen Then
        KonekDatabase.Close
        Set KonekDatabase = New ADODB.Connection
        KonekDatabase.Open
    Else
        KonekDatabase.Open
    End If
    If Err.Number <> 0 Then
        MsgBox "SAYANG SEKALI, ANDA GAGAL MELAKUKAN KONEKSI", vbExclamation, "Info"
    Else
        MsgBox "Selamat Sobat, Anda Berhasil Melakukan koneksi dengan server MySQL..", vbInformation, "Success"
    End If
End Sub

Kemudian untuk ngeCEK apakah koneksi yang kita buat berhasil atau nggak, tambahkan sebuah ­CommandButton kemudian double klik button tersebut dan ketikkan open Database.

Jalankan aplikasi dan klik tombol button tersebut. Jika sukses maka sobat akan menerima pesan sukses, dan jika gagal sobat akan menerima pesan gagal koneksi.

Semoga berhasil J
Sekian . . . .