VB .NET - Cara Hapus Data Didalam Database

Masih di Tutorial Visual Basic .Net. Pada Tutorial kali ini kami akan membahas tentang Cara Mendelete atau menghapus Data Kedalam Database Dengan Menggunakan VB .Net 2010 dan Database SQL Server 2008.

Berikut langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI adalah seperti gambar dibawah ini :

Jika sudah silahkan Save kemudian anda bisa mengisi data seperti gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :

Pada Form1 diatas, kami menggunakan TextBox1, TextBox2, TextBox3, TextBox4, Button1, Button2, DatagridView1 dan Label

Jika sudah selesai, silahkan masukan koding dibawah ini pada Form1 :

 
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim CMD As SqlCommand
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))
        DataGridView1.ReadOnly = True
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    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 NIP 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim hapus As String = "delete from TBL_Pegawai where NIP='" & TextBox1.Text & "'"
            CMD = New SqlCommand(hapus, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")
            Call KondisiAwal()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        Call Koneksi()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP='" & DataGridView1.Item(0, i).Value & "'", Conn)
        RD = CMD.ExecuteReader
        RD.Read()
        If Not RD.HasRows Then
            TextBox2.Focus()
        Else
            TextBox1.Text = RD.Item("NIP")
            TextBox2.Text = RD.Item("Nama_Pegawai")
            TextBox3.Text = RD.Item("Alamat_pegawai")
            TextBox4.Text = RD.Item("Telp_Pegawai")
            TextBox2.Focus()
        End If
    End Sub
End Class

Jika sudah silahkan Run atau jalankan project VB .Net anda, kemudian untuk menghapus data, silahkan Double Klik pada DatagridView1 dan jika data sudah muncul, maka anda bisa Klik Hapus. Maka dengan Klik tersebut anda telah menghapus data pada Tabel TBL_PEGAWAI pada Database SQL Server anda...

Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda