Laman

Rabu, 08 Februari 2012

Program VB 6.0 koneksi dengan Database MySql (ODBC)


Author : Oky ALan Budi Kusuma
Setelah sebelumnya saya pernah menuliskan tentang perintah simpan vb 6.0 dengan menggunakan mysql saja, sekarang saya akan mencoba menuliskan contoh vb dengan database MYSQL (ODBC).
pertama kita buat dulu database dengan nama database siswa dan berikan 

satu tabel lalu beri nama tabel itu dengan nama data_siswa.

Setelah selesai membuat database lalu kita koneksikan menggunakan myodbc connector caranya silahkan lihat disini
kemudian buat form dengan tampilan seperti ini


setelah selesai tinggal kita membuat kode programnya, untuk kode programnya cukup sederhana asalkan kita sedikit menguasai perintah MYSQL
dan kode programnya adalah seperti ini

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub konek() 'perintah ini digunakan untuk koneksi mysql dengan vb 6.0
db.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Siswa"
db.Open
End Sub

Private Sub cmdhapus_Click()
Dim hapus As String
hapus = "delete from data_siswa"
Set rs = db.Execute(hapus, adCmdText)
Call tbl
Grid1.Refresh
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdsimpan_Click()
Dim simpan As String
simpan = "insert into data_Siswa()values('" & Tnim.Text & "','" & tnama.Text & "','" & Format(ttl.Text, "yyyy-mm-dd") & "','" & talamat.Text & "','" & tlp.Text & "')"
Set rs = db.Execute(simpan, , adCmdText)
Call tbl
Grid1.Refresh
End Sub

Private Sub Form_Activate()
tbldata = "select * from data_siswa"
Call tbl
End Sub

Private Sub Form_Load()
Dim tbldata As String
Call konek
End Sub


Sub tbl() ' kode ini untuk menampilkan tabel msql pada grid vb 6.0
tbldata = "select * from data_siswa"
Set rs = db.Execute(tbldata, , adCmdText)
Set Grid1.DataSource = rs
End Sub


sekarang selesai deh vb 6.0 nya selamat mencoba,dan semoga berhasil

2 komentar:

  1. Itu hapusnya gak bisa cuma 1 record aja ya ??

    BalasHapus
  2. bos, permisi mohon numpang tanya, maaf

    ini kode buat modulenya yah ? / maksdunya kode ini taro di modulenya apa taro di kode bagian form nya ??

    Public db As New ADODB.Connection
    Public rs As New ADODB.Recordset
    Public Sub konek() 'perintah ini digunakan untuk koneksi mysql dengan vb 6.0
    db.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Siswa"
    db.Open
    End Sub


    terimakasih !!

    BalasHapus