Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Bagas\LAB VB 2\DataPemesananTiket.accdb"
    Dim ob_koneksi As New OleDb.OleDbConnection(koneksi)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DataPemesananTiketDataSet1.TablePemesanan' table. You can move, or remove it, as needed.
        Me.TablePemesananTableAdapter.Fill(Me.DataPemesananTiketDataSet1.TablePemesanan)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ob_koneksi.Open()
        Dim tambah As String = "Insert into TablePemesanan values ('" & TextBox1.Text & "' , '" & TextBox2.Text & " ' , ' " & TextBox3.Text & " ' , ' " & ComboBox1.Text & " ' , ' " & ComboBox2.Text & " ' , ' " & TextBox4.Text & " ' )"
        Dim oCmd = New OleDbCommand(tambah, ob_koneksi)
        oCmd.ExecuteNonQuery()
        MsgBox("Sukses")
        ob_koneksi.Close()
    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "Eksekutif" Then
            TextBox4.Text = 350000
        ElseIf ComboBox2.Text = "Bisnis" Then
            TextBox4.Text = 250000
        ElseIf ComboBox2.Text = "Ekonomi" Then
            TextBox4.Text = 100000
        End If
    End Sub
End Class