Cara Hapus Database MySQL VB 2010

Pada Tutorial VB 2010 kali ini adalah Cara Menghapus Database MySQL Dengan VB 2010. Dasar dalam membuat Aplikasi atau Program adalah anda bisa Input, Edit dan Delete. Bagi anda yang ingin belajar INPUT DATABASE atau EDIT DATABASE MYSQL silahkan klik pada link tersebut. karena pada Tutorial kali ini Fokus pada DELETE atau HAPUS Database MySQL dengan VB 2010.

Berikut langkah-langkahnya :
Pastikan anda sudah menginstall :

1. Xampp, sebagai aplikasi untuk database
2. Visual Basic 2010 (Baik versi Express maupun Ultimate)
3. Conector odbc versi 3.51 (sebagai koneksi VB 2010 ke MySQL)

Langkah 1 :
Buatlah database pada Xampp, dengan nama : dbbelajarvb
Buatlah Tabel dengan nama : barang
Agar lebih terlihat dengan bagus nantinya masukan data di tabel barang tersebut. sebagai contoh seperti dibawah ini :

Jika sudah membuat database dan Tabel diatas, mari kita lanjutkan ke Langkah 2.

Langkah 2 :
Buatlah Project dengan VB 2010, buatlah design form seperti gambar dibawah ini :

Form diatas terdapat : TexBox1, TexBox2, TexBox3, TexBox4, Button1, DatagridView1

Kemudian masukan Koding dibawah ini pada Form1 diatas :

Imports System.Data.Odbc
Public Class Form1
    Dim Conn As OdbcConnection
    Dim da As OdbcDataAdapter
    Dim ds As DataSet
    Dim str As String
    Dim CMD As OdbcCommand
    Dim RD As OdbcDataReader

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    End Sub
    Sub Koneksi()
        str = "Driver={MySQL ODBC 3.51 Driver};database=dbbelajarvb;server=localhost;uid=root"
        Conn = New OdbcConnection(str)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan Kode Barang 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Dim hapus As String = "DELETE FROM barang WHERE barang.kodebarang = '" & TextBox1.Text & "'"
                CMD = New OdbcCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
                MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")
                Call KondisiAwal()
            End If
        End If
    End Sub
    Sub KondisiAwal()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        Me.Text = "www.belajarvb.com"
        Koneksi()
        da = New OdbcDataAdapter("Select * from Barang", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Barang")
        DataGridView1.DataSource = (ds.Tables("Barang"))
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            CMD = New OdbcCommand("Select * from Barang where KodeBarang='" & TextBox1.Text & "'", Conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox2.Focus()
            Else
                TextBox2.Text = RD.Item("NamaBarang")
                TextBox3.Text = RD.Item("HargaBarang")
                TextBox4.Text = RD.Item("JumlahBarang")
                TextBox2.Focus()
            End If
        End If
    End Sub
End Class

Silahkan jalankan Project VB 2010 anda
Masukan Kode Barang yang akan anda Hapus, tekan ENTER pada Keyboard. kemudian untuk menghapusnya anda Klik Tombol Hapus.

Salam
BelajarVB.com