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
- 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;
- 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
- 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
- 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
Comment by Muri on 28 July 2011:
Gimana Caranya Menyambungkan String “SELECT * FROM barang WHERE kode=’” & TxtKode.Text AND Tgl =’” & TxtTgl “‘”; saya Coba Eror Terus
Select * From TblJual Where year(tgljual) And month(TglJual) gimana menyambungkan Stringnya
Comment by rojulman on 2 August 2011:
untuk sambung string di visual basic gunakan key word & , pastikan sebelum dan sesudah tanda “&” ada spasi
untuk perintah query jika tipe data non number dijadikan kriteria maka text kriteria harus diapit tanda kutip tunggal ..
perhatikan juga untuk tanggal gunakan format tahun-bulan-tanggal
sepertinya query anda harusnya seperti ini
dim sql as string
sql = “SELECT * FROM barang WHERE kode=’” & txtkode.txt & “‘ AND Tgl=’” & txtTgl.text “‘”
Comment by alfi on 6 September 2013:
Slamat pagi pak rojul
masih ngajar di nurul Fikri College belajar komputer..Thanks atas infonya, makasi..Maaf lahir batin
Comment by rojulman on 16 November 2013:
met pagi juga
masih sekarang sudah menjadi kampus STT Terpadu NurulFikri
maaf lahir batin juga