Perintah simpan di vb 6 menggunakan database mysql

Tutorial kali kita akan membuat tombol simpan di vb 6 menggunakan database mysql. sebelum kita lanjut sebaiknya lihat tutorial berikut Setting koneksi Mysql di Vb 6 dengan ADODB. dikarenakan kita akan memakai file yang ada pada artikel tersebut.

yang kita butuhkan yaitu :

1. database biodata (disini)
2. 1 form (1 datagrid, 4 label, 4 textbox, 2 button)
3. 1 module

 buatlah tampilan form seperti gambar berikut :

buka module dan ketikkan perintah berikut ini :
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String

Public Sub buka()
On Error GoTo pesan
strcon = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mybiodata;Initial Catalog=dbbiodata"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub

Public Sub tutup()
con.Close
End Sub


sekarang kembali ke form 1,ketik perintah berikut ini :
Option Explicit
Dim lihat As New Recordset
Dim sql As String
Dim biodata As New Recordset

Private Sub datapribadi()
con.CursorLocation = adUseClient
Set lihat = New Recordset
sql = "Select * From tbbiodata "
lihat.Open sql, con, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = lihat.DataSource
End Sub

Panggil procedure datapribadi di form load (klik 2x di form)
Private Sub Form_Load()
buka
datapribadi
End Sub

ketik 2x tombol keluar
Private Sub Command2_Click()
End
End Sub

terakhir klik 2x tombol simpan
Private Sub Command1_Click()
buka
Set biodata = New Recordset
sql = "insert into tbbiodata values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "')"
Set biodata = con.Execute(sql)
datapribadi
MsgBox "Biodata berhasil disimpan..!", vbInformation, "Informasi"

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub

sampai sini selesai,jika berhasil akan seperti gambar dibawah ini :

untuk source code silahkan download disini
jika kurang mengerti silahkan komen

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)