UAS LAB PEMROGRAMAN BISNIS 2

UAS LAB. PEMROGRAMAN BISNIS 2

Nama : Aqila Qonita
NPM : 1506715923

Aplikasi ini dibuat untuk menghubungkan Ms. Access dengan Visual Studio.
Program yang saya buat terkait pembelian tiket konser.

Data-data nya adalah:
1. Kode Tiket
2. Jenis Tiket (VVIP, VIP, Early Entry)
3. Jumlah Tiket (Maksimal paling banyak pembelian 3 tiket)
4. Harga Tiket

Coding :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1
    Dim Koneksi As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\LENOVO\Desktop\UAS LAB DATABASE AQILA_BENERR\DataBaseAqila1.mdb"
    Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)
    Dim xReader As OleDbDataReader

    Private Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles ButtonAdd.Click
        If ButtonAdd.Text = "Add" Then
            TextKode.Text = ""
            TextJenis.Text = ""
            TextHarga.Text = ""
            CmbJumlah.SelectedIndex = -1
            ButtonAdd.Text = "Save"
            TextKode.Focus()
        Else
            ObjekKoneksi.Open()
            Dim Tambah As String = "INSERT INTO TableTKT values('" & TextKode.Text & "','" & TextJenis.Text & "','" & CmbJumlah.Text & "','" & TextHarga.Text & "')"
            Dim CMD = New OleDbCommand(Tambah, ObjekKoneksi)
            CMD.ExecuteNonQuery()
            ObjekKoneksi.Close()
            MsgBox("Sukses!")
        End If
    End Sub

    Private Sub ButtonClose_Click(sender As Object, e As EventArgs) Handles ButtonClose.Click
        Me.Close()
    End Sub

    Private Sub ButtonView_Click(sender As Object, e As EventArgs) Handles ButtonView.Click
        Form2.Show()
    End Sub

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

    End Sub

    Private Sub ButtonFind_Click(sender As Object, e As EventArgs) Handles ButtonFind.Click
        Dim Kode As String = InputBox("Masukkan Kode Tiket")
        If Not Len(Kode) = 0 Then
            ObjekKoneksi.Close()
            ObjekKoneksi.Open()

            Dim Cari As String = "SELECT * FROM TableTKT where KodeTiket = '" + Kode + "'"
            Dim oCMD = New OleDbCommand(Cari, ObjekKoneksi)
            xReader = oCMD.ExecuteReader

            If xReader.HasRows Then
                xReader.Read()
                TextKode.Text = xReader("KodeTiket")
                TextJenis.Text = xReader("JenisTiket")
                TextHarga.Text = xReader("Harga")
                CmbJumlah.Text = xReader("Jumlah")


            Else
                MsgBox("Jenis Tiket " + Kode + " Tidak ada")
                Exit Sub
            End If
            xReader.Close()
        End If
        ObjekKoneksi.Close()
    End Sub

    Private Sub ButtonEdit_Click(sender As Object, e As EventArgs) Handles ButtonEdit.Click
        ObjekKoneksi.Close()
        ObjekKoneksi.Open()
        Dim Ubah As String = "update TableTKT set JenisTiket = '" & TextJenis.Text & "' where KodeTiket = '" & TextKode.Text & "' "

        Dim oCMD = New OleDbCommand(Ubah, ObjekKoneksi)
        oCMD.ExecuteNonQuery()
        ObjekKoneksi.Close()
        MsgBox("Sukses")
    End Sub
End Class

Hasil