Cara Membuat CRUD Di Visual Basic .NET

CRUD adalah singkatan dari Create, Read, Update dan Delete. Bahasa CRUD sudah banyak dipakai dikalangan Pemograman dimana dasar dalam membuat aplikasi berbasis database adalah dengan CRUD. Arti secara umum CRUD VB .NET adalah membuat form Input, Edit dan Hapus data didalam database menggunakan Visual Basic .NET.

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.OleDb 
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 

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 New
Data 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.Load
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 &""
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