MySql dan VB

VB 6.0 dan MySQL

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 :

   1 2 3 4 5

   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

   1 2 3 4 5

   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

   1 2 3 4 5 6 7 8 9 10 11 12 13 14

   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

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

   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