Latihan 15-20

Public Class Form15

Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from BARANG", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
DataGridView1_36109022.DataSource = amii

End Sub
End Class
Public Class Form16
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from BARANG", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
DataGridView1_36109022.DataSource = amii

End Sub
End Class
Public Class Form17
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
DataGridView1_36109022.DataSource = amii

End Sub
End Class
Public Class Form18
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * From Query5", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
kolom_36109022.DataSource = amii
End Sub
End Class
Public Class Form19

Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from Query5", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
data_36109022.DataSource = amii

End Sub
End Class
Public Class Form20
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from Query6", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
tampil_36109022.DataSource = amii
End Sub
End Class