VB Net - Cara Hapus Data Pada Database

1:02:00 AM
Pada Pembelajaran VB Net Kali ini akan dibahas mengenai Cara Hapus Data Pada Database Dengan VB Net.
Berikut Langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :




2. Membuat Project VB Net dan Design Form
Buka Aplikasi VB Net anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder Project VB Net Anda yaitu bin\debug
Kemudian buatlah Design Form seperti gambar dibawah ini :


Kemudian masukan Koding dibawah ini :

Imports System.Data.OleDb
    Public Class FormBarang
        Dim CONN As OleDbConnection
        Dim CMD As OleDbCommand
        Dim DS As New DataSet
        Dim DA As OleDbDataAdapter
        Dim RD As OleDbDataReader
        Dim LokasiDB As String

        Sub Koneksi()
            LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBBelajarvb.mdb"
            CONN = New OleDbConnection(LokasiDB)
            If CONN.State = ConnectionState.Closed Then
                CONN.Open()
            End If
        End Sub

        Sub Kosongkan()
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox1.Focus()
        End Sub

        Sub TampilGrid()
            DA = New OleDbDataAdapter("select * from Barang", CONN)
            DS = New DataSet
            DA.Fill(DS, "Barang")
            DataGridView1.DataSource = DS.Tables("Barang")
            DataGridView1.ReadOnly = True
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            If TextBox1.Text = "" Then
                MsgBox("kode Barang masih kosong, silakan diisi dulu")
                TextBox1.Focus()
                Exit Sub
            Else
                If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                    Dim hapus As String = "delete * from Barang where KodeBarang='" & TextBox1.Text & "'"
                    CMD = New OleDbCommand(hapus, CONN)
                    CMD.ExecuteNonQuery()
                    MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")
                    Call TampilGrid()
                    Call Kosongkan()
                Else
                    Call Kosongkan()
                End If
            End If
        End Sub


        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Close()
        End Sub

        Private Sub FormBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Call Koneksi()
            Call TampilGrid()
            Call Kosongkan()
        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 OleDbCommand("Select * from Barang where KodeBarang='" & TextBox1.Text & "'", CONN)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not RD.HasRows Then
                    TextBox2.Text = ""
                    TextBox3.Text = ""
                    TextBox2.Focus()
                Else
                    TextBox2.Text = RD.Item("NamaBarang")
                    TextBox3.Text = RD.Item("JumlahBarang")
                    TextBox2.Focus()
                End If
            End If
        End Sub
End Class

Cara Hapusnya adalah :
Pada text1 atau Kode barang, masukan contoh BRG003, Kemudian Anda ENTER pada Keyboard. Setelah muncul data, ganti data seperti Nama Barang atau Jumlah Barang. Kemudian Klik Hapus.


Semoga bermanfaat untuk anda, Jika ada kesulitan atau ingin bertanya, silahkan berkomentar dibawah

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

4 komentar

Write komentar
July 13, 2014 at 1:31 PM delete

kok textboxnya sampe 4? padahal pada gambar textbox cuma ada 3..

Reply
avatar
Tutarni Aliya
AUTHOR
July 14, 2014 at 5:23 AM delete

Hi Free,
Oh iya.. silahkan hapus saja TextBox4 nyahhhh :)

Reply
avatar
Jaka Al
AUTHOR
July 9, 2015 at 8:36 AM delete

ini kan databasenya ms acces. kalau codingnya saya gunakan untuk database sql server 2008 apa bisa???

Reply
avatar
Tutarni Aliya
AUTHOR
July 9, 2015 at 8:59 PM delete

Hi Jaka,
Untuk Database SQL Server bisa juga, namun beda koneksinya..
Nanti jika ada waktu luang saya berikan tutorialnya yaaa..
Mohon ditunggu

Reply
avatar