VB.NET MySQL: Create, Read, Update, Delete (CRUD) - Part 3

Part 1 | Part 2 | Part 3 | Part 4 

Makasih yah udah betah mantengin artikel-artikel nya Rani. Artikel ini lanjutan dari Part 2.

User memilih baris mana yang akan dihapus kemudian klik tombol Delete. Jadi kita akan membuat prosedure berikut pada event tbrDelete_Click. Sebelum menghapus data diberikan pesan konfirmasi proses hapus terlebih dahulu.

Private Sub tbrDelete_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrDelete.Click

    If MsgBox("Yakin akan menghapus data?", MsgBoxStyle.YesNo, _
              "Konfirmasi") = MsgBoxResult.No Then Exit Sub

    Dim myCommand As New MySqlCommand

    conn = New MySqlConnection()
    conn.ConnectionString = "server=localhost;user id=root;" & _
                            "password=;database=database"
    Try
        conn.Open()
        SQL = "DELETE FROM class WHERE classcode = " & _
              "'" & grdData.CurrentRow.Cells(0).Value & "'"

        myCommand.Connection = conn
        myCommand.CommandText = SQL
        myCommand.ExecuteNonQuery()

        MsgBox("Data terhapus")

        tbrCancel_Click(Nothing, Nothing)

        conn.Close()
    Catch myerror As MySqlException
        MessageBox.Show("Error: " & myerror.Message)
    Finally
        conn.Dispose()
    End Try
End Sub

Terakhir tambahkan procedure untuk menutup form pada event tbrClose_Click.

Private Sub tbrClose_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrClose.Click
    Me.Close()
End Sub

Nah sudah lengkap deh, mari kita coba...

Untuk code selengkapnya di Part 4 yah...

Tutorial VB.NET dan MySQL Lainnya

Lihat juga tutorial ini via youtube yah! ^_^