LATIHAN 15-19

ANDI WAHYUNI

361 09 019

3A D3

Public Class Form15

    Dim nyai As New DataTable

    Dim uni 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 OD As New OleDb.OleDbDataAdapter

        OD = New OleDb.OleDbDataAdapter("select * from BARANG", uni)

        nyai.Rows.Clear()

        OD.Fill(nyai)

        DGT36109019.DataSource = nyai

        OD.Dispose()

    End Sub

End Class

Public Class Form16

    Dim nyai As New DataTable

    Dim uni 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 OD As New OleDb.OleDbDataAdapter

        OD = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", uni)

        nyai.Rows.Clear()

        OD.Fill(nyai)

        Data36109019.DataSource = nyai

        OD.Dispose()

    End Sub

End Class

Public Class Form17

    Dim nyai As New DataTable

    Dim uni 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 OD As New OleDb.OleDbDataAdapter

        OD = New OleDb.OleDbDataAdapter("select * from detailtransaksi", uni)

        nyai.Rows.Clear()

        OD.Fill(nyai)

        DGV36109019.DataSource = nyai

        OD.Dispose()

    End Sub

End Class

Public Class Form18

    Dim nyai As New DataTable

    Dim uni 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 OD As New OleDb.OleDbDataAdapter

        OD = New OleDb.OleDbDataAdapter("select * from query1", uni)

        nyai.Rows.Clear()

        OD.Fill(nyai)

        DGV36109019.DataSource = nyai

        OD.Dispose()

    End Sub

End Class

Public Class Form19

    Dim nyai As New DataTable

    Dim uni As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim OD As New OleDb.OleDbDataAdapter

        OD = New OleDb.OleDbDataAdapter("select * from query2", uni)

        nyai.Rows.Clear()

        OD.Fill(nyai)

        DGV36109019.DataSource = nyai

        OD.Dispose()

    End Sub

End Class

---------------------------------------------------------------------------