APKOM 4 (Latihan 15-22)

Latihan 15

Public Class Latihan15_36109005

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

    Dim DT As New DataTable

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

        Dim ICHMI As New OleDb.OleDbDataAdapter

        ICHMI = New OleDb.OleDbDataAdapter("select * from BARANG", IMMY)

        DT.Rows.Clear()

        ICHMI.Fill(DT)

        DGV_36109005.DataSource = DT

        ICHMI.Dispose()

    End Sub

End Class

Latihan 16

Public Class Latihan16_36109005

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

    Dim DT As New DataTable

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

        Dim SAYA As New OleDb.OleDbDataAdapter

        SAYA = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ISMI)

        DT.Rows.Clear()

        SAYA.Fill(DT)

        DGV_36109005.DataSource = DT

        SAYA.Dispose()

    End Sub

End Class

Latihan 17

Public Class Latihan17_36109005

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

    Dim DT As New DataTable

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

        Dim MICKY As New OleDb.OleDbDataAdapter

        MICKY = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", MINI)

      

 DT.Rows.Clear()

        MICKY.Fill(DT)

        DGV_36109005.DataSource = DT

        MICKY.Dispose()

    End Sub

End Class

Latihan 18

Public Class Latihan18_36109005

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

    Dim DT As New DataTable

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

        Dim RIANI As New OleDb.OleDbDataAdapter

        RIANI = New OleDb.OleDbDataAdapter("select * From Query4", FEBRIANI)

        DT.Rows.Clear()

        RIANI.Fill(DT)

        DGV_36109005.DataSource = DT

        RIANI.Dispose()

    End Sub

End Class

Latihan 19

Public Class Latihan19_36109005

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

    Dim DT As New DataTable

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

        Dim MIE As New OleDb.OleDbDataAdapter

        MIE = New OleDb.OleDbDataAdapter("select * From Query5", IMY)

        DT.Rows.Clear()

        MIE.Fill(DT)

        DGV_36109005.DataSource = DT

        MIE.Dispose()

    End Sub

End Class

Latihan 20

Public Class Latihan20_36109005

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

    Dim DT As New DataTable

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

        Dim PEAR As New OleDb.OleDbDataAdapter

        PEAR = New OleDb.OleDbDataAdapter("select * From Query6", WINNY)

        DT.Rows.Clear()

        PEAR.Fill(DT)

        DGV_36109005.DataSource = DT

        PEAR.Dispose()

    End Sub

End Class 

Latihan 21

Public Class Latihan21_36109005

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

    Dim DT1 As New DataTable

    Dim DT2 As New DataTable

    Dim DS As New DataSet

    Dim BS1 As New BindingSource

    Dim BS2 As New BindingSource

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

        Dim KOTAK As New OleDb.OleDbDataAdapter

        Dim UNGU As New OleDb.OleDbDataAdapter

        KOTAK = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", SHE)

        DT1.Rows.Clear()

        KOTAK.Fill(DT1)

        DGV1_36109005.DataSource = BS1

        KOTAK.Dispose()

        UNGU = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI", SHE)

        DT2.Rows.Clear()

        UNGU.Fill(DT2)

        DGV2_36109005.DataSource = BS2

        UNGU.Dispose()

        DS.Tables.Add(DT1)

        DS.Tables.Add(DT2)

        DT1.TableName = "TMM1"

        DT2.TableName = "TMM2"

        DS.Relations.Add(New DataRelation("mi", DS.Tables("TMM1").Columns("Notrans"), DS.Tables("TMM2").Columns("Notrans")))

        BS1.DataSource = DS

        BS1.DataMember = "TMM1"

        BS2.DataSource = BS1

        BS2.DataMember = "mi"

    End Sub

End Class

Latihan 22

Public Class Latihan22_36109005

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

    Dim IS1 As New DataTable

    Dim IS2 As New DataTable

    Dim MI As New DataSet

    Dim ISMI1 As New BindingSource

    Dim ISMI2 As New BindingSource

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

        Dim SEGITIGA As New OleDb.OleDbDataAdapter

        Dim BUNDAR As New OleDb.OleDbDataAdapter

        SEGITIGA = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", MAN)

        IS1.Rows.Clear()

        SEGITIGA.Fill(IS1)

        DGV1_36109005.DataSource = ISMI1

        SEGITIGA.Dispose()

        BUNDAR = New OleDb.OleDbDataAdapter("select * From Query7", MAN)

        IS2.Rows.Clear()

        BUNDAR.Fill(IS2)

        DGV2_36109005.DataSource = ISMI2

        BUNDAR.Dispose()

        MI.Tables.Add(IS1)

        MI.Tables.Add(IS2)

        IS1.TableName = "III"

        IS2.TableName = "SSS"

        MI.Relations.Add(New DataRelation("feb", MI.Tables("III").Columns("Notrans"), MI.Tables("SSS").Columns("Notrans")))

        ISMI1.DataSource = MI

        ISMI1.DataMember = "III"

        ISMI2.DataSource = ISMI1

        ISMI2.DataMember = "feb"

    End Sub

End Class