Input Data Ke Ms.Access

1.Penjelasan Aplikasi

Aplikasi ini dibuat untuk menginput data Wanita Penghibur yang bertujuan untuk menjadi list tetap di Alexis yang akan langsung masuk ke dalam Ms.Access menggunakan Visual basic,sehingga mempercepat dalam penginputan data karena tidak semua data harus diinput,dalam aplikasi ini hanya membutuhkan input seperti: Tipe,nama Wanita,Ukuran,Umur,Harga,dan rangkuman List Wanita sudah otomatis diproses lewat program ini. program ini membutuhkan 5 buah field yaitu: field tipe ,field nama, field Ukuran, field umur, dan field Harga yang bertujuan untuk pengoperasiaannya. output yang dihasilkan berupa List Nama Wanita Penghibur.

2.Screen Shoot

Tampilan Awal

Tampilan Setelah DiInput

Tampilan Daftar Transaksi

Tampilan Rangkuman

3. Source Code

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim xReader As OleDbDataReader

    Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Users\SMRN\Documents\database333.mdb"

    Dim Objek As New OleDb.OleDbConnection(Koneksi)

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        If btnAdd.Text = "Add" Then

            txttipe.Text = ""

            txtNama.Text = ""

            cmbukuran.SelectedIndex = -1

            txtUmur.Text = ""

            txtHarga.Text = ""

            txtNama.Focus()

            btnAdd.Text = "Save"

        Else

            Objek.Open()

            Dim Add As String = "INSERT INTO DaftarWP values ('" & txttipe.Text & "', '" & txtNama.Text & "', '" & cmbukuran.Text & "', '" & txtUmur.Text & "', '" & txtHarga.Text & "')"

            Dim oCMD = New OleDbCommand(Add, Objek)

            oCMD.ExecuteNonQuery()

            Objek.Close()

            MsgBox("Sukses")

            btnAdd.Text = "Add"

        End If

    End Sub

    Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click

        Dim Kode As String = InputBox("Masukkan Nama")

        If Not Len(Kode) = 0 Then

            Objek.Close()

            Objek.Open()

            Dim Cari As String = "SELECT * FROM DaftarWP where nama = '" + Kode + "'"

            Dim oCMD = New OleDbCommand(Cari, Objek)

            xReader = oCMD.ExecuteReader

            If xReader.HasRows Then

                xReader.Read()

                txttipe.Text = xReader("tipe")

                txtNama.Text = xReader("nama")

                cmbukuran.Text = xReader("ukuran")

                txtUmur.Text = xReader("umur")

                txtHarga.Text = xReader("harga")

            Else

                MsgBox("namaWP" + Kode + "tidak ada")

                txttipe.Text = ""

                txtNama.Text = ""

                cmbukuran.SelectedIndex = -1

                txtUmur.Text = ""

                txtHarga.Text = ""

                txtNama.Focus()

            End If

        End If

    End Sub

    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click

        Objek.Close()

        Objek.Open()

        Dim Ubah As String = "UPDATE DaftarWP set tipe = '" & txttipe.Text & "', ukuran = '" & cmbukuran.Text & "', umur = '" & txtUmur.Text & "', harga = '" & txtHarga.Text & "' where nama = '" & txtNama.Text & "'"

        Dim oCMD = New OleDbCommand(Ubah, Objek)

        oCMD.ExecuteNonQuery()

        Objek.Close()

        MsgBox("Sukses")

    End Sub

    Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click

        Form2.Show()

    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click

        Me.Close()

    End Sub

    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

        Form3.Show()

    End Sub

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Objek.Close()

        Objek.Open()

        Dim Hapus As String = "DELETE FROM DaftarWP where tipe = '" & txttipe.Text & "'"

        Dim oCMD = New OleDbCommand(Hapus, Objek)

        oCMD.ExecuteNonQuery()

        txttipe.Text = ""

        txtNama.Text = ""

        cmbukuran.SelectedIndex = -1

        txtUmur.Text = ""

        txtHarga.Text = ""

        txtNama.Focus()

        MsgBox("Data berhasil dihapus")

    End Sub

End Class