Tutorial Crud terkait :
Tutorial VB.NET : CRUD (Create, Read, Update, Delete) Vb.Net Database MySQL
CRUD VB.NET (Create,Read,Update,Delete) Database SQL Server
Video Crud terkait :
Video Tutorial : CRUD (Create, Update, Delete) Vb.Net database MySQL
[Video] Tutorial CRUD Vb.NET menggunakan Database SQL Server
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.OleDbCode diatas berfungsi untuk membuat koneksi ke database ms access yang sudah anda buat sebelumnya
Module 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 Sub
End Module
Cara membuat koneksi databese MySQL di Vb.net 2010
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() 'open our connection
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() ' clouse connection
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).Value
End 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.LoadLanjut.
NewData = False
ShowData()
LodaDataToTextBox()
End Sub
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 Try
End 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 Keluar
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Close()
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? lihat Video dibawah ini.
Video Tutorial CRUD + Ms Access OleDB Connection
Jangan lupa Subscribe Channel Youtube kami untuk mendapatkan Tutorial terbaru :
GPlus : https://plus.google.com/+HarisonMatondang
Youtube : http://www.youtube.com/c/HarisonMatondang
