contoh aplikasi rental dengan vb net 2008 dabases acces ms 2007

Imports System.Data.OleDb

Public Class RENTAL

    Public CONN As OleDbConnection

    Public CMD As OleDbCommand

    Public DS As New DataSet

    Public DA As OleDbDataAdapter

    Public RD As OleDbDataReader

    Public LokasiDB As String

    Sub Koneksi()

        LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\REKAP1.accdb"

        CONN = New OleDbConnection(LokasiDB)

        If CONN.State = ConnectionState.Closed Then CONN.Open()

    End Sub

    Sub bersih()

        NOMOR.Text = ""

        NAMA.Text = ""

        KOMPUTER.Text = ""

        BILING.Text = ""

        SCAN.Text = ""

        JILID.Text = ""

        BURNING.Text = ""

        PRINT.Text = ""

        TOTAL.Text = ""

        MINUMAN.Text = ""

        BLAIN.Text = ""

    End Sub

    Sub KondisiAwal()

        Koneksi()

        DA = New OleDbDataAdapter("Select * from REKAP", CONN)

        DS = New DataSet

        DS.Clear()

        DA.Fill(DS, "REKAP")

        DGV.DataSource = (DS.Tables("REKAP"))

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End

    End Sub

    Private Sub SIMPANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click

        If NOMOR.Text = "" Or KOMPUTER.Text = "" Or NAMA.Text = "" Then

            MsgBox("Data belum lengkap, Pastikan Semua form terisi coba periksa lagi data anda")

            Exit Sub

        Else

            Call Koneksi()

            Dim simpan As String = "insert into REKAP values ('" & NOMOR.Text & "','" & KOMPUTER.Text & "','" & NAMA.Text & "','" & BILING.Text & "','" & PRINT.Text & "','" & SCAN.Text & "','" & JILID.Text & "','" & BURNING.Text & "','" & MINUMAN.Text & "','" & BLAIN.Text & "','" & TOTAL.Text & "')"

            CMD = New OleDbCommand(simpan, CONN)

            CMD.ExecuteNonQuery()

            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")

            Call KondisiAwal()

            Call bersih()

        End If

    End Sub

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

        Dim i As New Integer

        For i = 1 To 20

            i = (i)

            NOMOR.Items.Add(i)

        Next

        KOMPUTER.Items.Add("KOM-01")

        KOMPUTER.Items.Add("KOM-02")

        KOMPUTER.Items.Add("KOM-03")

        KOMPUTER.Items.Add("KOM-04")

        KOMPUTER.Items.Add("KOM-05")

        KOMPUTER.Items.Add("KOM-06")

        KOMPUTER.Items.Add("KOM-07")

        KOMPUTER.Items.Add("KOM-08")

        KOMPUTER.Items.Add("KOM-09")

        KOMPUTER.Items.Add("KOM-10")

        KOMPUTER.Items.Add("KOM-11")

        KOMPUTER.Items.Add("KOM-12")

        KOMPUTER.Items.Add("KOM-13")

        KOMPUTER.Items.Add("KOM-14")

        KOMPUTER.Items.Add("KlOM-15")

        Call KondisiAwal()

        Call bersih()

    End Sub

    Private Sub LaplloranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EvelntArgs) Handles LaporanToolStripMenuItem.Click

        APORAN.Show()

    End Sub

End Class