Minggu, 23 Oktober 2011

Tugas 15 sampai 22 Apkom 4 D4 A

Silahkan kumpul disini

24 komentar:

  1. Public Class Latihan15

    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 Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    DT.Rows.Clear()
    wiwi.Fill(DT)
    data46109001.DataSource = DT
    wiwi.Dispose()

    End Sub
    End Class


    Public Class latihan_16_001
    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 latihan_16_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    DT.Rows.Clear()
    wiwi.Fill(DT)
    data46109001.DataSource = DT
    wiwi.Dispose()
    End Sub
    End Class

    Public Class latihan_17_001
    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 latihan_17_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    DT.Rows.Clear()
    wiwi.Fill(DT)
    data46109001.DataSource = DT
    wiwi.Dispose()
    End Sub
    End Class


    Public Class latihan_18_001

    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 latihan_18_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
    DT.Rows.Clear()
    wiwi.Fill(DT)
    data46109001.DataSource = DT
    wiwi.Dispose()

    End Sub
    End Class






    Public Class latihan_19_001
    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 latihan_19_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
    DT.Rows.Clear()
    wiwi.Fill(DT)
    data46109001.DataSource = DT
    wiwi.Dispose()
    End Sub
    End Class

    BalasHapus
  2. Public Class LATIHAN015045

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

    Dim DS As New DataTable

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim DEDE As New OleDb.OleDbDataAdapter
    DEDE = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    DS.Rows.Clear()
    DEDE.Fill(DS)
    hachiko.DataSource = DS
    DEDE.Dispose()

    End Sub
    End Class



    Public Class LATIHAN016045

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

    Dim DS As New DataTable

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim DEDE As New OleDb.OleDbDataAdapter
    DEDE = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
    DS.Rows.Clear()
    DEDE.Fill(DS)
    hachiko.DataSource = DS
    DEDE.Dispose()

    End Sub
    End Class


    Public Class LATIHAN017045

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

    Dim DS As New DataTable

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim DEDE As New OleDb.OleDbDataAdapter
    DEDE = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    DS.Rows.Clear()
    DEDE.Fill(DS)
    hachiko.DataSource = DS
    DEDE.Dispose()

    End Sub
    End Class


    Public Class LATIHAN018045


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

    Dim DS As New DataTable

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim DEDE As New OleDb.OleDbDataAdapter
    DEDE = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
    DS.Rows.Clear()
    DEDE.Fill(DS)
    hachiko.DataSource = DS
    DEDE.Dispose()

    End Sub
    End Class


    Public Class LATIHAN019045

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

    Dim DS As New DataTable

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim DEDE As New OleDb.OleDbDataAdapter
    DEDE = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
    DS.Rows.Clear()
    DEDE.Fill(DS)
    hachiko.DataSource = DS
    DEDE.Dispose()

    End Sub

    Private Sub hachiko_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles hachiko.CellContentClick

    End Sub
    End Class

    BalasHapus
  3. Public Class LATIHAN020045

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

    Dim DS As New DataTable

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim DEDE As New OleDb.OleDbDataAdapter
    DEDE = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
    DS.Rows.Clear()
    DEDE.Fill(DS)
    hachiko.DataSource = DS
    DEDE.Dispose()

    End Sub
    End Class


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

    Dim dede1 As New DataTable
    Dim dede2 As New DataTable

    Dim dss As New DataSet

    Dim ikha1 As New BindingSource
    Dim ikha2 As New BindingSource

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

    Dim chiko1 As New OleDb.OleDbDataAdapter
    Dim chiko2 As New OleDb.OleDbDataAdapter

    chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
    chiko1.Fill(dede1)
    chiko1.Dispose()

    chiko1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
    chiko1.Fill(dede2)
    chiko2.Dispose()

    dss.Tables.Add(dede1)
    dss.Tables.Add(dede2)

    dede1.TableName = "01"
    dede2.TableName = "02"

    dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))

    ikha1.DataSource = dss
    ikha1.DataMember = "01"
    ikha2.DataSource = ikha1
    ikha2.DataMember = "03"

    dd1.DataSource = ikha1
    dd1.DataSource = ikha2
    End Sub
    End Class


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

    Dim dede1 As New DataTable
    Dim dede2 As New DataTable

    Dim dss As New DataSet

    Dim ikha1 As New BindingSource
    Dim ikha2 As New BindingSource

    Private Sub latihan_22_045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim chiko1 As New OleDb.OleDbDataAdapter
    Dim chiko2 As New OleDb.OleDbDataAdapter

    chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
    chiko1.Fill(dede1)
    chiko1.Dispose()

    chiko2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
    chiko2.Fill(dede2)
    chiko2.Dispose()

    dss.Tables.Add(dede1)
    dss.Tables.Add(dede2)

    dede1.TableName = "01"
    dede2.TableName = "02"

    dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))

    ikha1.DataSource = dss
    ikha1.DataMember = "01"
    ikha2.DataSource = ikha1
    ikha2.DataMember = "03"

    dd1.DataSource = ikha1
    dd2.DataSource = ikha2
    End Sub
    End Class

    BalasHapus
  4. sulkifli herman
    46109008

    Public Class latihan_15_008
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim Bakpenampung As New DataTable

    Private Sub latihan_15_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("select* from barang", Jembatan)
    X.Fill(Bakpenampung)
    DGV46109008.DataSource = Bakpenampung
    X.Dispose()
    End Sub


    Private Sub DGV008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick

    End Sub
    End Class


    Public Class latihan_16_008
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim detailtransaksi As New DataTable

    Private Sub latihan_16_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select* from mastertransaksi", Jembatan)
    adapter.Fill(detailtransaksi)
    DGV46109008.DataSource = detailtransaksi
    adapter.Dispose()


    End Sub

    Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick

    End Sub
    End Class

    Public Class latihan_17_008
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim mastertransaksi As New DataTable

    Private Sub latihan_17_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select* from detailtransaksi", Jembatan)
    adapter.Fill(mastertransaksi)
    DGV46109008.DataSource = mastertransaksi
    adapter.Dispose()
    End Sub

    Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick

    End Sub
    End Class

    BalasHapus
  5. sulkifli herman
    46109008

    Public Class latihan_18_008
    '.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb'
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim Bakpenampung As New DataTable


    Private Sub latihan_18_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", Jembatan)
    adapter.Fill(Bakpenampung)
    DGV46109008.DataSource = Bakpenampung
    adapter.Dispose()

    End Sub
    End Class

    Public Class latihan_19_008
    '.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb'
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim Bakpenampung As New DataTable
    Private Sub latihan_19_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", Jembatan)
    adapter.Fill(Bakpenampung)
    DGV46109008.DataSource = Bakpenampung
    adapter.Dispose()

    End Sub
    End Class


    Public Class latihan_20_008
    '.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb'
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim Bakpenampung As New DataTable

    Private Sub latihan_20_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", Jembatan)
    adapter.Fill(Bakpenampung)
    DGV46109008.DataSource = Bakpenampung
    adapter.Dispose()


    End Sub
    End Class

    BalasHapus
  6. sulkifli herman
    46109008


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

    Dim shoell As New DataTable
    Dim shoell_2 As New DataTable

    Dim DS As New DataSet

    Dim izhar As New BindingSource
    Dim izhar_2 As New BindingSource

    Private Sub latihan_22_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim odba As New OleDb.OleDbDataAdapter
    Dim odba2 As New OleDb.OleDbDataAdapter

    odba = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
    odba.Fill(shoell)
    odba.Dispose()

    odba2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
    odba2.Fill(shoell_2)
    odba2.Dispose()

    DS.Tables.Add(shoell)
    DS.Tables.Add(shoell_2)

    shoell.TableName = "induk"
    shoell_2.TableName = "anak"

    DS.Relations.Add(New DataRelation("cucu", DS.Tables("induk").Columns("notrans"), DS.Tables("anak").Columns("notrans")))

    izhar.DataSource = DS
    izhar.DataMember = "induk"
    izhar_2.DataSource = izhar
    izhar_2.DataMember = "cucu"

    DGV1_46109008.DataSource = izhar
    DGV2_46109008.DataSource = izhar_2
    End Sub


    End Class


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

    Dim shoell As New DataTable
    Dim shoell_2 As New DataTable

    Dim DS As New DataSet

    Dim izhar As New BindingSource
    Dim izhar_2 As New BindingSource

    Private Sub latihan_22_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim odba As New OleDb.OleDbDataAdapter
    Dim odba2 As New OleDb.OleDbDataAdapter

    odba = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
    odba.Fill(shoell)
    odba.Dispose()

    odba2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
    odba2.Fill(shoell_2)
    odba2.Dispose()

    DS.Tables.Add(shoell)
    DS.Tables.Add(shoell_2)

    shoell.TableName = "induk"
    shoell_2.TableName = "anak"

    DS.Relations.Add(New DataRelation("cucu", DS.Tables("induk").Columns("notrans"), DS.Tables("anak").Columns("notrans")))

    izhar.DataSource = DS
    izhar.DataMember = "induk"
    izhar_2.DataSource = izhar
    izhar_2.DataMember = "cucu"

    DGV1_46109008.DataSource = izhar
    DGV2_46109008.DataSource = izhar_2
    End Sub

    End Class

    BalasHapus
  7. WAHDANIAH
    46109051


    Public Class LATIHAN15_46109051

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

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nia As New OleDb.OleDbDataAdapter
    nia = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    wahda.Rows.Clear()
    nia.Fill(wahda)
    dg_51.DataSource = wahda
    nia.Dispose()
    End Sub
    End Class





    Public Class LATIHAN16_46109051

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

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nia As New OleDb.OleDbDataAdapter
    nia = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    wahda.Rows.Clear()
    nia.Fill(wahda)
    dg_051.DataSource = wahda
    nia.Dispose()
    End Sub
    End Class





    Public Class LATIHAN17_46109051

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

    Private Sub LATIHAN17_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nia As New OleDb.OleDbDataAdapter
    nia = New OleDb.OleDbDataAdapter("select * FROM DETAILTRANSAKSI", CONECT)
    wahda.Rows.Clear()
    nia.Fill(wahda)
    dg_051.DataSource = wahda
    nia.Dispose()
    End Sub

    End Class




    Public Class LATIHAN18_46109051

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

    Private Sub Latihan18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nia As New OleDb.OleDbDataAdapter
    nia = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
    wahda.Rows.Clear()
    nia.Fill(wahda)
    dg_051.DataSource = wahda
    nia.Dispose()
    End Sub
    End Class




    Public Class LATIHAN19_46109051


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

    Private Sub Latihan19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nia As New OleDb.OleDbDataAdapter
    nia = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
    wahda.Rows.Clear()
    nia.Fill(wahda)
    dg_051.DataSource = wahda
    nia.Dispose()
    End Sub
    End Class

    BalasHapus
  8. Public Class LATIHAN20_46109051

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

    Private Sub LATIHAN20_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nia As New OleDb.OleDbDataAdapter
    nia = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
    wahda.Rows.Clear()
    nia.Fill(wahda)
    dg_051.DataSource = wahda
    wahda.Dispose()
    End Sub
    End Class




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

    Dim tabel1 As New DataTable
    Dim tabel2 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 adapter1 As New OleDb.OleDbDataAdapter
    Dim adapter2 As New OleDb.OleDbDataAdapter

    adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
    adapter1.Fill(tabel1)
    adapter1.Dispose()

    adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    adapter2.Fill(tabel2)
    adapter2.Dispose()

    ds.Tables.Add(tabel1)
    ds.Tables.Add(tabel2)

    tabel1.TableName = "wahda"
    tabel2.TableName = "niah"

    ds.Relations.Add(New DataRelation("niah", ds.Tables("wahda").Columns("notrans"), ds.Tables("niah").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "wahda"
    bs2.DataSource = bs1
    bs2.DataMember = "niah"

    dg1_051.DataSource = bs1
    dg2_051.DataSource = bs2
    End Sub
    End Class




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

    Dim tabel1 As New DataTable
    Dim tabel2 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 adapter1 As New OleDb.OleDbDataAdapter
    Dim adapter2 As New OleDb.OleDbDataAdapter

    adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
    adapter1.Fill(tabel1)
    adapter1.Dispose()

    adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    adapter2.Fill(tabel2)
    adapter2.Dispose()

    ds.Tables.Add(tabel1)
    ds.Tables.Add(tabel2)

    tabel1.TableName = "wahda"
    tabel2.TableName = "niah"

    ds.Relations.Add(New DataRelation("niah", ds.Tables("wahda").Columns("notrans"), ds.Tables("niah").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "wahda"
    bs2.DataSource = bs1
    bs2.DataMember = "niah"

    dg1_051.DataSource = bs1
    dg2_051.DataSource = bs2
    End Sub
    End Class

    BalasHapus
  9. Public Class LATIHAN22_46109051

    Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim tabel1 As New DataTable
    Dim tabel2 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 adapter1 As New OleDb.OleDbDataAdapter
    Dim adapter2 As New OleDb.OleDbDataAdapter

    adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
    adapter1.Fill(tabel1)
    adapter1.Dispose()

    adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    adapter2.Fill(tabel2)
    adapter2.Dispose()

    ds.Tables.Add(tabel1)
    ds.Tables.Add(tabel2)

    tabel1.TableName = "wahda"
    tabel2.TableName = "niah"

    ds.Relations.Add(New DataRelation("niah", ds.Tables("wahda").Columns("notrans"), ds.Tables("niah").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "wahda"
    bs2.DataSource = bs1
    bs2.DataMember = "niah"

    dg1_051.DataSource = bs1
    dg2_051.DataSource = bs2

    End Sub
    End Class

    BalasHapus
  10. Public Class Latihan15_46109017

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

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim WANDIKA As New OleDb.OleDbDataAdapter
    WANDIKA = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    AYU.Rows.Clear()
    WANDIKA.Fill(AYU)
    data46109017.DataSource = AYU
    WANDIKA.Dispose()
    End Sub

    Private Sub data46109017_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles data46109017.CellContentClick

    End Sub
    End Class

    Public Class Latihan16_46109017

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

    Private Sub Latihan16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim WANDIKA As New OleDb.OleDbDataAdapter
    WANDIKA = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
    AYU.Rows.Clear()
    WANDIKA.Fill(AYU)
    data46109017.DataSource = AYU
    WANDIKA.Dispose()
    End Sub
    End Class

    Public Class Latihan17_46109017

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

    Private Sub Latihan17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim WANDIKA As New OleDb.OleDbDataAdapter
    WANDIKA = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    AYU.Rows.Clear()
    WANDIKA.Fill(AYU)
    data46109017.DataSource = AYU
    WANDIKA.Dispose()
    End Sub
    End Class

    Public Class Latihan18_46109017

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

    Private Sub Latihan18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim WANDIKA As New OleDb.OleDbDataAdapter
    WANDIKA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
    AYU.Rows.Clear()
    WANDIKA.Fill(AYU)
    data46109017.DataSource = AYU
    WANDIKA.Dispose()
    End Sub
    End Class

    Public Class Latihan19_46109017

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

    Private Sub Latihan19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim WANDIKA As New OleDb.OleDbDataAdapter
    WANDIKA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
    AYU.Rows.Clear()
    WANDIKA.Fill(AYU)
    data46109017.DataSource = AYU
    WANDIKA.Dispose()
    End Sub
    End Class

    BalasHapus
  11. Public Class Latihan20_46109017

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

    Private Sub Latihan20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim WANDIKA As New OleDb.OleDbDataAdapter
    WANDIKA = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
    AYU.Rows.Clear()
    WANDIKA.Fill(AYU)
    data46109017.DataSource = AYU
    WANDIKA.Dispose()
    End Sub
    End Class

    Public Class Latihan21_46109017

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

    Dim tabel1 As New DataTable
    Dim tabel2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource

    Private Sub Latihan21_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter1 As New OleDb.OleDbDataAdapter
    Dim adapter2 As New OleDb.OleDbDataAdapter

    adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
    adapter1.Fill(tabel1)
    adapter1.Dispose()

    adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    adapter2.Fill(tabel2)
    adapter2.Dispose()

    ds.Tables.Add(tabel1)
    ds.Tables.Add(tabel2)

    tabel1.TableName = "AYU"
    tabel2.TableName = "WANDIKA"

    ds.Relations.Add(New DataRelation("PUTRI", ds.Tables("AYU").Columns("notrans"), ds.Tables("WANDIKA").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "AYU"
    bs2.DataSource = bs1
    bs2.DataMember = "PUTRI"

    DATA1_46109017.DataSource = bs1
    DATA2_46109017.DataSource = bs2

    End Sub
    End Class

    Public Class Latihan22_46109017

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

    Dim tabel1 As New DataTable
    Dim tabel2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource

    Private Sub Latihan21_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter1 As New OleDb.OleDbDataAdapter
    Dim adapter2 As New OleDb.OleDbDataAdapter

    adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
    adapter1.Fill(tabel1)
    adapter1.Dispose()

    adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    adapter2.Fill(tabel2)
    adapter2.Dispose()

    ds.Tables.Add(tabel1)
    ds.Tables.Add(tabel2)

    tabel1.TableName = "AYU"
    tabel2.TableName = "WANDIKA"

    ds.Relations.Add(New DataRelation("PUTRI", ds.Tables("AYU").Columns("notrans"), ds.Tables("WANDIKA").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "AYU"
    bs2.DataSource = bs1
    bs2.DataMember = "PUTRI"

    DATA1_46109017.DataSource = bs1
    DATA2_46109017.DataSource = bs2

    End Sub
    End Class

    BalasHapus
  12. INDAH YANI SAENONG
    46109053
    3AD4
    Public Class Form15
    Dim tabel As New DataTable
    Dim koneksi 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 adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
    tabel.Rows.Clear()
    adapter.Fill(tabel)

    dgv.DataSource = tabel
    adapter.Dispose()

    End Sub

    Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick

    End Sub
    End Class



    Public Class Form16
    Dim tabel As New DataTable
    Dim koneksi 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 adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
    tabel.Rows.Clear()
    adapter.Fill(tabel)

    dgv.DataSource = tabel
    adapter.Dispose()

    End Sub

    Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick

    End Sub
    End Class



    Public Class Form17
    Dim tabel As New DataTable
    Dim koneksi 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 adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    tabel.Rows.Clear()
    adapter.Fill(tabel)

    dgv.DataSource = tabel
    adapter.Dispose()

    End Sub

    Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick

    End Sub
    End Class

    BalasHapus
  13. Public Class Form18
    Dim tabel As New DataTable
    Dim koneksi 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 adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", koneksi)
    tabel.Rows.Clear()
    adapter.Fill(tabel)

    dgv.DataSource = tabel
    adapter.Dispose()

    End Sub


    Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick

    End Sub
    End ClassPublic Class Form18
    Dim tabel As New DataTable
    Dim koneksi 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 adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", koneksi)
    tabel.Rows.Clear()
    adapter.Fill(tabel)

    dgv.DataSource = tabel
    adapter.Dispose()

    End Sub


    Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick

    End Sub
    End Class



    Public Class latihan019053
    Dim tabel As New DataTable
    Dim koneksi 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 adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", koneksi)
    tabel.Rows.Clear()
    adapter.Fill(tabel)

    dgv.DataSource = tabel
    adapter.Dispose()

    End Sub

    Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick

    End Sub
    End Class

    BalasHapus
  14. Public Class LATIHAN020053
    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 latihan020053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim indah As New OleDb.OleDbDataAdapter
    indah = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
    DT.Rows.Clear()
    indah.Fill(DT)
    DGV_053.DataSource = DT
    indah.Dispose()
    End Sub

    Private Sub DGV_053_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_053.CellContentClick

    End Sub
    End Class

    BalasHapus
  15. Public Class Latihan15
    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 Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ichal As New OleDb.OleDbDataAdapter
    ichal = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    DT.Rows.Clear()
    ichal.Fill(DT)
    dgv_46109009.DataSource = DT
    ichal.Dispose()
    End Sub
    End Class




    Public Class latihan_16_009
    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 latihan_16_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ichal As New OleDb.OleDbDataAdapter
    ichal = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    DT.Rows.Clear()
    ichal.Fill(DT)
    dgv_46109009.DataSource = DT
    ichal.Dispose()
    End Sub
    End Class





    Public Class latihan_17_009
    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 latihan_17_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ichal As New OleDb.OleDbDataAdapter
    ichal = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    DT.Rows.Clear()
    ichal.Fill(DT)
    dgv_46109009.DataSource = DT
    ichal.Dispose()
    End Sub
    End Class






    Public Class latihan_18_009
    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 latihan_18_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ichal As New OleDb.OleDbDataAdapter
    ichal = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
    DT.Rows.Clear()
    ichal.Fill(DT)
    dgv_46109009.DataSource = DT
    ichal.Dispose()
    End Sub
    End Class

    BalasHapus
  16. Public Class latihan_19_009
    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 latihan_19_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ichal As New OleDb.OleDbDataAdapter
    ichal = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
    DT.Rows.Clear()
    ichal.Fill(DT)
    dgv_46109009.DataSource = DT
    ichal.Dispose()
    End Sub
    End Class




    Public Class latihan_20_009
    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 latihan_20_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ichal As New OleDb.OleDbDataAdapter
    ichal = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
    DT.Rows.Clear()
    ichal.Fill(DT)
    dgv_46109009.DataSource = DT
    ichal.Dispose()
    End Sub
    End Class

    BalasHapus
  17. Public Class latihan_21_009
    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim faisal1 As New DataTable
    Dim faisal2 As New DataTable
    Dim dss As New DataSet
    Dim ichal1 As New BindingSource
    Dim ichal2 As New BindingSource
    Private Sub latihan_21_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim cacad1 As New OleDb.OleDbDataAdapter
    Dim cacad2 As New OleDb.OleDbDataAdapter
    cacad1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
    cacad1.Fill(faisal1)
    cacad1.Dispose()
    cacad2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
    cacad2.Fill(faisal2)
    cacad2.Dispose()
    dss.Tables.Add(faisal1)
    dss.Tables.Add(faisal2)
    faisal1.TableName = "cupu"
    faisal2.TableName = "celup"
    dss.Relations.Add(New DataRelation("tegelas", dss.Tables("cupu").Columns("notrans"), dss.Tables("celup").Columns("notrans")))
    ichal1.DataSource = dss
    ichal1.DataMember = "cupu"
    ichal2.DataSource = ichal1
    ichal2.DataMember = "tegelas"
    data146109009.DataSource = ichal1
    data246109009.DataSource = ichal2
    End Sub
    End Class




    Public Class latihan_22_009
    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim faisal1 As New DataTable
    Dim faisal2 As New DataTable
    Dim dss As New DataSet
    Dim ichal1 As New BindingSource
    Dim ichal2 As New BindingSource
    Private Sub latihan_22_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim cacad1 As New OleDb.OleDbDataAdapter
    Dim cacad2 As New OleDb.OleDbDataAdapter
    cacad1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
    cacad1.Fill(faisal1)
    cacad1.Dispose()
    cacad2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
    cacad2.Fill(faisal2)
    cacad2.Dispose()
    dss.Tables.Add(faisal1)
    dss.Tables.Add(faisal2)
    faisal1.TableName = "cupu"
    faisal2.TableName = "celup"
    dss.Relations.Add(New DataRelation("tegelas", dss.Tables("cupu").Columns("notrans"), dss.Tables("celup").Columns("notrans")))
    ichal1.DataSource = dss
    ichal1.DataMember = "cupu"
    ichal2.DataSource = ichal1
    ichal2.DataMember = "tegelas"
    data146109009.DataSource = ichal1
    data246109009.DataSource = ichal2
    End Sub
    End Class

    BalasHapus
  18. Public Class latihan_15_46109008
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim Bakpenampung As New DataTable

    Private Sub latihan_15_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("select* from barang", Jembatan)
    X.Fill(Bakpenampung)
    DGV46109008.DataSource = Bakpenampung
    X.Dispose()
    End Sub


    Private Sub DGV008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick

    End Sub
    End Class


    Public Class latihan_16_46109008
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim detailtransaksi As New DataTable

    Private Sub latihan_16_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select* from mastertransaksi", Jembatan)
    adapter.Fill(detailtransaksi)
    DGV46109008.DataSource = detailtransaksi
    adapter.Dispose()


    End Sub

    Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick

    End Sub
    End Class


    Public Class latihan_17_46109008
    Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim mastertransaksi As New DataTable

    Private Sub latihan_17_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select* from detailtransaksi", Jembatan)
    adapter.Fill(mastertransaksi)
    DGV46109008.DataSource = mastertransaksi
    adapter.Dispose()
    End Sub

    Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick

    End Sub
    End Class

    BalasHapus
  19. Dwi Mustika Chaerunnisa Mulyadi
    46109054

    Public Class LATIHAN017_46109054
    Dim dt As New DataTable
    Dim KONEKSI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Latihan_17_46109054_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", KONEKSI)
    a.Fill(dt)
    a.Dispose()
    DGV_054.DataSource = dt
    End Sub

    Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick

    End Sub
    End Class




    Public Class LATIHAN018_46109054

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

    Private Sub Latihan_18_46109054_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 BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", DWI)
    a.Fill(dt)
    a.Dispose()
    DGV_054.DataSource = dt
    End Sub

    Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick

    End Sub

    End Class

    BalasHapus
  20. Dwi Mustika Chaerunnisa Mulyadi
    46109054

    Public Class LATIHAN019_46109054
    Dim dt As New DataTable
    Dim KONEKSI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Latihan019_46109054_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 MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", KONEKSI)
    a.Fill(dt)
    a.Dispose()
    dgv_054.DataSource = dt
    End Sub

    Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_054.CellContentClick

    End Sub
    End Class



    Public Class Latihan_20_46109054
    Dim dt As New DataTable
    Dim DWI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Latihan_20_46109054_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 BARANG.KODEBARANG, BARANG.NAMABARANG, MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM (BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG) INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", DWI)
    a.Fill(dt)
    a.Dispose()
    DGV_054.DataSource = dt
    End Sub

    Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick

    End Sub
    End Class

    BalasHapus
  21. Tugas16_46109003
    Muhammad Attahkrim

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

    Private Sub Tugas15_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tahkrim As New OleDb.OleDbDataAdapter
    tahkrim = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
    tabel.Rows.Clear()
    tahkrim.Fill(tabel)
    Data_46109003.DataSource = tabel

    tahkrim.Dispose()

    End Sub

    End Class

    Tugas17_46109003
    Muhammad Attahkrim

    Public Class Tugas17_46109003

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

    Private Sub Tugas17_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tahkrim As New OleDb.OleDbDataAdapter
    tahkrim = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    tabel.Rows.Clear()
    tahkrim.Fill(tabel)
    Data_46109003.DataSource = tabel

    tahkrim.Dispose()
    End Sub
    End Class

    Tugas18_46109003
    Muhammad Attahkrim

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

    Private Sub Tugas18_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tahkrim As New OleDb.OleDbDataAdapter
    tahkrim = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", koneksi)
    tabel.Rows.Clear()
    tahkrim.Fill(tabel)
    data_46109003.DataSource = tabel

    tahkrim.Dispose()
    End Sub

    End Class

    BalasHapus
  22. Tugas15_46109003
    Muhammad Attahkrim


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

    Private Sub Tugas15_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tahkrim As New OleDb.OleDbDataAdapter
    tahkrim = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
    tabel.Rows.Clear()
    tahkrim.Fill(tabel)
    Data_46109003.DataSource = tabel

    tahkrim.Dispose()

    End Sub

    End Class

    BalasHapus
  23. Public Class Tugas15_46109037
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Tugas15_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tio As New OleDb.OleDbDataAdapter
    tio = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
    tabel.Rows.Clear()
    tio.Fill(tabel)
    Data_46109037.DataSource = tabel
    tio.Dispose()
    End Sub
    End Class




    Public Class Tugas16_46109037
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Tugas16_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tio As New OleDb.OleDbDataAdapter
    tio = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
    tabel.Rows.Clear()
    tio.Fill(tabel)
    Data_46109037.DataSource = tabel
    tio.Dispose()
    End Sub
    End Class




    Public Class Tugas17_46109037
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Tugas17_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tio As New OleDb.OleDbDataAdapter
    tio = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
    tabel.Rows.Clear()
    tio.Fill(tabel)
    Data_46109037.DataSource = tabel
    tio.Dispose()
    End Sub
    End Class



    Public Class Tugas18_46109037
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Tugas18_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tio As New OleDb.OleDbDataAdapter
    tio = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", koneksi)
    tabel.Rows.Clear()
    tio.Fill(tabel)
    data_46109037.DataSource = tabel
    tio.Dispose()
    End Sub
    End Class

    BalasHapus
  24. Public Class Tugas19_46109037
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Tugas19_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tio As New OleDb.OleDbDataAdapter
    tio = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", koneksi)
    tabel.Rows.Clear()
    tio.Fill(tabel)
    Data46109037.DataSource = tabel
    tio.Dispose()
    End Sub
    End Class





    Public Class Tugas20_46109037
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Tugas20_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tio As New OleDb.OleDbDataAdapter
    tio = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", koneksi)
    tabel.Rows.Clear()
    tio.Fill(tabel)
    data_46109037.DataSource = tabel
    tio.Dispose()
    End Sub
    End Class

    BalasHapus