LatihanForm_15-17

LatihanForm_15
Public Class Form15_36109009
    Dim alwi_DT_36109009 As New DataTable
    Dim alwiyah_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * from BARANG", alwiyah_36109009)
        alwi_DT_36109009.Rows.Clear()
        aL_36109009.Fill(alwi_DT_36109009)
        aL_36109009.Dispose()
        DGV_36109009.DataSource = alwi_DT_36109009
    End Sub
End Class

LatihanForm_16

Public Class Form16_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim ALWIYAH_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub
End Class


LatihanForm_17
Public Class Form17_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim ALWIYAH_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub
End Class