Pada Tutorial Visual Basic 2013 kali ini akan dibahas mengenai cara Hapus Database SQL Server pada VB Net 2013. Sebelum mengikuti tutorail kali ini, kami sarankan anda telah mengikuti tutorial kami sebelumnya karena jika anda tidak mengikuti tutorial sebelumnya maka anda akan kesulitan dan bahkan anda bisa tersesat. Berikut dibawah adalah tutorial VB 6.0 Database SQL Server pada pembahasan sebelumnya :
1. Cara Koneksi Database SQL Server dengan VB Net 2013
2. Cara Input kedalam Database SQL Server dengan VB Net 2013
3. Cara Edit Data Database SQL Server dengan VB Net 2013
Jika sudah mengikuti langkah dibawah, anda bisa mengikuti tutorial dibawah ini :
- Pertama pastikan anda sudah mempunyai Database dan Tabel SQL Server
Jika belum punya, anda bisa membuatnya seperti pada Tutorial No 1 diatas
- Buka Visual Basic 2013 pada komputer anda
- Pada Form1, buatlah design seperti gambar dibawah ini :
Imports System.Data.SqlClientKemudian silahkan Run atau Jalankan Project VB Net 2013 anda
Public Class Form1
Dim CONN As SqlConnection
Dim CMD As SqlCommand
Dim DS As New DataSet
Dim DA As SqlDataAdapter
Dim RD As SqlDataReader
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "data source=TMEDIA007;initial catalog=DB_TEST;integrated security =true"
Conn = New SqlConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call TampilGrid()
End Sub
Sub TampilGrid()
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"))
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
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 = "" Then
MsgBox("Data belum lengkap, Pastikan NIP 10 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 TampilGrid()
End If
End Sub
Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Call Koneksi()
CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP='" & 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("NAMA_PEGAWAI")
TextBox3.Text = RD.Item("ALAMAT_PEGAWAI")
TextBox4.Text = RD.Item("TELP_PEGAWAI")
TextBox2.Focus()
End If
End If
End Sub
End Class
Note :
Untuk melakukan Hapus atau Delete Database, caranya masukan NIP pada TextBox1 kemudian tekan ENTER pada Keyboard. Jika data sudah muncul anda bisa Klik Tombol Hapus.
Maka data akan terhapus
Terima kasih telah berkunjung ke Blog Belajar VB. kami senang jika anda berkomentar dibawah
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
