VB Net - Cara Edit Database

12:53:00 AM
Pada Pembelajaran VB Net Kali ini akan dibahas mengenai Cara Edit Database Pada 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 Form1
        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 Sub
        Sub KondisiAwal()
            Koneksi()
            DA = New OleDbDataAdapter("Select * from barang", CONN)
            DS = New DataSet
            DS.Clear()
            DA.Fill(DS, "Barang")
            DataGridView1.DataSource = (DS.Tables("Barang"))
        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 = "" Then
                MsgBox("Data belum lengkap, Pastikan Kode Barang 6 Digit dan Semua form terisi")
                Exit Sub
            Else
                Call Koneksi()
                Dim edit As String = "update Barang set NamaBarang='" & TextBox2.Text & "',JumlahBarang='" & TextBox3.Text & "' where KodeBarang='" & TextBox1.Text & "'"
                CMD = New OleDbCommand(edit, CONN)
                CMD.ExecuteNonQuery()
                MsgBox("Data berhasil di Edit", 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_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        End Sub

        Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
            Call Koneksi()
          
        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 Editnya adalah :
Pada text1 atau Kode barang, masukan contoh BRG001, Kemudian Anda ENTER pada Keyboard. Setelah muncul data, ganti data seperti Nama Barang atau Jumlah Barang. Kemudian Klik Simpan.


Mohon diperhatikan untuk anda :
Anda boleh mereport Tutorial kami diatas, asalkan anda mencantumkan sumbernya

Semoga bermanfaat untuk anda, ikuti terus tutorial dari kami lainnya yaitu : Cara Menghapus Data didalam Database Dengan VB .NET

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
david animals
AUTHOR
January 27, 2015 at 12:31 AM delete

cara save visual basicnya jadi aplication format.exe gimana sih kak?

Reply
avatar
Tutarni Aliya
AUTHOR
March 31, 2015 at 4:05 AM delete

Hi David,
Untuk VB .Net tidak perlu melakukan .exe, secara otomatis sudah exe.
Silahkan lihat pada folder bin/debug

Reply
avatar
rae maulana
AUTHOR
December 8, 2015 at 2:28 PM delete

Terima kasih Ibu Tutarni Aliya , dengan banyaknya tutorial yang Ibu Upload , Saya bisa menyelesaikan tugas akhir sekolah saya bu :) maaf bu untuk menjadikan proyek yang sudah saya buat di VB 2010 express biar jadi aplikasi tanpa membuka VB nya ..

Reply
avatar
Tutarni Aliya
AUTHOR
December 8, 2015 at 8:02 PM delete

Hi Rae,
Untuk aplikasi yang kamu buat, sudah membuat exe secara otomatis di folder Bin / Debug
Namun jika ingin membuat Installer yang bisa diinstal di komputer lain, silahkan gunakan VB 2010 versi Ultimate
Karena untuk express tidak ada
Saya juga sudah membuatkan tutorialnya di Blog ini, silahkan dicari saja yaaa...

Reply
avatar