apkom4 latihan 15-22

latihan 15

Public Class Form15
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim DT As New DataTable
    Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        DGV_36109017.DataSource = DT

        uphy.Dispose()

    End Sub
End Class

latihan 16

Public Class Form16
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim DT As New DataTable

    Private Sub Form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)

        dgv_36109017.DataSource = DT

        uphy.Dispose()

    End Sub
End Class

latihan 17

Public Class Form17
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim DT As New DataTable


    Private Sub Form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv_36109017.DataSource = DT

        uphy.Dispose()

    End Sub
End Class

latihan 18

Public Class Form18
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim DT As New DataTable

    Private Sub Form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from QUERY1", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv_36109017.DataSource = DT

        uphy.Dispose()
    End Sub
End Class

latihan 19

Public Class Form19
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim DT As New DataTable

    Private Sub Form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from QUERY2", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv_36109017.DataSource = DT

        uphy.Dispose()

    End Sub
End Class

latihan 20

Public Class Form20
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim DT As New DataTable

    Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from QUERY3", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv_36109017.DataSource = DT

        uphy.Dispose()

    End Sub
End Class

latihan 21

Public Class Form21
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim KECOAK1 As New DataTable
    Dim KECOAK2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource



    Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        Dim b As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

        a.Fill(KECOAK1)
        a.Dispose()

        b = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
        b.Fill(KECOAK2)
        b.Dispose()

        ds.Tables.Add(KECOAK1)
        ds.Tables.Add(KECOAK2)

        KECOAK1.TableName = "uphy1"
        KECOAK2.TableName = "uphy2"

        ds.Relations.Add(New DataRelation("uphy", ds.Tables("uphy1").Columns("NOTRANS"), ds.Tables("uphy2").Columns("NOTRANS")))

        bs1.DataSource = ds
        bs1.DataMember = "uphy1"
        bs2.DataSource = bs1
        bs2.DataMember = "uphy"

        dgv1_36109017.DataSource = bs1
        dgv2_36109017.DataSource = bs2

    End Sub
End Class

latihan 22

Public Class Form22
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim KECOAK1 As New DataTable
    Dim KECOAK2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource
    Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", CONECT)
        uphy.Fill(KECOAK1)
        dgv1_36109017.DataSource = KECOAK2
        uphy.Dispose()

        Dim KECOAK As New OleDb.OleDbDataAdapter
        KECOAK = New OleDb.OleDbDataAdapter("select * from QUERY4", CONECT)
        KECOAK.Fill(KECOAK2)
        dgv2_36109017.DataSource = KECOAK2
        KECOAK.Dispose()

        ds.Tables.Add(KECOAK1)
        ds.Tables.Add(KECOAK2)

        KECOAK1.TableName = "uphy1"
        KECOAK2.TableName = "uphy2"

        ds.Relations.Add(New DataRelation("uphy", ds.Tables("uphy1").Columns("NOTRANS"), ds.Tables("uphy2").Columns("NOTRANS")))

        bs1.DataSource = ds
        bs1.DataMember = "uphy1"
        bs2.DataSource = bs1
        bs2.DataMember = "uphy"

        dgv1_36109017.DataSource = bs1
        dgv2_36109017.DataSource = bs2

    End Sub
End Class