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:

Keterangan:

Keterangan Gambar (Sesuai nomer):

Textbox— > Name : txtCari
Command Button— > Name : CmdCari
Textbox— > Name : txtAname
Textbox— > Name : txtSex
Textbox— > Name : txtType
Textbox— > Name : txtCaountry
Textbox— > Name : txtYear
Textbox— > Name : txtCnum
Command Button— > Name : CmdKosong
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 riza 0 Responses