Aplikasi program yang dikembangkan dengan Visual Basic 6.0 (VB6) dapat menggunakan database MySQL. Hal ini dimungkinkan dengan menginstall Driver MySQL pada sistem windows anda. Driver MySQL dapat di download di sini .

Berikut ini Contoh kode program menggunakan Visual Basic 6.0 yang terhubung ke Database MySQL

1. String Koneksi Database VB MySQL dengan MySQL Engine 3.51
   Ada Empat variabel yang perlu diingat :

   db_server=berisi lokasi server mysql : localhost, domain atau nomor IP server mysql
   db_name=nama basis datanya
   db_user =nama pemilik database
   pass_user = password dari user
   DRIVER={MySQL ODBC 3.51 Driver};db_server=localhost;DATABASE=db_name;USER=db_user;PWD=pass_user;OPTION=3;
   

2. Buat fungsi yang mengembalikan String koneksi database, letakan di dalam module

   Function ambilStringKoneksi() As String
   ambilStringKoneksi = "DRIVER={MySQL ODBC 3.51 Driver};" _
   & "SERVER=localhost;DATABASE=dbmandokumen;" _
   & "USER=siswa;PWD=1234;OPTION=3;"
   End Function
   

3. Contoh Query Insert pada prosedure simpan

   sub simpan()
     Dim cn As ADODB.Connection
     Set cn = New ADODB.Connection
     ' definisikan query
     Dim sql As String
     sql = "INSERT INTO barang(kode,nama) VALUES ('K001','Kulkas 2 Pintu')"
     ' buka koneksi
     cn.Open ambilStringKoneksi()
     ' eksekusi query, hasilnya simpan di recordset
     cn.Execute(sql)
     ' tutup koneksi
     cn.close
     set cn = nothing
   end sub
   

4. Query SELECT simpan di Recordset

   sub simpan()
     Dim cn As ADODB.Connection
     Dim rs  AS ADODB.Recordset
     Set cn = New ADODB.Connection
     Set rs = New ADODB.Recordset
     ' definisikan query
     Dim sql As String
     sql = "SELECT * FROM barang WHERE kode='K001')"
     ' buka koneksi
     cn.Open ambilStringKoneksi()
     ' eksekusi query, hasilnya simpan di recordset
     SET rs = cn.Execute(sql)
   If Not rs.EOF And Not rs.BOF Then
      ' You have results
      MsgBox "NAMA BARANG " & rs!nama
   Else
      MsgBox "DATA TIDAK DITEMUKAN !!!!  "
   End If
   
     ' tutup koneksi
     cn.close
     set cn = nothing
     set rs = nothing
   end sub