Membuat CRUD Database Access VB .NET

karena topik pembahasan kita kali ini mengenai VB maka, saya akan membahas tentang cara membuat CRUD di VB.NET database access.ACCBD.
mungkin teman-teman sudah tau apa itu CRUD. Jika belum saya akan jelaskan.
CRUD adalah singkatan dari Create, Read , Update, dan Delate. Crud biasa diucapkan dalam kalangan programmer VB agar lebih singkat.
Disini saya akan menjelaskan secara singkat dan jelas, dari masing masing koding CRUD itu sendiri.
disini saya menggunakan database Access extensi ACCDB ( extensi khusus buat MS.ACCESS 2007,2010 dan seterusnya).

Oke sekarang kita langsung saja ke topik pembahasan.

Membuat CRUD Database Access VB .NET

1. Membuat Form CRUD Dengan VB.NET

Keterangan gambar :

• Dari gambar diatas, adalah contoh sederhana desain form VB.Net
• buatlah sesuai form yg teman inginkan.
• disini saya menggunakan :

1. 2 label :  Nim dan Nama
2. 2 texbox [TextBox1.Text] dan [TextBox2.Text]
3. 3 button yaitu : simpan [Button1] , ubah [Button2] , hapus [Button3]
4. 1 DataGridView : [DataGridView1]

      jika sudah oke, mari kita lanjut ke tahap 2.

2. Membuat Database dan Tabel Dengan Access ACCDB

Ditahap dua ini buatlah database access seperti punya saya, contonhya : sisco.accdb

dan simpan di file lokasi project anda contohnya : Tutorial CRUD > Folder BIN > Debug

jika sudah kita lanjut membuat table seperti gambar dibawah ini.

disini saya membuat nama table : sisco25

 setelah buat table dgn nama yg di inginkan, teman-teman coba buat sample data seperti dibawa ini.

setelah membuat database extensi ACCBD, table, dan buat sample data. maka kita siap lanjut ke tahap berikutnya.

3. Membuat Module, Simpan, Edit, Delete VB .NET

Pada tahap 3, pertama-tama kita harus membuat Modul dahulu, fungsi module disini yaitu untuk mengkoneksikan database dan form VB.Net kita. baru setelah itu kita lanjut membuat koding Simpan, Edit, dan Hapus.

Oke mari kita simak sama - sama koding di bawa ini.

Membuat Koneksi Database dengan Module database Access.

petama kita klik Project > Add Module > Add  lalu ini Koding seperti dibawa ini.

Modul

Imports System.Data.OleDb
Module Module1
    Public Conn As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public cmd As OleDbCommand
    Public rd As OleDbDataReader
    Public Str As String

    Public Sub Koneksi()
        Str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\sisco.accdb"
        Conn = New OleDbConnection(Str)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub
End Module 

setelah membuat Module diatas ,kita lanjut pada Form1, dimana pada form1 ini kita mengisi konding perintah untuk tampilkan form1 saat di start, setelah itu baru kita buat Koding pada masing-masing button CRUD yang ada di Form1. Koding Form1 seperti dibawa ini.

Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from sisco25", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "sisco25")
        DataGridView1.DataSource = (ds.Tables("sisco25"))
    End Sub
End Class

keterangan koding Form1 di atas yaitu : sisco25 adalah nama table yang ada di dalam database access sisco.ACCDB

Tahap selanjutnya kita Buat Koding CRUD, yang terdiri dari Simpan, Edit, dan Hapus.
yang nanti kita pastekan di dalam FORM1.

Button Simpan

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = ""  Then
            MsgBox("Silahkan Isi Semua Form")
        Else
            Dim CMD As OleDbCommand
            Call Koneksi()
            Dim simpan As String = "insert into sisco25 values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
            CMD = New OleDbCommand(simpan, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Input data berhasil")
        End If
    End Sub

Button Edit

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Koneksi()
        Dim CMD As OleDbCommand
        Dim edit As String = "update sisco25 set Nama='" & TextBox2.Text & "' where Nim='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(edit, Conn)
        CMD.ExecuteNonQuery()
        MsgBox("Data Berhasil diUpdate")
    End Sub 

Button Hapus

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM atau NAMA")
        Else
            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Call Koneksi()
                Dim CMD As OleDbCommand
                Dim hapus As String = "delete From sisco25 where Nim='" & TextBox1.Text & "'"
                CMD = New OleDbCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
            End If
        End If
    End Sub

Demikianlah Tutorial yanng singkat ini Tentang, Membuat CRUD Database Access ACCDB VB .NET. Teman-teman bisa Mengcopy koding di atas dan langsung mempraktekan.
Semoga Postingan ini dapat bermanfaat  membantu teman-teman semua, dan jangan lupa Share dan beri komentar dibawah ini.
Ikuti terus Tutorial tentang VB.NET atau tutorial-tutorial lainnya.