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