VB.NET Tutorial - cara mudah membuat aplikasi CRUD sederhana di visual basic net dengan menggunakan database Ms access dengan menggunakan koneksi OleDB class yang mudah untuk dipelajari khusus untuk pemula dalam pemrograman basic, seperti yang sudah kami bahas pada tutorial sebelumnya bagaimana cara membuat aplikasi crud di vb.net dengan berbagai macam database.
Langsung saja kita mulai tutorial CRUD menggunakan Database Ms Access.
Membuat Database Ms Access
silahkan buat database baru yang nantinya akan digunakan untuk proses CRUD data, buat database dengan nama "crud_ms_access.mdb", atau bisa juga dengan nama lain, dimana nama tabel yang dibuat :
tbl_biodata, dan fieldnya : idsiswa,nama,nisn,kelas,alamat. bisa disesuaikan sesuai kebutuhan, lihat skema gambar dibawah ini :
Selanjutnya buatlah sebuah project baru menggunakan visual studio 2010,2012,2013 dan 2015, disini saya menggunakan visual studio 2015 64bit. buat project dan beri nama "VB-NET-CRUD-MS-Access" dan module baru dengan nama "module-connection.vb".
Membuat Module Koneksi Database Ms Access
jika sudah membuat module baru dengan nama "module-connection.vb" tuliskan seluruh code berikut :
Imports System.Data.OleDbModule module_koneksi Public conn As OleDbConnection Public cmd As OleDbCommand Public ds As DataSet Public dr As OleDbDataReader Public da As OleDbDataAdapter Public lokasidata As String Public Sub konek() lokasidata = "provider=microsoft.jet.oledb.4.0;data source=db_access.mdb" conn = New OleDbConnection(lokasidata) If conn.State = ConnectionState.Closed Then conn.Open() End If End SubEnd Module
Code diatas berfungsi untuk membuat koneksi ke database ms access
Kembali ke Form utama, kita akan membuat tampilan aplikasi CRUD sesimple mungkin, lihat dan buatlah design tampilan form utama seperti gambar dibawah ini
Menampilkan Data kedalam DataGridView
Penting :
Deklarasikan "NewData" di bagian paling atas class, dimana NewData berfungsi sebagai penanda yang bertype boolean dan berguna apakah data itu akan disimpan atau data itu akan di update saja.
Public NewData As Boolean
Buatlah sebuah functions didalam form utama dan tuliskan seluruh code berikut :
Private Sub ShowData() konek() da = New OleDb.OleDbDataAdapter("SELECT * FROM tbl_biodata", conn) ds = New DataSet ds.Clear() da.Fill(ds, "tbl_biodata") DataGridView1.DataSource = ds.Tables("tbl_biodata") da.Dispose() ds.Dispose() conn.Close() DataGridView1.Columns(0).HeaderText = "Id Siswa" DataGridView1.Columns(1).HeaderText = "Nama Siswa" DataGridView1.Columns(2).HeaderText = "N I S N" DataGridView1.Columns(3).HeaderText = "Kelas" DataGridView1.Columns(4).HeaderText = "Alamat Lengkap"End Sub
Functions menampilkan data ke TextBoxt
Buatlah sub baru dan tuliskan code berikut :
Private Sub LodaDataToTextBox() Dim i As Integer i = DataGridView1.CurrentRow.Index TextBox1.Text = DataGridView1.Item(0, i).Value TextBox2.Text = DataGridView1.Item(1, i).Value TextBox3.Text = DataGridView1.Item(2, i).Value TextBox4.Text = DataGridView1.Item(3, i).Value TextBox5.Text = DataGridView1.Item(4, i).ValueEnd Sub
dan panggil sub show data pada form_load dengan mengklik 2x pada form utama :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NewData = False ShowData() LodaDataToTextBox()End Sub
Lanjut.
Membuat Functions untuk mengeksekusi perintah ke database
|
Private Sub doSQL(ByVal sql As String) konek() Dim objcmd As New OleDb.OleDbCommand Try objcmd.Connection = conn objcmd.CommandType = CommandType.Text objcmd.CommandText = sql objcmd.ExecuteNonQuery() MsgBox("Data sudah disimpan kedalam database", vbInformation) objcmd.Dispose() Catch ex As Exception MsgBox("Tidak dapat menyimpan data ke dalam database" & ex.Message) End TryEnd Sub
|
Functions untuk mengosongkan textbox
berguna untuk mengosongkan nilai di textbox, tuliskan seluruh code berikut :
|
Private Sub clearData() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" End Sub
|
selanjutnya kita akan membuat code untuk tombol New, Save, Delete dan Kelauar.
Code Tombol New
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click NewData = True clearData()End Sub
Code Tombol Save
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim save As String If NewData Then save = "INSERT INTO tbl_biodata(idsiswa,nama,nisn,kelas,alamat) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')" Else save = "UPDATE tbl_biodata SET nama='" & TextBox2.Text & "',nisn='" & TextBox3.Text & "',kelas='" & TextBox4.Text & "',alamat='" & TextBox5.Text & "' WHERE idsiswa=" & TextBox1.Text & "" ' sorry about that End If doSQL(save) ShowData()End Sub
|
|
Code Tombol Delete
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim Delete As String Dim vMessage As String vMessage = MsgBox("Apakah anda yakin ingin menghapus biodata siswa ini ?", vbExclamation + vbYesNo, "perhatian") If vMessage = vbNo Then Exit Sub Delete = "DELETE FROM tbl_biodata WHERE idsiswa=" & TextBox1.Text & "" doSQL(Delete) clearData() LodaDataToTextBox()End Sub
Code Tombol Delete
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim Delete As String Dim vMessage As String vMessage = MsgBox("Apakah anda yakin ingin menghapus biodata siswa ini ?", vbExclamation + vbYesNo, "perhatian") If vMessage = vbNo Then Exit Sub Delete = "DELETE FROM tbl_biodata WHERE idsiswa=" & TextBox1.Text & "" doSQL(Delete) clearData() LodaDataToTextBox()End Sub
|
dah, kita sudah finish. tinggal coba saja applikasi yang barusan kita buat, masih bingung bagaimana cara membuat aplikasi sederhana untuk membuat operations CRUD di vb.net menggunakan database Ms Access?
|
0 Komentar untuk "VB.NET : CRUD (Create,Read,Update,Delete) Operation Ms Access Database OleDB Connection"