Membuat Crud Vb .Net Database Access Accdb

Pada tutorial Visual Basic kali ini akan dibahas mengenai cara gampang menciptakan CRUD Visual Basic Database Access .ACCDB ( Microsoft Office Access ACCDB yakni extension sebuah file access yang dapat dibentuk Office 2007 keatas) anda dapat menciptakan database access ACCDB dengan microsoft Office 2007, 2010, 2013, 2015 ataupun Office 2016.

Apa itu CRUD VB .NET ? CRUD yakni abreviasi dari Create, Read, Update dan Delete. Bahasa CRUD sudah banyak digunakan dikalangan Pemograman dimana dasar dalam menciptakan aplikasi berbasis database yakni dengan CRUD. Arti secara umum CRUD VB .NET yakni menciptakan form Input, Edit dan Hapus data didalam database memakai Visual Basic .NET.

Berikut langkah Membuat Input, Edit dan Hapus Visual Basic .NET database Access .ACCDB

#1. Membuat Form CRUD Dengan Visual Basic .NET

Silahkan buka Visual Studio anda,
Klik File - New - Project

Silahkan lihat gambar diatas, berikut keterangannya :
1 : Pastikan anda menentukan Visual Basic
2. Pilih Windows Form Application
3. Buat Namda Project pola : CRUD VB NET Access ACCDB, lalu anda simpan sesuai impian anda, saya menyimpannya di drive D
4. Klik OK

Jika sudah melaksanakan langkah diatas maka muncul ibarat gambar dibawah :

Secara default, maka akan muncul Form1, anda tidak perlu merubah nama form, anda pribadi menciptakan design Form1 ibarat gambar dibawah :

Silahkan buat design form1 ibarat gambar diatas, bila sudah maka tahap 1 sudah selesai, selanjutnya silahkan ikuti langkah ke 2

#2. Membuat Database dan Tabel Dengan Access ACCDB

Setelah anda sukses menciptakan design form1, maka anda harus menciptakan database dan Tabel
Buatlah Database dengan nama : DBJNM.accdb

Lihat gambar diatas, pada ketika menciptakan DBJNM.accdb pastikan anda simpan di folder bin Debug
Kemudian pastikan save type nya yakni Access accdb
lalu Klik OK

Silahkan buat Tabel dengan nama : TBL_BARANG
Berikut penampakan TBL_BARANG :

Seteleh menciptakan design TBL_BARANG, silahkan input secara manual terlebih dahulu untuk sample data :

Silahkan pastikan kembali :
1. Anda harus menciptakan database dan tabel
2. Kemudian simpan di folder bin debug
3. Kemudian masukan data sample ibarat gambar diatas

#3. Membuat Koding Input, Edit, Delete Dengan VB .NET

Selanjutnya pada TAHAP 3 ini kita akan menciptakan koding Input, Edit dan Delete
Sebelum Input, Edit, dan Delete anda harus dapat mengkoneksikan database access accdb dan memunculkan TBL_BARANG tersebut pada DatagridView1
Sebenarnya sudah busatkan Cara Koneksi Database Access ACCDB pada tutorial lain
Kurang lebih kodingnya ibarat berikut ini :

Imports System.Data.OleDb Public Class Form1     Dim Conn As OleDbConnection     Dim da As OleDbDataAdapter     Dim ds As DataSet     Dim LokasiDB As String     Sub Koneksi()         LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"         Conn = New OleDbConnection(LokasiDB)         If Conn.State = ConnectionState.Closed Then Conn.Open()     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Koneksi()         da = New OleDbDataAdapter("Select * from TBL_BARANG", Conn)         ds = New DataSet         ds.Clear()         da.Fill(ds, "TBL_BARANG")         DataGridView1.DataSource = (ds.Tables("TBL_BARANG"))     End Sub End Class 

Jika sudah anda dapat menjalankan atau running Project VB .NET anda

Jika anda sukses muncul ibarat gambar diatas, artinya anda sudah sukses mengkoneksikan database access accdb dengan VB .NET.

Cara Input Data VB NET Access ACCDB

Langkah selanjutnya yakni kita akan meninput data kedalam dabase.
Double Klik Button1 atau Button Input, lalu masukan koding dibawah ini :

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 = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Then             MsgBox("Silahkan Isi Semua Form")         Else             Dim CMD As OleDbCommand             Call Koneksi()             Dim simpan As String = "insert into TBL_BARANG values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"             CMD = New OleDbCommand(simpan, Conn)             CMD.ExecuteNonQuery()             MsgBox("Input data berhasil")         End If     End Sub

Jika sudah silahkan praktekan dengan run project anda. dan lakukan input data, berikut tampilannya :

Cara Edit Data VB NET Access ACCDB

Jika Input atau Insert data sudah selesai, selanjutnya anda harus menciptakan Edit Data TBL_BARANG.
Sebelum memperlihatkan koding didalam Button Edit, yang harus anda lakukan andalah menampilkan data ketika memasukan Kode di form arahan barang, sesudah muncul data anda dapat edit data yang diinginkan lalu anda klik tombol edit.
Berikut Kodingnya :
Koding Untuk Memunculkan Data Ketika Memasukan KodeBarang dan ENTER pada Keyboard

Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress         TextBox1.MaxLength = 6         If e.KeyChar = Chr(13) Then             Call Koneksi()             Dim CMD As OleDbCommand             Dim RD As OleDbDataReader             CMD = New OleDbCommand("Select * From TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'", Conn)             RD = CMD.ExecuteReader             RD.Read()             If Not RD.HasRows Then                 MsgBox("Kode Barang Tidak Ada, Silahkan coba lagi!")                 TextBox1.Focus()             Else                 TextBox2.Text = RD.Item("NamaBarang")                 TextBox3.Text = RD.Item("HargaBarang")                 TextBox4.Text = RD.Item("JumlahBarang")                 ComboBox1.Text = RD.Item("SatuanBarang")                 TextBox2.Focus()             End If         End If     End Sub

Kemudian koding dibawah untuk Button Edit atau Button2

 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 TBL_BARANG set NamaBarang='" & TextBox2.Text & "',HargaBarang='" & TextBox3.Text & "',JumlahBarang='" & TextBox4.Text & "',SatuanBarang='" & ComboBox1.Text & "' where KodeBarang='" & TextBox1.Text & "'"         CMD = New OleDbCommand(edit, Conn)         CMD.ExecuteNonQuery()         MsgBox("Data Berhasil diUpdate")     End Sub

Silahkan di praktekan, seharusnya dengan langkah diatas anda sudah dapat Edit data TBL_BARANG

Cara Hapus atau Delete Data VB NET Access ACCDB

Jika anda sudah dapat Read atau Koneksi database, Create atau Input data, Update atau mengubah data, terakhir yakni Delete atau pembatalan data, sehingga CRUD menjadi lengkap.
Berikut koding untuk Button3 atau 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 dan ENTER")         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 TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'"                 CMD = New OleDbCommand(hapus, Conn)                 CMD.ExecuteNonQuery()             End If         End If     End Sub

Silahkan anda praktekan hingga dapat menghapu data didalam database atau TBL_BARANG. Jika sudah berhasil semua maka proses pembuatan CRUD VB .NET database Access ACCDB selesai, namun untuk Button4 atau Button Tutup masih belum diberikan koding.
Anda dapat Double Klik Button Tutup lalu masukan koding END
Sangat gampang dan simple dalam menciptakan CRUD Visual Basic .NET database Access ACCDB

Demikian Tutorial singkat dalam Membuat CRUD VB .NET Database Access ACCDB, biar bermanfaat untuk anda. Jangan lupa anda dapat share tutorial ini ke rekan anda, dan anda dapat berkomentar dibawah. Ikuti terus Tutorial VB .NET atau Tutorial CRUD lainnya.

Silahkan KLIK DISINI Untuk Download Project CRUD VB .NET diatas

Share this post