rizaarifudin[dot]com

Berbagi ilmu, pengalaman, tips dan trik, software

You are here: » Menyimpan Data ke MySQL pada VB

Menyimpan Data ke MySQL pada VB

Menyimpan Data ke MySQL pada VB >>

Menyimpan data merupakan salah satu yang utama pada database. oh iya, Apa kabar teman, beberapa hari yang lalu komputer bermasalah dan banyak kerjaan juga (“alesan” :D) akibatnya baru sempat nulis lagi hari ini. OK langsung saja, posting  ini merupakan lanjutan dari posting saya sebelumnya. Masih seputar VB dan MySQL dengan koneksi data vbmysqldirect, kali ini saya akan membahas sedikit mengenai bagaimana menyimpan data dari VB ke dalam database MySQL. Mungkin Anda juga banyak menemuinya apabila searching bagaimana cara menyimpan data ke MySQL menggunakan google. 🙂 But, it’s OK. Tidak ada salahnya mengulang yang baik, daripada selalu mengulang kesalahan (Motivator Mode ON :)).

Ada beberapa cara untuk menyimpan data ke dalam database dari VB ke MySQL. Kali ini saya hanya memberikan 2 cara (Simpan Cara 1 dan Simpan Cara 2) untuk menyimpan datanya. Pertama kita buat design form seperti gambar berikut ini:

Menyimpan Data ke MySQL pada VB

Keterangan Gambar untuk form pada VB untuk menyimpan data (Sesuai nomer warna merah):

  1. Textbox — > Name : txtAname
  2. Textbox — > Name : txtSex
  3. Textbox — > Name : txtType
  4. Textbox — > Name : txtCountry
  5. Textbox — > Name : txtYear
  6. Textbox — > Name : txtCnum
  7. Command — > Name : CmdKosongkan
  8. Command — > Name : CmdSimpan1
  9. Command — > Name : CmdSimpan2
  10. Command — > Name : CmdKeluar

Setelah design Form untuk menyimpan data selesai silahkan lengkapi source codenya seperti berikut ini:

Dim koneksi As New MYSQL_CONNECTION
Dim rs As New MYSQL_RS

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdKosong_Click()
txtAname.Text = ""
txtSex.Text = ""
txtType.Text = ""
txtCountry.Text = ""
txtYear.Text = ""
txtCnum.Text = ""
txtAname.SetFocus
End Sub

Private Sub CmdSimpan1_Click()
On Error GoTo salah
rs.CloseRecordset
rs.OpenRs "Select * From TheAnimals", koneksi
rs.AddNew
rs.Fields(0) = txtAname.Text
rs.Fields(1) = txtSex.Text
rs.Fields(2) = txtType.Text
rs.Fields(3) = txtCountry.Text
rs.Fields(4) = txtYear.Text
rs.Fields(5) = Val(txtCnum.Text)
rs.Update
CmdKosong_Click
Exit Sub
salah:
MsgBox "Pengisian data salah, kode kesalahan : " & Err.Number,
 vbCritical, "Peringatan"
End Sub

Private Sub CmdSimpan2_Click()
On Error GoTo salah
koneksi.Execute "INSERT INTO TheAnimals VALUES ('" & txtAname & "',
 '" & txtSex & "','" & txtType & "','" & txtCountry & "',
" & Val(txtYear) & "," & Val(txtCnum) & ")"
CmdKosong_Click
Exit Sub
salah:
MsgBox "Pengisian data salah, kode kesalahan : " & Err.Number,
vbCritical, "Peringatan"
End Sub

Private Sub Form_Load()
koneksi.OpenConnection "localhost", "root", "root", "dbzoo", 3306
End Sub

Pada source code menyimpan data ke MySQL dari VB diatas belum ada pengecekan kesalahan untuk setiap textbox, Anda bisa  melengkapinya sendiri. Sementara penanganan kesalahan pada saat menyimpan data hanya saya berikan secara umum yaitu apabila data tidak bisa tersimpan, yang diletakkan pada command button CmdSimpan1 dan CmdSimpan2 saja :). Tentunya masih banyak kekurangan pada cara menyimpan data ke MYSQL pada VB ini.

Selamat mencoba semoga bermanfaat.

Jangan lupa kasih comment 🙂

Posted by 0 Responses
 

Free Email Newsletter

Stay Updates with this Blog. Get Free email newsletter updates..

And then confirm your email subcription

   

No Comment to “Menyimpan Data ke MySQL pada VB”

  1. No Comment yet. Be the first to comment...
Leave your comment here:

*

Jun
3
2011
 
Archives
Chat
Name:
Email:
For:  
Mail will not be published
(but it's required)