Contoh VB 6.0 dengan database MSQL (ODBC)

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

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!