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.
Free Email Newsletter
And then confirm your email subcription
No Comment to “Menghapus Data dari MySQL pada VB”