LATIHAN 15-22 APKOM 4

LATIHAN 15 APKOM 4

Public Class Form15

    Dim rusna_DT As New DataTable

    Dim Ningsi 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 a As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from BARANG", Ningsi)

        a.Fill(rusna_DT)

        a.Dispose()

        dgt_36109010.DataSource = rusna_DT

    End Sub

End Class

LATIHAN 16 APKOM 4

Public Class Form16

    Dim rusna_DT As New DataTable

    Dim Ningsi 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 a As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", Ningsi)

        a.Fill(rusna_DT)

        a.Dispose()

        dgt_36109010.DataSource = rusna_DT

    End Sub

End Class 

 LATIHAN 17 APKOM 4

  

Public Class Form17

    Dim rusna_DT As New DataTable

    Dim Ningsi 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 a As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", Ningsi)

        a.Fill(rusna_DT)

        a.Dispose()

        dgt_36109010.DataSource = rusna_DT

    End Sub

End Class

 LATIHAN 18 APKOM 4

Public Class Form18

    Dim rusna_DT As New DataTable

    Dim Ningsi 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 a As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from Query1", Ningsi)

        a.Fill(rusna_DT)

        a.Dispose()

        dgt_36109010.DataSource = rusna_DT

    End Sub

End Class

  

LATIHAN 19 APKOM 4

Public Class Form19

    Dim rusna_DT As New DataTable

    Dim Ningsi 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 a As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from Query2", Ningsi)

        a.Fill(rusna_DT)

        a.Dispose()

        dgt_36109010.DataSource = rusna_DT

    End Sub

End Class

 

LATIHAN 20 APKOM 4 

Public Class Form20

    Dim rusna_DT As New DataTable

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

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

        Dim a As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from Query3", Ningsi)

        a.Fill(rusna_DT)

        a.Dispose()

        dgt_36109010.DataSource = rusna_DT

    End Sub

End Class

LATIHAN 21 APKOM 4

Public Class Form21

    Dim rusna As New DataSet

    Dim rusna1 As New DataTable

    Dim rusna2 As New DataTable

    Dim ningsi1 As New BindingSource

    Dim ningsi2 As New BindingSource

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

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

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

        Dim virgo1 As New OleDb.OleDbDataAdapter

        virgo1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", ningsi11)

        virgo1.Fill(rusna1)

        virgo1.Dispose()

        dgt1_36109010.DataSource = rusna1

        Dim virgo2 As New OleDb.OleDbDataAdapter

        virgo2 = New OleDb.OleDbDataAdapter("select  * from DETAILTRANSAKSI", ningsi12)

        virgo2.Fill(rusna2)

        virgo2.Dispose()

        dgt2_36109010.DataSource = rusna

        rusna.Tables.Add(rusna)

        rusna.Tables.Add(rusna2)

        rusna1.TableName = "an1"

        rusna2.TableName = "an2"

        rusna.Relations.Add(New DataRelation("ant1", rusna.Tables("an1").Columns("NOTRANS"), rusna.Tables("an2").Columns("NOTRANS")))

        ningsi1.DataSource = rusna

        ningsi1.DataMember = "an1"

        ningsi2.DataSource = ningsi1

        ningsi2.DataMember = "ant1"

        dgt1_36109010.DataSource = ningsi1

        dgt2_36109010.DataSource = ningsi1

    End Sub

End Class

LATIHAN 22 APKOM 4

Public Class Form22

    Dim rusna As New DataSet

    Dim rusna1 As New DataTable

    Dim rusna2 As New DataTable

    Dim ningsi1 As New BindingSource

    Dim ningsi2 As New BindingSource

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

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

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

        Dim soe1 As New OleDb.OleDbDataAdapter

        soe1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", ningsi11)

        soe1.Fill(rusna1)

        soe1.Dispose()

        dgt1_36109010.DataSource = rusna

        Dim soe2 As New OleDb.OleDbDataAdapter

        soe2 = New OleDb.OleDbDataAdapter("select  * from Query4", ningsi12)

        soe2.Fill(rusna2)

        soe2.Dispose()

        dgt2_36109010.DataSource = rusna2

        rusna.Tables.Add(rusna1)

        rusna.Tables.Add(rusna)

        rusna.TableName = "an1"

        rusna.TableName = "an2"

        rusna.Relations.Add(New DataRelation("ant1", rusna.Tables("an1").Columns("NOTRANS"), rusna.Tables("an2").Columns("NOTRANS")))

        ningsi1.DataSource = rusna

        ningsi1.DataMember = "an1"

        ningsi2.DataSource = ningsi1

        ningsi2.DataMember = "ant1"

        dgt1_36109010.DataSource = ningsi1

        dgt2_36109010.DataSource = ningsi2

    End Sub

 End Class