Program Aplikasi Data Produk dengan menggunakan database access produk

1.Pertama muncul Form Menu Utama nya

Public Class Form1

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

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

    Private Sub PRODUKToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PRODUKToolStripMenuItem.Click

        Dim Nproduk As produk = New produk

        Nproduk.MdiParent = Me

        Nproduk.Show()

    End Sub

End Class

2.kemudian di klik Menu PRODUK maka akan muncul :

listing program nya :

Imports System.Data.OleDb

Public Class produk

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DR As OleDbDataReader

    Public DS As New DataSet

    Dim SQL As String

    Public Sub openDB()

        Dim LOKASI = "provider=microsoft.jet.OLEDB.4.0;data source=c:\KUIS\PRODUK.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub tampiltabel_produk()

        ADP = New OleDbDataAdapter("SELECT * FROM tabel_produk order by kode_produk", DB)

        DS = New DataSet

        ADP.Fill(DS, "tabel_produk")

        DataGridView1.DataSource = DS.Tables("tabel_produk")

    End Sub

    Sub buttonbaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = True

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = True

    End Sub

    Sub buttonedit()

        btnbaru.Enabled = True

        btnsimpan.Enabled = True

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = True

    End Sub

    Sub buttonsimpan()

        btnbaru.Enabled = True

        btnsimpan.Enabled = True

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = True

    End Sub

    Sub hapustext()

        kodeproduk.Text = ""

        namaproduk.Text = ""

        satuan.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        Call buttonbaru()

    End Sub

    Private Sub kodeproduk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodeproduk.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from tabel_produk where kode_produk='" & kodeproduk.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                namaproduk.Text = DR.Item(1)

                satuan.Text = DR.Item(2)

                harga.Text = DR.Item(3)

                jumlah.Text = DR.Item(4)

                Call buttonedit()

                MsgBox("data ditemukan !")

            Else

                xkode = kodeproduk.Text

                Call hapustext()

                kodeproduk.Text = xkode

                Call buttonsimpan()

            End If

            namaproduk.Focus()

        End If

    End Sub

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

        Call openDB()

        Call hapustext()

        Call tampiltabel_produk()

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call hapustext()

        kodeproduk.Focus()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        SQL = "INSERT INTO tabel_produk (kode_produk, nama_produk, satuan, harga, jumlah)" & _

                     "VALUES('" & kodeproduk.Text & "','" & _

                                  namaproduk.Text & "','" & _

                                  satuan.Text & "','" & _

                                  harga.Text & "','" & _

                                  jumlah.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampiltabel_produk()

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call hapustext()

        kodeproduk.Focus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        SQL = "DELETE FROM tabel_produk where kode_produk='" & kodeproduk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampiltabel_produk()

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

        SQL = "update tabel_produk set nama_produk='" & namaproduk.Text & "'," & _

                                     "satuan='" & satuan.Text & " '," & _

                                     "harga='" & harga.Text & " '," & _

                                     "jumlah='" & jumlah.Text & " '" & _

                                     "where kode_produk='" & kodeproduk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampiltabel_produk()

    End Sub

End Class

3. Berikut ini tampilan Database nya :

Sekian lah cara saya membuat program aplikasi produk dengan menggunakan database Access..