Membuat Form Insert VB Net 2010 Database Access

Apakabar para calon calon programer dunia,,, ciaaah

Sebelumnya saya sudah menjelaskan bagaimana cara menampilkan database ke Datagrideview. Untuk kali ini saya akan menjelaskan bagaimana cara membuat form insert Vb net 2010 ke dalam database Access.

Berikut ini langkah - langkahnya.

• Buatlah Form sebagai berikut dengan nama Barang

• Ganti nama Textbox dan DataGridView seperti yang tertulis dalam gambar diatas
• Buatlah database dengan nama db_barang.mdb. Buat table dengan nama barang dengan rincian atribut sebagai berikut :

• Isi tabel tersebut dengan beberapa data. misal sebagai berikut

• Letakkan database tersebut didalam folder project anda\bin\debug\db_barang.mdb. Direktori tersebut biasa terletak di Documents\Visual Studio 2010\Projects\<Nama Ptoject>\bin\debug\.
• Selanjutnya membuat tabel di dalam DataGridView. Cara pembuatannya sama dengan postingan saya sebelumnya yang berjudul Menampilkan Database Ke DataGridView VB.net 2010. Jadi disini saya tidak akan mengulangnya kembali.
• Next Copykan Codeing berikut didalam Form Vb net 2010 anda:

Imports System.Data.OleDb

Public Class Barang

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_barang.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Public strsql As String

    Public acsconn As New OleDb.OleDbConnection

    Public acsdr As OleDbDataReader

    Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            MsgBox("Membuka DataBase")

        Else

            MsgBox("close")

        End If

        Me.RefreshDataView()

    End Sub

    Sub RefreshDataView()

        Dim SqlQuery As String = " SELECT * FROM barang "

        Dim SqlCommand As New OleDbCommand

        Dim sqlAdapter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With sqlAdapter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        dgvbarang.Rows.Clear()

        For i = 0 To TABLE.Rows.Count - 1

            With dgvbarang

                .Rows.Add(TABLE.Rows(i)("id_barang"), TABLE.Rows(i)("nama_barang"), TABLE.Rows(i)("merk"), TABLE.Rows(i)("jenis"), TABLE.Rows(i)("harga"))

            End With

        Next

    End Sub

    Private Sub Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Insert.Click

        Try

            Dim SqlQuery As String = "Insert Into barang (id_barang, nama_barang,merk, jenis, harga) Values ('" & Me.txtid_barang.Text & "','" & Me.txtnama.Text & "','" & Me.txtmerk.Text & "','" & Me.txtjenis.Text & "','" & Me.txtharga.Text & "')"

            Dim SqlCommand As New OleDbCommand

            With SqlCommand

                .CommandText = SqlQuery

                .Connection = conn

                .ExecuteNonQuery()

            End With

            MsgBox("Satu Data Barang sudah disimpan ")

            Me.RefreshDataView()

            Me.bersih()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

    Sub bersih()

        txtid_barang.Text = ""

        txtnama.Text = ""

        txtmerk.Text = ""

        txtjenis.Text = ""

        txtharga.Text = ""

    End Sub

End Class

PENJELASAN :

         Coding untuk mengkoneksikan dengan database

         Coding untuk membuka keneksi ke database

         Perintah untuk mengambil data dari dalam DataBase tabel barang

         Untuk menampilkan data Database ke dalam DataGridView

         Perintah untuk memasukan Data yang tertulis pada textbox dan combobox kedalam database

• Jika sudah memasukan Coding tersebut jalankan aplikasi. berikut tampilan form yang sudah selesai

• Coba masukkan 1 Data seperti Gambar berikut

• Kick Insert, jika berhasil maka data bari akan masuk kedalam dataGridbarang

Demikian Tutorial dari saya, cukup mudah bukan???

Jika ada yang kesulitan dan error trus hehehe,,,tenang saja saya sediakan link download program sudah jadi alisa sudah matang dan siap sandap. Silahkan download di SINI.

Semoga bisa membantu. Jangan lupa baca juga tutorial lainnya :

Menampilkan Database Ke DataGridView VB.net 2010

Menampilkan Database ke ListView

Membuat Form Login Vb .net Access