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
