Vb .Net - Cara Hapus Data Didalam Database

Masih di Tutorial Visual Basic .Net. Pada Tutorial kali ini kami akan membahas ihwal 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 yaitu ibarat gambar dibawah ini :

Jika sudah silahkan Save lalu anda dapat mengisi data ibarat 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 memakai 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, lalu untuk menghapus data, silahkan Double Klik pada DatagridView1 dan jikalau data sudah muncul, maka anda dapat Klik Hapus. Maka dengan Klik tersebut anda telah menghapus data pada Tabel TBL_PEGAWAI pada Database SQL Server anda...

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

 Demikian Tutorial VB .NET - Cara Hapus Data Didalam Database, agar bermanfaat untuk anda

Share this post