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 :

    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
    

There Are 4 Responses So Far. »

  1. 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

  2. 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 “‘”

  3. Slamat pagi pak rojul

    masih ngajar di nurul Fikri College belajar komputer..Thanks atas infonya, makasi..Maaf lahir batin

  4. met pagi juga
    masih sekarang sudah menjadi kampus STT Terpadu NurulFikri

    maaf lahir batin juga

Post a Response