rizaarifudin[dot]info

Berbagi ilmu, pengalaman, tips dan trik, software

You are here: » Menghapus Data dari MySQL pada VB

Menghapus Data dari MySQL pada VB

Menghapus Data dari MySQL pada VB >>

Menghapus data merupakan salah fasilitas yang harus ada pada pengolahan database. Ada beberapa cara untuk menghapus data dari database MySQL pada program VB. Dalam tulisan menghapus data dari MySQL pada VB ini hanya saya berikan satu cara untuk menghapusnya, yaitu dengan memanfaat perintah SQL secara langsung melalui koneksinya. Cara ini sangat mudah digunakan untuk menghapus data dari database MySQL. Proses menghapus data diawali dengan mencari data yang akan dihapus terlebih dahulu. Kemudian baru dilakukan penghapusan apabila data yang kita cari ketemu.

Berikut ini saya tuliskan source codenya untuk melakukan proses menghapus data.

Pertama kita design dulu form untuk menghapus data sebagai berikut ini:

Menghapus Data dari MySQL pada VB

Keterangan:

Keterangan Gambar (Sesuai nomer):

  1. Textbox— > Name : txtCari
  2. Command Button— > Name : CmdCari
  3. Textbox— > Name : txtAname
  4. Textbox— > Name : txtSex
  5. Textbox— > Name : txtType
  6. Textbox— > Name : txtCaountry
  7. Textbox— > Name : txtYear
  8. Textbox— > Name : txtCnum
  9. Command Button— > Name : CmdKosong
  10. Command Button— > Name : CmdHapus

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

Dim koneksi As New MYSQL_CONNECTION
Dim rs As New MYSQL_RS

Private Sub CmdCari_Click()
rs.CloseRecordset
rs.OpenRs "SELECT * FROM TheAnimals Where Aname='" & txtCari & "'", koneksi
If rs.RecordCount > 0 Then
rs.MoveFirst
txtAname.Text = rs.Fields(0)
txtSex.Text = rs.Fields(1)
txtType.Text = rs.Fields(2)
txtCountry.Text = rs.Fields(3)
txtYear.Text = rs.Fields(4)
txtCnum.Text = rs.Fields(5)
Else
pesan = MsgBox(txtCari & " tidak ditemukan", vbInformation, "Peringatan")
End If
End Sub

Private Sub CmdHapus_Click()
koneksi.Execute "DELETE FROM TheAnimals WHERE Aname = '" & txtAname & "'"
CmdKosong_Click
End Sub

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

Private Sub Form_Activate()
txtCari.SetFocus
End Sub

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

Semoga tulisan tentang menghapus data dari MySQL pada VB ini bisa bermanfaat bagi Anda untuk membuat sebuah aplikasi kecil tentang mengolah data dari MySQL. Selamat mencoba semoga bermanfaat.

 

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 “Menghapus Data dari MySQL pada VB”

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

*

Jun
9
2011
 
Tag
Archives
Pesan

Warning: Creating default object from empty value in /home/rizaarif/public_html/wp-content/plugins/schreikasten/schreikasten.php on line 1814
Name:
Email:
For:  
Mail will not be published
(but it's required)
tes
(Monday, Nov 11. 2013 04:39 AM)
coba

1