Minggu, 23 Oktober 2011

Tugas 15 sampai 22 Apkom 4 D3 A

39 komentar:

  1. RIDHAYANTI SALEH
    36109015
    3A-D3

    TUGAS 20-22

    - TUGAS 20

    Public Class Form20_36109015

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

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

    Dim risa As New OleDb.OleDbDataAdapter
    risa = New OleDb.OleDbDataAdapter("select * from query3", CONECT)
    ak.Rows.Clear()
    risa.Fill(ak)
    dgv_015.DataSource = ak

    risa.Dispose()
    End Sub
    End Class

    - TUGAS 21

    Public Class Form21

    Dim ridha_dt1 As New DataTable
    Dim ridha_dt2 As New DataTable

    Dim ridha_ds As New DataSet

    Dim ridha_bs1 As New BindingSource
    Dim ridha_bs2 As New BindingSource

    Dim risa 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 rs1 As New OleDb.OleDbDataAdapter
    Dim rs2 As New OleDb.OleDbDataAdapter

    rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
    rs1.Fill(ridha_dt1)
    rs1.Dispose()
    dgv1_36109015.DataSource = ridha_bs1

    rs2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", risa)
    rs2.Fill(ridha_dt2)
    rs2.Dispose()
    dgv2_36109015.DataSource = ridha_bs2

    ridha_ds.Tables.Add(ridha_dt1)
    ridha_ds.Tables.Add(ridha_dt2)

    ridha_dt1.TableName = "pilihan1"
    ridha_dt2.TableName = "pilihan2"

    ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))

    ridha_bs1.DataSource = ridha_ds
    ridha_bs1.DataMember = "pilihan1"
    ridha_bs2.DataSource = ridha_bs1
    ridha_bs2.DataMember = "ak"
    End Sub
    End Class

    - TUGAS 22

    Public Class Form22_36109015

    Dim ridha_dt1 As New DataTable
    Dim ridha_dt2 As New DataTable

    Dim ridha_ds As New DataSet

    Dim ridha_bs1 As New BindingSource
    Dim ridha_bs2 As New BindingSource

    Dim risa 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 rs1 As New OleDb.OleDbDataAdapter
    Dim rs2 As New OleDb.OleDbDataAdapter

    rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
    rs1.Fill(ridha_dt1)
    rs1.Dispose()
    dgv1_36109015.DataSource = ridha_bs1

    rs2 = New OleDb.OleDbDataAdapter("select * from query4", risa)
    rs2.Fill(ridha_dt2)
    rs2.Dispose()
    dgv2_36109015.DataSource = ridha_bs2

    ridha_ds.Tables.Add(ridha_dt1)
    ridha_ds.Tables.Add(ridha_dt2)

    ridha_dt1.TableName = "pilihan1"
    ridha_dt2.TableName = "pilihan2"

    ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))

    ridha_bs1.DataSource = ridha_ds
    ridha_bs1.DataMember = "pilihan1"
    ridha_bs2.DataSource = ridha_bs1
    ridha_bs2.DataMember = "ak"
    End Sub
    End Class

    BalasHapus
  2. Amelia Indahsari
    361 09 023
    3A-d3

    Form 15

    Public Class Form15
    Dim MN As New DataTable
    Dim CONECT 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 nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    MN.Rows.Clear()
    nisa.Fill(MN)
    dgv36109023.DataSource = MN

    nisa.Dispose()
    End Sub
    End Class
    Form 16
    Public Class Form16
    Dim MN As New DataTable
    Dim CONECT 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 nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    MN.Rows.Clear()
    nisa.Fill(MN)
    dgv36109023.DataSource = MN

    nisa.Dispose()
    End Sub
    End Class
    Form 17
    Public Class Form17
    Dim MN As New DataTable
    Dim CONECT 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 nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
    MN.Rows.Clear()
    nisa.Fill(MN)
    dgv36109023.DataSource = MN

    nisa.Dispose()
    End Sub
    End Class
    Form 18
    Public Class Form18
    Dim MN As New DataTable
    Dim CONECT 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 nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from query1", CONECT)
    MN.Rows.Clear()
    nisa.Fill(MN)
    dgv36109023.DataSource = MN

    nisa.Dispose()
    End Sub
    End Class

    BalasHapus
  3. Public Class Form15
    Dim Febri As New DataTable
    Dim Riri 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 Surya As New OleDb.OleDbDataAdapter
    Surya = New OleDb.OleDbDataAdapter("select * from barang", Riri)
    Surya.Fill(Febri)
    Surya.Dispose()
    DataGridView1.DataSource = Febri
    End Sub
    End Class
    Public Class Form16
    Dim Febri As New DataTable
    Dim Riri 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 Surya As New OleDb.OleDbDataAdapter
    Surya = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", Riri)
    Surya.Fill(Febri)
    Surya.Dispose()
    dgv36109007.DataSource = Febri
    End Sub
    End Class
    Public Class Form17
    Dim Febri As New DataTable
    Dim Riri 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 Surya As New OleDb.OleDbDataAdapter
    Surya = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", Riri)
    Surya.Fill(Febri)
    Surya.Dispose()
    dgv36109007.DataSource = Febri


    End Sub
    End Class
    Public Class Form18
    Dim Febri As New DataTable
    Dim Riri 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 Surya As New OleDb.OleDbDataAdapter
    Surya = New OleDb.OleDbDataAdapter("select * from Query1", Riri)
    Surya.Fill(Febri)
    Surya.Dispose()
    dgv36109007.DataSource = Febri

    End Sub
    End Class

    BalasHapus
  4. Public Class Form19
    Dim Febri As New DataTable
    Dim Riri 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 Surya As New OleDb.OleDbDataAdapter
    Surya = New OleDb.OleDbDataAdapter("select * from Query2", Riri)
    Surya.Fill(Febri)
    Surya.Dispose()
    dgv36109007.DataSource = Febri


    End Sub
    End Class
    Public Class Form20
    Dim Febri As New DataTable
    Dim Riri 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 Surya As New OleDb.OleDbDataAdapter
    Surya = New OleDb.OleDbDataAdapter("select * from Query3", Riri)
    Surya.Fill(Febri)
    Surya.Dispose()
    dgv36109007.DataSource = Febri

    End Sub
    End Class
    Public Class Form21
    Dim Riri 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 Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Febri As New OleDb.OleDbDataAdapter
    Dim Enal As New OleDb.OleDbDataAdapter

    Febri = New OleDb.OleDbDataAdapter("select * from mastertransaksi", Riri)
    Febri.Fill(dt1)
    Febri.Dispose()

    Enal = New OleDb.OleDbDataAdapter("select * from detailtransaksi", Riri)
    Enal.Fill(dt2)
    Enal.Dispose()

    ds.Tables.Add(dt1)
    ds.Tables.Add(dt2)

    dt1.TableName = "Riri1"
    dt2.TableName = "Riri2"

    ds.Relations.Add(New DataRelation("Surya", ds.Tables("Riri1").Columns("notrans"), ds.Tables("Riri2").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "Riri1"
    bs2.DataSource = bs1
    bs2.DataMember = "Surya"

    dgv136109007.DataSource = bs1
    dgv236109007.DataSource = bs2
    End Sub
    End Class
    Public Class Form22
    Dim Riri 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 Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Febri As New OleDb.OleDbDataAdapter
    Dim Enal As New OleDb.OleDbDataAdapter

    Febri = New OleDb.OleDbDataAdapter("select * from mastertransaksi", Riri)
    dt1.Rows.Clear()
    Febri.Fill(dt1)
    Febri.Dispose()


    Enal = New OleDb.OleDbDataAdapter("select * from Query4", Riri)
    Enal.Fill(dt2)
    Enal.Dispose()

    ds.Tables.Add(dt1)
    ds.Tables.Add(dt2)

    dt1.TableName = "Riri1"
    dt2.TableName = "Riri2"

    ds.Relations.Add(New DataRelation("Surya", ds.Tables("Riri1").Columns("notrans"), ds.Tables("Riri2").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "Riri1"
    bs2.DataSource = bs1
    bs2.DataMember = "Surya"

    dgv136109007.DataSource = bs1
    dgv236109007.DataSource = bs2

    End Sub
    End Class

    BalasHapus
  5. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  6. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  7. B. Nuranisa Pertiwi
    36109008

    Latihan 15
    Public Class Latihan15
    Dim nini_DT As New DataTable
    Dim nini As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim NP As New OleDb.OleDbDataAdapter
    NP = New OleDb.OleDbDataAdapter("select * from BARANG", nini)
    NP.Fill(nini_DT)
    NP.Dispose()
    DGV_008.DataSource = nini_DT
    End Sub
    End Class

    BalasHapus
  8. Latihan 16

    Public Class Latihan16
    Dim nini_DT As New DataTable
    Dim nini_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Latihan16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim NP_36109008 As New OleDb.OleDbDataAdapter
    NP_36109008 = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", nini_36109008)
    NP_36109008.Fill(nini_DT)
    NP_36109008.Dispose()
    DGV_008.DataSource = nini_DT
    End Sub
    End Class

    BalasHapus
  9. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  10. Latihan 17

    Public Class Latihan17
    Dim nini_DT As New DataTable
    Dim nini_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Latihan17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim NP_36109008 As New OleDb.OleDbDataAdapter
    NP_36109008 = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", nini_36109008)
    NP_36109008.Fill(nini_DT)
    NP_36109008.Dispose()
    DGV_008.DataSource = nini_DT
    End Sub
    End Class

    BalasHapus
  11. Latihan 18

    Public Class Latihan18
    Dim nini_DT As New DataTable
    Dim nini_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Latihan18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim NP_36109008 As New OleDb.OleDbDataAdapter
    NP_36109008 = New OleDb.OleDbDataAdapter("select * from Query1", nini_36109008)
    NP_36109008.Fill(nini_DT)
    NP_36109008.Dispose()
    DGV_008.DataSource = nini_DT
    End Sub
    End Class

    Latihan 19

    Public Class Latihan19
    Dim nini_DT As New DataTable
    Dim nini_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Latihan19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim NP_36109008 As New OleDb.OleDbDataAdapter
    NP_36109008 = New OleDb.OleDbDataAdapter("select * from Query2", nini_36109008)
    NP_36109008.Fill(nini_DT)
    NP_36109008.Dispose()
    DGV_008.DataSource = nini_DT
    End Sub
    End Class

    BalasHapus
  12. Latihan 20

    Public Class Latihan20
    Dim nini_DT As New DataTable
    Dim nini_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Latihan20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim NP_36109008 As New OleDb.OleDbDataAdapter
    NP_36109008 = New OleDb.OleDbDataAdapter("select * from Query3", nini_36109008)
    NP_36109008.Fill(nini_DT)
    NP_36109008.Dispose()
    DGV_008.DataSource = nini_DT
    End Sub
    End Class

    Latihan 21

    Public Class Latihan21
    Dim nini_DT1 As New DataTable
    Dim nini_DT2 As New DataTable

    Dim nini_DS As New DataSet

    Dim nini_BS1 As New BindingSource
    Dim nini_BS2 As New BindingSource

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

    Private Sub Latihan21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim NP1_36109008 As New OleDb.OleDbDataAdapter
    Dim NP2_36109008 As New OleDb.OleDbDataAdapter

    NP1_36109008 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", nini_36109008)
    nini_DT1.Rows.Clear()
    NP1_36109008.Fill(nini_DT1)
    NP1_36109008.Dispose()
    DGV1_008.DataSource = nini_BS1

    NP2_36109008 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI", nini_36109008)
    nini_DT2.Rows.Clear()
    NP2_36109008.Fill(nini_DT2)
    NP2_36109008.Dispose()
    DGV2_008.DataSource = nini_BS2

    nini_DS.Tables.Add(nini_DT1)
    nini_DS.Tables.Add(nini_DT2)

    nini_DT1.TableName = "NIPER"
    nini_DT2.TableName = "ANISA"

    nini_DS.Relations.Add(New DataRelation("RANI", nini_DS.Tables("NIPER").Columns("notrans"), nini_DS.Tables("ANISA").Columns("notrans")))

    nini_BS1.DataSource = nini_DS
    nini_BS1.DataMember = "NIPER"
    nini_BS2.DataSource = nini_BS1
    nini_BS2.DataMember = "RANI"

    End Sub
    End Class

    BalasHapus
  13. Public NotInheritable Class form15_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub form15_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from BARANG", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form16_36109003
    Dim anto As New DataTable
    Dim ndut 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 soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form17_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub form17_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form18_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub form18_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from Query1", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form19_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub form19_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from Query2", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form20_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub form20_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from Query3", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    BalasHapus
  14. 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

    BalasHapus
  15. Latihan 22

    Public Class Latihan22
    Dim NINI_DT1 As New DataTable
    Dim NINI_DT2 As New DataTable

    Dim NINI_DS As New DataSet

    Dim NINI_BS1 As New BindingSource
    Dim NINI_BS2 As New BindingSource

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

    Private Sub Latihan22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim np1_36109008 As New OleDb.OleDbDataAdapter
    Dim np2_36109008 As New OleDb.OleDbDataAdapter

    np1_36109008 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", NINI_36109008)
    NINI_DT1.Rows.Clear()
    np1_36109008.Fill(NINI_DT1)
    np1_36109008.Dispose()
    DGV1_36109008.DataSource = NINI_BS1

    np2_36109008 = New OleDb.OleDbDataAdapter("select * From Query6", NINI_36109008)
    NINI_DT2.Rows.Clear()
    np2_36109008.Fill(NINI_DT2)
    np2_36109008.Dispose()
    DGV2_36109008.DataSource = NINI_BS2

    NINI_DS.Tables.Add(NINI_DT1)
    NINI_DS.Tables.Add(NINI_DT2)

    NINI_DT1.TableName = "NISA"
    NINI_DT2.TableName = "RANI"

    NINI_DS.Relations.Add(New DataRelation("TIWI", NINI_DS.Tables("NISA").Columns("notrans"), NINI_DS.Tables("RANI").Columns("notrans")))

    NINI_BS1.DataSource = NINI_DS
    NINI_BS1.DataMember = "NISA"
    NINI_BS2.DataSource = NINI_BS1
    NINI_BS2.DataMember = "TIWI"

    End Sub
    End Class

    BalasHapus
  16. Public NotInheritable Class form15_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub form15_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from BARANG", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form16_36109003
    Dim anto As New DataTable
    Dim ndut 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 soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form17_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub form17_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form18_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub form18_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from Query1", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form19_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub form19_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from Query2", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    Public NotInheritable Class form20_36109003
    Dim anto As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub form20_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim soe As New OleDb.OleDbDataAdapter
    soe = New OleDb.OleDbDataAdapter("select * from Query3", ndut)
    soe.Fill(anto)
    soe.Dispose()
    DGV_36109003.DataSource = anto
    End Sub
    End Class

    BalasHapus
  17. 361 09 001
    APRIL YADI

    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 apreal As New OleDb.OleDbDataAdapter
    apreal = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    DT.Rows.Clear()
    apreal.Fill(DT)
    DataGridView1.DataSource = DT
    apreal.Dispose()
    End Sub
    End Class
    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 apreal As New OleDb.OleDbDataAdapter
    apreal = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    DT.Rows.Clear()
    apreal.Fill(DT)
    DataGridView1.DataSource = DT
    apreal.Dispose()
    End Sub
    End Class
    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 apreal As New OleDb.OleDbDataAdapter
    apreal = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
    DT.Rows.Clear()
    apreal.Fill(DT)
    DataGridView1.DataSource = DT
    apreal.Dispose()
    End Sub
    End Class

    BalasHapus
  18. RUSNANINGSI R
    36109010

    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

    BalasHapus
  19. NAMA : ANDI TENRI WEWANG
    KELAS : 3A D3
    NO.STB : 361 09 014

    LATIHAN 15
    Public Class Form15
    Dim teten 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 tenri As New OleDb.OleDbDataAdapter
    tenri = New OleDb.OleDbDataAdapter("select * from BARANG", teten)
    DT.Rows.Clear()
    tenri.Fill(DT)
    dgv014.DataSource = DT

    tenri.Dispose()

    End Sub
    End Class

    LATIHAN 16
    Public Class Form16
    Dim zein 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 tenry As New OleDb.OleDbDataAdapter
    tenry = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", zein)
    DT.Rows.Clear()
    tenry.Fill(DT)
    dgv014.DataSource = DT

    tenry.Dispose()

    End Sub
    End Class

    BalasHapus
  20. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  21. nama : i w a n
    nim : 361 09 026
    kelas : 3A-D3

    Public Class Form15
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= 'D:\kuliah\MATAKULIAH SEMETER V\Apkom 4\tiwii.Apkom4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb'")
    Dim hma026 As New DataTable
    Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    hma026.Rows.Clear()
    iwan.Fill(hma026)
    DataGridView1.DataSource = hma026
    iwan.Dispose()

    End Sub
    End Class

    BalasHapus
  22. nama : i w a n
    nim : 361 09 026
    kelas : 3A D3

    latihan 16 apkom 4

    Public Class Form16
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= 'D:\kuliah\MATAKULIAH SEMETER V\Apkom 4\tiwii.Apkom4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb'")
    Dim hma026 As New DataTable
    Private Sub Form16_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    hma026.Rows.Clear()
    iwan.Fill(hma026)
    DataGridView1.DataSource = hma026
    iwan.Dispose()

    End Sub
    End Class

    latihan 17 apkom 4

    Public Class Form17
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim hma026 As New DataTable
    Private Sub Form17_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", CONECT)
    hma026.Rows.Clear()
    iwan.Fill(hma026)
    DataGridView1.DataSource = hma026
    iwan.Dispose()
    End Sub
    End Class

    latihan 18 apkom 4

    Public Class Form18
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim hma026 As New DataTable
    Private Sub Form18_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from Query1", CONECT)
    hma026.Rows.Clear()
    iwan.Fill(hma026)
    DataGridView1.DataSource = hma026
    iwan.Dispose()
    End Sub
    End Class

    latihan 19 apkom 4

    Public Class Form19
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim hma026 As New DataTable
    Private Sub Form19_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from Query2", CONECT)
    hma026.Rows.Clear()
    iwan.Fill(hma026)
    DataGridView1.DataSource = hma026
    iwan.Dispose()
    End Sub
    End Class

    BalasHapus
  23. nama : i w a n
    nim : 361 09 026
    kelas : 3A D3

    latihan 20 apkom 4

    Public Class Form20
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim hma026 As New DataTable
    Private Sub Form20_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from Query3", CONECT)
    hma026.Rows.Clear()
    iwan.Fill(hma026)
    DataGridView1.DataSource = hma026
    iwan.Dispose()
    End Sub
    End Class

    latihan 21 apkom 4

    Public Class Form21
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim wawan As New DataTable
    Dim wawan2 As New DataTable
    Dim ima As New DataSet
    Dim op1 As New BindingSource
    Dim op2 As New BindingSource
    Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    Dim iwan2 As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    iwan.Fill(wawan)
    HASIL026.DataSource = op1

    iwan2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
    iwan2.Fill(wawan2)
    HA026.DataSource = op2

    ima.Tables.Add(wawan)
    ima.Tables.Add(wawan2)

    wawan.TableName = "sembarang1"
    wawan2.TableName = "sembarang2"

    ima.Relations.Add(New DataRelation("AA", ima.Tables("sembarang1").Columns("notrans"), ima.Tables("sembarang2").Columns("notrans")))

    op1.DataSource = ima
    op1.DataMember = "sembarang1"
    op2.DataSource = op1
    op2.DataMember = "AA"
    End Sub
    End Class


    latihan 22 apkom 4

    Public Class Form22
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim wawan As New DataTable
    Dim wawan2 As New DataTable
    Dim ima As New DataSet
    Dim op1 As New BindingSource
    Dim op2 As New BindingSource
    Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim iwan As New OleDb.OleDbDataAdapter
    Dim iwan2 As New OleDb.OleDbDataAdapter
    iwan = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    iwan.Fill(wawan)
    HASIL026.DataSource = op1

    iwan2 = New OleDb.OleDbDataAdapter("select * from Query4", CONECT)
    iwan2.Fill(wawan2)
    HA026.DataSource = op2

    ima.Tables.Add(wawan)
    ima.Tables.Add(wawan2)

    wawan.TableName = "sembarang1"
    wawan2.TableName = "sembarang2"

    ima.Relations.Add(New DataRelation("AA", ima.Tables("sembarang1").Columns("notrans"), ima.Tables("sembarang2").Columns("notrans")))

    op1.DataSource = ima
    op1.DataMember = "sembarang1"
    op2.DataSource = op1
    op2.DataMember = "AA"
    End Sub
    End Class

    BalasHapus
  24. 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 apreal As New OleDb.OleDbDataAdapter
    apreal = New OleDb.OleDbDataAdapter("select * from query1", CONECT)
    DT.Rows.Clear()
    apreal.Fill(DT)
    DataGridView1.DataSource = DT
    apreal.Dispose()
    End Sub
    End Class

    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 apreal As New OleDb.OleDbDataAdapter
    apreal = New OleDb.OleDbDataAdapter("select * from query2", CONECT)
    DT.Rows.Clear()
    apreal.Fill(DT)
    DataGridView1.DataSource = DT
    apreal.Dispose()
    End Sub
    End Class

    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 apreal As New OleDb.OleDbDataAdapter
    apreal = New OleDb.OleDbDataAdapter("select * from query3", CONECT)
    DT.Rows.Clear()
    apreal.Fill(DT)
    DataGridView1.DataSource = DT
    apreal.Dispose()
    End Sub
    End Class

    Public Class Form21
    Dim imps 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 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", imps)
    a.Fill(dt1)
    a.Dispose()

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

    ds.Tables.Add(dt1)
    ds.Tables.Add(dt2)

    dt1.TableName = "apreal1"
    dt2.TableName = "apreal2"

    ds.Relations.Add(New DataRelation("apr", ds.Tables("apreal1").Columns("notrans"), ds.Tables("apreal2").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "apreal1"
    bs2.DataSource = bs1
    bs2.DataMember = "apr"

    DataGridView1.DataSource = bs1
    DataGridView2.DataSource = bs2
    End Sub
    End Class

    BalasHapus
  25. Public Class Form22
    Dim imps 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 Form22_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", imps)
    a.Fill(dt1)
    a.Dispose()

    b = New OleDb.OleDbDataAdapter("select * from query4", imps)
    b.Fill(dt2)
    b.Dispose()

    ds.Tables.Add(dt1)
    ds.Tables.Add(dt2)

    dt1.TableName = "apreal1"
    dt2.TableName = "apreal2"

    ds.Relations.Add(New DataRelation("apr", ds.Tables("apreal1").Columns("notrans"), ds.Tables("apreal2").Columns("notrans")))

    bs1.DataSource = ds
    bs1.DataMember = "apreal1"
    bs2.DataSource = bs1
    bs2.DataMember = "apr"

    DataGridView1.DataSource = bs1
    DataGridView2.DataSource = bs2
    End Sub
    End Class

    BalasHapus
  26. Public Class Form17
    Dim zeen 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 teen As New OleDb.OleDbDataAdapter
    teen = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", zeen)
    DT.Rows.Clear()
    teen.Fill(DT)
    dgv014.DataSource = DT

    teen.Dispose()

    End Sub
    End Class


    Public Class Form18
    Dim andi 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 ten As New OleDb.OleDbDataAdapter
    ten = New OleDb.OleDbDataAdapter("select * from Query4", andi)
    DT.Rows.Clear()
    ten.Fill(DT)
    dgv014.DataSource = DT

    ten.Dispose()

    End Sub
    End Class
    Public Class Form19
    Dim anditenri 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 tenten As New OleDb.OleDbDataAdapter
    tenten = New OleDb.OleDbDataAdapter("select * from Query5", anditenri)
    DT.Rows.Clear()
    tenten.Fill(DT)
    dgv014.DataSource = DT

    tenten.Dispose()

    End Sub
    End Class

    BalasHapus
  27. Public Class Form20
    Dim anditen 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 tent As New OleDb.OleDbDataAdapter
    tent = New OleDb.OleDbDataAdapter("select * from Query6", anditen)
    DT.Rows.Clear()
    tent.Fill(DT)
    dgv014.DataSource = DT

    tent.Dispose()

    End Sub
    End Class

    BalasHapus
  28. Form 15
    Public Class Form15
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim AR As New DataTable


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

    ami.Dispose()

    End Sub
    End Class

    Form 16
    Public Class Form16

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim AR As New DataTable
    Private Sub Form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ami As New OleDb.OleDbDataAdapter
    ami = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
    AR.Rows.Clear()
    ami.Fill(AR)
    dgv_021.DataSource = AR

    ami.Dispose()

    End Sub
    End Class

    Form 17
    Public Class Form17

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim AR As New DataTable
    Private Sub Form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ami As New OleDb.OleDbDataAdapter
    ami = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
    AR.Rows.Clear()
    ami.Fill(AR)
    DataGridView1.DataSource = AR

    ami.Dispose()

    End Sub
    End Class

    Form 18
    Public Class Form18

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim AR As New DataTable
    Private Sub Form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ami As New OleDb.OleDbDataAdapter
    ami = New OleDb.OleDbDataAdapter("select * from query1", CONECT)
    AR.Rows.Clear()
    ami.Fill(AR)
    dgv_021.DataSource = AR

    ami.Dispose()

    End Sub
    End Class

    BalasHapus
  29. Muhammad Harun Hamid
    3A_D3
    36109006

    Public NotInheritable Class form19_36109006
    Dim harun As New DataTable
    Dim harun006 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTrhrnsaksiJualBeli.accdb'")

    Private Sub form19_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load
    Dim hrun006 As New OleDb.OleDbDataAdapter
    hrun006 = New OleDb.OleDbDataAdapter("select * from Query2", harun006)
    hrun006.Fill(harun)
    hrun006.Dispose()
    DGV_36109006.DataSource = harun
    End Sub
    End Class

    Public NotInheritable Class form20_36109006
    Dim harun As New DataTable
    Dim harun006 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTrhrnsaksiJualBeli.accdb'")
    Private Sub form20_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load
    Dim hrun006 As New OleDb.OleDbDataAdapter
    hrun006 = New OleDb.OleDbDataAdapter("select * from Query3", harun006)
    hrun006.Fill(harun)
    hrun006.Dispose()
    DGV_36109006.DataSource = harun
    End Sub
    End Class

    BalasHapus
  30. Muhammad Harun Hamid
    3A_D3
    36109006


    Public NotInheritable Class form15_36109006
    Dim harun As New DataTable
    Dim harun006 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTrhrnsaksiJualBeli.accdb'")

    Private Sub form15_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load
    Dim hrun006 As New OleDb.OleDbDataAdapter
    hrun006 = New OleDb.OleDbDataAdapter("select * from BARHRNG", harun006)
    hrun006.Fill(harun)
    hrun006.Dispose()
    DGV_36109006.DataSource = harun
    End Sub
    End Class

    Public NotInheritable Class form16_36109006
    Dim harun As New DataTable
    Dim harun006 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTrhrnsaksiJualBeli.accdb'")
    Private Sub form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load
    Dim hrun006 As New OleDb.OleDbDataAdapter
    hrun006 = New OleDb.OleDbDataAdapter("select * from MASTERTRHRNSAKSI", harun006)
    hrun006.Fill(harun)
    hrun006.Dispose()
    DGV_36109006.DataSource = harun
    End Sub
    End Class
    Public NotInheritable Class form17_36109006
    Dim harun As New DataTable
    Dim harun006 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTrhrnsaksiJualBeli.accdb'")

    Private Sub form17_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load
    Dim hrun006 As New OleDb.OleDbDataAdapter
    hrun006 = New OleDb.OleDbDataAdapter("select * from DETAILTRHRNSAKSI", harun006)
    hrun006.Fill(harun)
    hrun006.Dispose()
    DGV_36109006.DataSource = harun
    End Sub
    End Class
    Public NotInheritable Class form18_36109006
    Dim harun As New DataTable
    Dim harun006 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTrhrnsaksiJualBeli.accdb'")
    Private Sub form18_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load
    Dim hrun006 As New OleDb.OleDbDataAdapter
    hrun006 = New OleDb.OleDbDataAdapter("select * from Query1", harun006)
    hrun006.Fill(harun)
    hrun006.Dispose()
    DGV_36109006.DataSource = harun
    End Sub
    End Class

    BalasHapus
  31. Public Class Form21
    Dim WEWANG As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim ATW As New DataTable
    Dim ATW2 As New DataTable

    Dim ANDITENRIWEWANG As New DataSet

    Dim WTA1 As New BindingSource
    Dim WTA2 As New BindingSource

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

    KALENG = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", WEWANG)
    ATW.Rows.Clear()
    KALENG.Fill(ATW)
    DGV1014.DataSource = WTA1

    KALENG.Dispose()


    BLACK = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI", WEWANG)
    ATW2.Rows.Clear()
    BLACK.Fill(ATW2)
    DGV2014.DataSource = WTA2

    BLACK.Dispose()

    ANDITENRIWEWANG.Tables.Add(ATW)
    ANDITENRIWEWANG.Tables.Add(ATW2)

    ATW.TableName = "VANILLA"
    ATW2.TableName = "VANILLA2"

    ANDITENRIWEWANG.Relations.Add(New DataRelation("PARFUM", ANDITENRIWEWANG.Tables("VANILLA").Columns("Notrans"), ANDITENRIWEWANG.Tables("VANILLA2").Columns("Notrans")))

    WTA1.DataSource = ANDITENRIWEWANG
    WTA1.DataMember = "VANILLA"
    WTA2.DataSource = WTA1
    WTA2.DataMember = "PARFUM"


    End Sub
    End Class

    BalasHapus
  32. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  33. Public Class Form22
    Dim ANDI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim AT1 As New DataTable
    Dim AT2 As New DataTable

    Dim WEWANG As New DataSet

    Dim atw1 As New BindingSource
    Dim atw2 As New BindingSource

    Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim bb As New OleDb.OleDbDataAdapter
    Dim bbb As New OleDb.OleDbDataAdapter

    bb = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", ANDI)
    AT1.Rows.Clear()
    bb.Fill(AT1)
    DGV1014.DataSource = atw1

    bb.Dispose()


    bbb = New OleDb.OleDbDataAdapter("select * From Query7", ANDI)
    AT2.Rows.Clear()
    bbb.Fill(AT2)
    DGV2014.DataSource = atw2

    bbb.Dispose()

    WEWANG.Tables.Add(AT1)
    WEWANG.Tables.Add(AT2)

    AT1.TableName = "anditenri"
    AT2.TableName = "wewang2"

    WEWANG.Relations.Add(New DataRelation("wewanggg", WEWANG.Tables("anditenri").Columns("Notrans"), WEWANG.Tables("wewang2").Columns("Notrans")))

    atw1.DataSource = WEWANG
    atw1.DataMember = "anditenri"
    atw2.DataSource = atw1
    atw2.DataMember = "wewanggg"

    End Sub
    End Class

    BalasHapus
  34. RUSNANINGSI R
    36109010

    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

    BalasHapus
  35. Rachmiyati
    36109022

    Public Class Form21
    Dim ami_DT1 As New DataTable
    Dim ami_DT2 As New DataTable

    Dim ami_DS As New DataSet

    Dim ami_BS1 As New BindingSource
    Dim ami_BS2 As New BindingSource

    Dim rahmi 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 am1 As New OleDb.OleDbDataAdapter
    Dim am2 As New OleDb.OleDbDataAdapter

    am1 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", rahmi)
    ami_DT1.Rows.Clear()
    am1.Fill(ami_DT1)
    am1.Dispose()
    tampil1_36109022.DataSource = ami_BS1

    am2 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI", rahmi)
    ami_DT2.Rows.Clear()
    am2.Fill(ami_DT2)
    am2.Dispose()
    tampil2_36109022.DataSource = ami_BS2

    ami_DS.Tables.Add(ami_DT1)
    ami_DS.Tables.Add(ami_DT2)

    ami_DT1.TableName = "JHUJHA"
    ami_DT2.TableName = "CHUCHA"

    ami_DS.Relations.Add(New DataRelation("WITH", ami_DS.Tables("JHUJHA").Columns("notrans"), ami_DS.Tables("CHUCHA").Columns("notrans")))

    ami_BS1.DataSource = ami_DS
    ami_BS1.DataMember = "JHUJHA"
    ami_BS2.DataSource = ami_BS1
    ami_BS2.DataMember = "WITH"

    End Sub
    End Class

    Public Class Form22
    Dim ami_DT1 As New DataTable
    Dim ami_DT2 As New DataTable

    Dim ami_DS As New DataSet

    Dim ami_BS1 As New BindingSource
    Dim ami_BS2 As New BindingSource

    Dim rahmi 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 am1 As New OleDb.OleDbDataAdapter
    Dim am2 As New OleDb.OleDbDataAdapter

    am1 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", rahmi)
    ami_DT1.Rows.Clear()
    am1.Fill(ami_DT1)
    am1.Dispose()
    tampil1_36109022.DataSource = ami_BS1

    am2 = New OleDb.OleDbDataAdapter("select * From Query7", rahmi)
    ami_DT2.Rows.Clear()
    am2.Fill(ami_DT2)
    am2.Dispose()
    tampil2_36109022.DataSource = ami_BS2

    ami_DS.Tables.Add(ami_DT1)
    ami_DS.Tables.Add(ami_DT2)

    ami_DT1.TableName = "JHUJHA"
    ami_DT2.TableName = "CHUCHA"

    ami_DS.Relations.Add(New DataRelation("WITH", ami_DS.Tables("JHUJHA").Columns("notrans"), ami_DS.Tables("CHUCHA").Columns("notrans")))

    ami_BS1.DataSource = ami_DS
    ami_BS1.DataMember = "JHUJHA"
    ami_BS2.DataSource = ami_BS1
    ami_BS2.DataMember = "WITH"
    End Sub
    End Class

    BalasHapus
  36. amelia indahasari
    361 09 023

    http://heiamee.blogspot.com/2011/11/form-15-22.html

    BalasHapus
  37. i w a n
    361 09 026
    2A-D3

    latihan 23A apkom 4

    Public Class Form23A
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Private Sub Form23A_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", conect)
    dt.Rows.Clear()
    adapter.Fill(dt)
    adapter.Dispose()
    ha026.DataSource = dt

    End Sub

    Private Sub klik026_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik026.Click
    If Form23B.Visible = False Then
    Form23B.Show()
    Else : Form23B.Activate()
    End If
    Form23B.no026.Text = ha026.CurrentRow.Cells("notrans").Value
    Form23B.ta026.Text = ha026.CurrentRow.Cells("tanggaltransaksi").Value
    Form23B.je026.Text = ha026.CurrentRow.Cells("jenistransaksi").Value

    Form23B.poltek(Form23B.no026.Text)

    End Sub
    End Class

    latihan 23B apkom 4

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


    Public Sub poltek(ByVal iwan As String)
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & iwan & "'", conect)
    dt.Rows.Clear()
    adapter.Fill(dt)

    hasil026.DataSource = dt
    End Sub
    End Class

    BalasHapus
  38. latihan 24A apkom 4

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

    Private Sub Form24A_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", conect)
    dt.Rows.Clear()
    adapter.Fill(dt)
    adapter.Dispose()
    hasil026.DataSource = dt

    End Sub

    Private Sub detail026_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail026.Click
    If Form24B.Visible = False Then
    Form24B.Show()
    Else : Form24B.Activate()
    End If
    Form24B.ko026.Text = hasil026.CurrentRow.Cells("kodebarang").Value
    Form24B.na026.Text = hasil026.CurrentRow.Cells("namabarang").Value
    Form24B.ha026.Text = hasil026.CurrentRow.Cells("hargajual").Value
    Form24B.ju026.Text = hasil026.CurrentRow.Cells("persediaanawal").Value

    Form24B.uly(Form24B.ko026.Text)

    End Sub
    End Class

    latihan 24B apkom 4
    Public NotInheritable Class form24B
    Dim iwan As New DataTable
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub uly(ByVal A As String)
    Dim adapter As New OleDb.OleDbDataAdapter
    adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", ndut)
    iwan.Rows.Clear()
    adapter.Fill(iwan)

    data026.DataSource = iwan
    End Sub
    End Class

    latihan 25A apkom 4
    Public NotInheritable Class form25A
    Dim iwan As New DataTable
    Dim wawan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub form25A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim one As New OleDb.OleDbDataAdapter
    one = New OleDb.OleDbDataAdapter("select * from BARANG", wawan)
    one.Fill(iwan)
    one.Dispose()
    data026.DataSource = iwan
    End Sub

    Private Sub dt026_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt026.Click
    If Form25B.Visible = False Then
    form25B.Show()
    Else
    Form25B.Activate()
    End If

    Form25B.kode026.Text = data026.CurrentRow.Cells("kodebarang").Value
    Form25B.nama026.Text = data026.CurrentRow.Cells("namabarang").Value
    Form25B.hasil026.Text = data026.CurrentRow.Cells("persediaanawal").Value
    Form25B.jumlah026.Text = data026.CurrentRow.Cells("hargajual").Value


    form25B.uly(form25B.kode026.Text)
    End Sub
    End Class

    BalasHapus
  39. Ismi Febriani Asyikin
    3a D3
    361 09 005


    http://ismifebriani.blogspot.com/2011/11/apkom-4-latihan-15-22.html

    BalasHapus