loading...

loading...

 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, , 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 :

<pre class="brush:vb">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

Method Public

<pre class="brush:vb">Public Databaru As Boolean

Function Jalankan SQL (Fnction Simpan)

<pre class="brush:vb">    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

<pre class="brush:vb">    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)

<pre class="brush:vb">    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)

<pre class="brush:vb">    Private Sub Bersih()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox2.Focus()
    End Sub

Tombol Hapus (Menghapus Data Berdasarkan ID)

<pre class="brush:vb">    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

<pre class="brush:vb">    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

<pre class="brush:vb">    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)

<pre class="brush:vb">    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Bersih()
        Databaru = True
    End Sub
</pre>
Source Code Form Load
<pre class="brush:vb">    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

CRUD VB.Net (Create,Read,Update, Delete) Database Ms Access
Share This
FacebookTwitterGoogle+WhatsAppEmailPrintFriendly
loading...

Post navigation


Leave a Reply

Your email address will not be published. Required fields are marked *