LATIHAN 15 - 19 APKOM 4

Public NotInheritable Class form15_36109003 Dim anto As New DataTable Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'") Private Sub form15_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim soe As New OleDb.OleDbDataAdapter soe = New OleDb.OleDbDataAdapter("select * from BARANG", ndut) soe.Fill(anto) soe.Dispose() DGV_36109003.DataSource = anto End Sub End Class Public NotInheritable Class form16_36109003 Dim anto As New DataTable Dim ndut 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 soe As New OleDb.OleDbDataAdapter soe = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ndut) soe.Fill(anto) soe.Dispose() DGV_36109003.DataSource = anto End Sub End Class Public NotInheritable Class form17_36109003 Dim anto As New DataTable Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'") Private Sub form17_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim soe As New OleDb.OleDbDataAdapter soe = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", ndut) soe.Fill(anto) soe.Dispose() DGV_36109003.DataSource = anto End Sub End Class Public NotInheritable Class form18_36109003 Dim anto As New DataTable Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'") Private Sub form18_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim soe As New OleDb.OleDbDataAdapter soe = New OleDb.OleDbDataAdapter("select * from Query1", ndut) soe.Fill(anto) soe.Dispose() DGV_36109003.DataSource = anto End Sub End Class Public NotInheritable Class form19_36109003 Dim anto As New DataTable Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'") Private Sub form19_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim soe As New OleDb.OleDbDataAdapter soe = New OleDb.OleDbDataAdapter("select * from Query2", ndut) soe.Fill(anto) soe.Dispose() DGV_36109003.DataSource = anto End Sub End Class Public NotInheritable Class form20_36109003 Dim anto As New DataTable Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'") Private Sub form20_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim soe As New OleDb.OleDbDataAdapter soe = New OleDb.OleDbDataAdapter("select * from Query3", ndut) soe.Fill(anto) soe.Dispose() DGV_36109003.DataSource = anto End Sub End Class