UAS Pemrograman Bisnis 2

Saya membuat aplikasi database Rental DVD.

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "Admin" Then

            TextBox2.Text = "admin"

            Form2.Show()

            Me.Hide()

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Hide()

    End Sub

End Class

Imports System.Data

Imports System.Data.Sql

Imports System.Data.OleDb

Public Class Form2

    Dim connection As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Lukman Hakim\Documents\dhany.accdb"

    Dim objekkoneksi As New OleDb.OleDbConnection(connection)

    Dim xreader As OleDbDataReader

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        objekkoneksi.Close()

        objekkoneksi.Open()

        Dim add As String = "INSERT INTO TableTransaksi values('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox5.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "', '" & TextBox4.Text & "')"

        Dim ocmd = New OleDbCommand(add, objekkoneksi)

        ocmd.ExecuteNonQuery()

        objekkoneksi.Close()

        MsgBox("Berhasil")

        Form3.Show()

    End Sub

End Class