CRUD VB.Net (Create,Read,Update, Delete) Database Ms Access

Tutorial Cara Vb.NET: Membuat aplikasi CRUD VB.NET menggunakan Database Ms Access, CRUD VB.Net (Create,Read, Update, Delete) Visual Studio 2010, baca selengkapnya di Sector Code

CRUD VB.Net - Cara membuat aplikasi crud Vb.NET sederhana menggunakan database Ms Access dengan Visual Studio 2010, 2012,2013 dan 2015 sama saja dengan membuat aplikasi crud menggunakan database lain, seperti database MySQL yang sudah pernah kami jelaskan, baca Tutorial VB.NET : CRUD (Create, Update, Delete) Vb.Net Database MySQL, atau video membuat aplikasi crud ini juga sudah kami jelaskan, baca Video Tutorial : CRUD (Create, Update, Delete) Vb.Net, sama halnya juga dengan bahasa pemrograman lain, seperti misalnya aplikasi crud dengan menggunakan PHP, yang jelas pertama yang harus disiapkan adalah sebuah database, dalam tutorial ini kita akan membuat database menggunakan Ms Access, simak terus tutorialnya ya.
CRUD VB.Net (Create,Read, Update, Delete) Database  Ms Access

Cara membuat database Ms Access

Selain Database MySQL kita juga bisa menggunakan Database Ms Acces, gimana cara pembuatannya? ikuti aja tutorial ini sampe abis ya.

Langsung saja cara membuat database menggunakan Ms. Access ini, silahkan buka Microsoft Access yang sudah terinstall di komputer kamu, kalau sudah terbuka langsung saja create Blank Database dan beri nama "db_access" setelah terbuka langsung simpan (CTRL+S), maka akan ototmatis meminta nama table yang defaulnya "table1", ganti saja dan beri nama biodata. jangan lupa untuk disimpan.
Klik kanan pada nama tabel (biodata) dan design view, disini kita akan mendesain database sesuai kebutuhan masing - masing. dan silahkan desain nama kolom dari tabel biodata seperti gambar berikut :
cara membuat Database  Ms Access
Keterangan :
Field Size nama = 50, nis = 20, kelas = 15 dan alamat = 100.

Jika sudah selesai tinggal simpan lagi. jika kamu menginginkan nama database ms. access berformat .mdb (format ms access 2003) silahkan save as Ms.Access 2002-2003, dan berikan nama "biodata.mdb" .

Selesai, kamu sudah berhasil membuat database ms Access format 2007 maupun yang 2003, sekarang kita akan membuat aplikasi crud sederhananya menggunakan visual basic net ya.

Membuat Crud VB.NET sederhana Database Ms. Access

Buka aplikasi visual studio 2010 atau versi lainnya dan buatlah form baru dengan nama "biodata.vb", desain tampilan form biodata seperti gambar dibawah ini :
Aplikasi CRUD VB.NET database Ms Access

Tambahkan sebuah DataGridView, 4 buah button, 5 buah TextBox dan label pada form biodata kamu, langkah selanjutnya yang harus dilakukan tentu kita akan membuat koneksi ke Database yang barusan kamu biat dari Ms.Access, ini tutorialnya.

Membuat Koneksi Database MS.ACCESS

Buat sebuah module baru dan beri nama "mdlkoneksi.vb", sebelumnya silahkan pindahkan database ms access yang sudah kamu buat tadi ke folder \bin\Debug dimana project aplikasi crud kamu buat, dan tuliskan seluruh code berikut :
Imports System.Data
Imports System.Data.OleDb
Module MdlKoneksi
    Public conn As OleDbConnection
    Public CMD As OleDbCommand
    Public DS As New DataSet
    Public DA As OleDbDataAdapter
    Public RD As OleDbDataReader
    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
sebelumnya kami juga sudah pernah membahas cara membuat koneksi database ms access ini menggunakan vb.net silahkan baca : Tutorial Vb.Net : Membuat Koneksi Database Ms. Access, sekarang koneksi sudah berhasil lanjut menambahkan code untuk aplikasi crud (Create, Read, Update, Delete) nya, lanjut kebawah ya.

Method Public

Public Databaru As Boolean

Function Jalankan SQL (Fnction Simpan)

    Private Sub jalankansql(ByVal sQl As String)
        Dim objcmd As New System.Data.OleDb.OleDbCommand
        Call konek()
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sQl
            objcmd.ExecuteNonQuery()
            objcmd.Dispose()
            MsgBox("Data Sudah Disimpan", vbInformation)
        Catch ex As Exception
            MsgBox("Tidak Bisa Menyimpan data ke Database" & ex.Message)
        End Try
    End Sub

Sub Menampilkan Data Ke DataGridView

    Private Sub isiGrid()
        konek()
        DA = New OleDb.OleDbDataAdapter("SELECT * FROM biodata", conn)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "biodata")
        DataGridView1.DataSource = DS.Tables("biodata")
        DataGridView1.Enabled = True
        TextBox2.Focus()
        isiTextBox()
    End Sub

Tombol Simpan (Untuk Menyimpan Data)

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim simpan As String
        If TextBox1.Text = "" Then
            Databaru = True
        Else
            Databaru = False
        End If
        Me.Cursor = Cursors.WaitCursor

        If Databaru Then
            simpan = "INSERT INTO biodata(id,nama,nis,kelas,alamat) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "') "
        Else
            simpan = "UPDATE biodata SET nama ='" & TextBox2.Text & "',nis ='" & TextBox3.Text & "',kelas ='" & TextBox4.Text & "',alamat ='" & TextBox5.Text & "' WHERE ID = " & TextBox1.Text & " "
        End If
        jalankansql(simpan)
        isiGrid()
        TextBox2.Focus()
        Me.Cursor = Cursors.Default
    End Sub

Sub Bersih (Mengosongkan TextBox)

    Private Sub Bersih()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox2.Focus()
    End Sub

Tombol Hapus (Menghapus Data Berdasarkan ID)

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim hapussql As String
        Dim pesan As Integer
        pesan = MsgBox("Apakah anda yakin akan menghapus Data ID " + TextBox1.Text, vbExclamation + vbYesNo, "perhatian")
        If pesan = vbNo Then Exit Sub
        hapussql = "DELETE FROM biodata WHERE ID = " & TextBox1.Text & ""
        jalankansql(hapussql)
        Me.Cursor = Cursors.WaitCursor
        Bersih()
        TextBox2.Focus()
        Me.Cursor = Cursors.Default
    End Sub

Code Isi TextBox dari Value DataGridView

    Private Sub isiTextBox()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        Databaru = False
        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

Event Klik DataGridView

    Private Sub DataGridView1_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        isiTextBox()
    End Sub

Tombol Baru (Membuat Data Baru)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Bersih()
        Databaru = True
    End Sub
Source Code Form Load
    Private Sub crud_biodata_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Databaru = False
        isiGrid()
    End Sub

Tuliskan semua code-code vb.net diatas dan usahakan jangan meng-copy saja, karena kemahiran dalam belajar program kamu akan lebih cepat jika kamu belajar sambil menuliskan baris-baris code diatas, kamu juga bisa menfownload aplikasi CRUD VB.NET menggunakan database MySQL diatas pada postingan selanjutnya ya, Update terus dan jangan lupa di Share jika bermanfaat.

Jika masih bingung dengan penjelasan tutorial diatas, silahkan lihat video tutorial berikut :

Video Tutorial CRUD VB.NET + MS Access



[ Update Terbaru ] CRUD Operations with MS Access OLEDB Tutorial, silahkan klik link tersebut untuk melihat aplikasi CRUD terbaru menggunakan database Microsoft Access
Buat kamu yang ingin melihat tutorial - turorial crud dengan menggunakan bahasa pemrograman lain silahkan baca - baca tutorial di sCode ini :
  1. Tutorial VB.NET : CRUD (Create, Update, Delete) Vb.Net Database MySQL
  2. Tutorial CRUD (Create,Read,Update,Delete) Java JDBC Database MySql
  3. PHP Tutorial CRUD (Create,Read,Update,Delete) PHP Database MySql
 Jangan sungkan - sungkan untuk bertanya kepada kami, terima kasih ;)

COMMENTS

Next Recomended


Feel free to code it up and send us a pull request.

Hi everyone, let's me know how much this lesson can help your work. Please Subscribe and Follow Our Social Media 'kodeajaib[dot]com' to get Latest tutorials and will be send to your email everyday for free!, Just hit a comment if you have confused. Nice to meet you and Happy coding :) all ^^



Follow by E-Mail


Name

ADO.NET,3,Ajax,6,Android,9,AngularJS,4,ASP.NET,4,Blogger Tutorials,7,Bootstrap,7,C++,1,Codeigniter,2,Cplusplus,6,Crystal Report,6,CSharp,25,Ebook Java,2,FlyExam,1,FSharp,3,Game Development,2,Java,35,JDBC,2,Laravel,84,Lumen,2,MariaDB,2,Ms Access,3,MySQL,31,ODBC,6,OleDB,1,PHP,14,PHP Framework,5,PHP MYSQLI,9,PHP OOP,5,Python,8,Python 3,4,SQL Server,4,SQLite,4,Uncategorized,5,Vb 6,2,Vb.Net,89,Video,48,Vue Js,4,WPF,2,Yii,3,
ltr
item
KODE AJAIB: CRUD VB.Net (Create,Read,Update, Delete) Database Ms Access
CRUD VB.Net (Create,Read,Update, Delete) Database Ms Access
Tutorial Cara Vb.NET: Membuat aplikasi CRUD VB.NET menggunakan Database Ms Access, CRUD VB.Net (Create,Read, Update, Delete) Visual Studio 2010, baca selengkapnya di Sector Code
https://4.bp.blogspot.com/-ek0ONAVrp1s/VjkQ8fWMnII/AAAAAAAABBk/MCT5KhWIeog/s320/crud-vbnet-ms-access-2.png
https://4.bp.blogspot.com/-ek0ONAVrp1s/VjkQ8fWMnII/AAAAAAAABBk/MCT5KhWIeog/s72-c/crud-vbnet-ms-access-2.png
KODE AJAIB
https://www.kodeajaib.com/2015/11/cara-crud-vbnet-database-ms-access.html
https://www.kodeajaib.com/
https://www.kodeajaib.com/
https://www.kodeajaib.com/2015/11/cara-crud-vbnet-database-ms-access.html
true
3214704946184383982
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS CONTENT IS PREMIUM Please share to unlock Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy