Jumat, 18 November 2011

Latihan 42 APKOM 4 D4A

Diposting oleh di

29 komentar:

  1. WAHDANIAH3 Januari 2012 pukul 00.03

    Public Class Latihan_42_46109051
    'DEKLARASI CONECTION
    Dim wahdaniah As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=thepinkers29")
    'deklarasi data tabel
    Dim niah As New DataTable

    Private Sub Latih42_36109034_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim wahda As New OleDb.OleDbDataAdapter
    wahda = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", wahdaniah) 'mkemunculkan semua data dari tabel barang dalam acces DATA GRAFIK
    niah.Rows.Clear() 'membersihkan data tabel
    wahda.Fill(niah) 'mengisi database ke dalam data table
    dg_46109051.DataSource = niah 'memunculkan dalam datagridview

    wahda.Dispose() 'menghancurkan kendaraan (adapter) yang sudah terpakai

    'menentkan jumlah baris dalam datagridview
    grafik_46109051.ColumnCount = 2
    grafik_46109051.RowCount = niah.Rows.Count

    'menentukan posisi baris dalam datagridview
    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In niah.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik_46109051.Row = POSISIBARIS

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik_46109051.RowLabel = x("koderekening")

    grafik_46109051.Column = 1
    grafik_46109051.Data = x("total debet") / 1000

    grafik_46109051.Column = 2
    grafik_46109051.Data = x("total kredit") / 1000
    Next
    End Sub

    End Class

    BalasHapus
  2. Hachiko_dede4 Januari 2012 pukul 07.54

    Public Class Latihan_42_46109045
    'DEKLARASI CONECTION
    Dim dewi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=chiko")
    'deklarasi data tabel
    Dim ikha As New DataTable

    Private Sub Latih42_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim sartika As New OleDb.OleDbDataAdapter
    sartika = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", dewi) 'mkemunculkan semua data dari tabel barang dalam acces DATA GRAFIK
    ikha.Rows.Clear() 'membersihkan data tabel
    sartika.Fill(ikha) 'mengisi database ke dalam data table
    dg_46109045.DataSource = ikha 'memunculkan dalam datagridview

    sartika.Dispose() 'menghancurkan kendaraan (adapter) yang sudah terpakai

    'menentkan jumlah baris dalam datagridview
    grafik_46109045.ColumnCount = 2
    grafik_46109045.RowCount = ikha.Rows.Count

    'menentukan posisi baris dalam datagridview
    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In ikha.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik_46109045.Row = POSISIBARIS

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik_46109045.RowLabel = x("koderekening")

    grafik_46109045.Column = 1
    grafik_46109045.Data = x("total debet") / 1000

    grafik_46109045.Column = 2
    grafik_46109045.Data = x("total kredit") / 1000
    Next
    End Sub

    End Class

    BalasHapus
  3. Dwitya Saadah Suaib5 Januari 2012 pukul 03.14

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

    Dim wiwi As New DataTable

    Private Sub LATIHAN_042_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim dwitya As New OleDb.OleDbDataAdapter
    dwitya = New OleDb.OleDbDataAdapter("select * from QRekapPerRekening", CONECT)
    wiwi.Rows.Clear()
    dwitya.Fill(wiwi)
    DATA46109001.DataSource = wiwi

    dwitya.Dispose()


    GR46109001.ColumnCount = 2
    GR46109001.RowCount = wiwi.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In wiwi.Rows
    POSISIBARIS = POSISIBARIS + 1
    GR46109001.Row = POSISIBARIS

    GR46109001.Row = POSISIBARIS
    GR46109001.RowLabel = x("KODEREKENING")

    GR46109001.Column = 1
    GR46109001.Data = x("TOTAL DEBET") / 1000

    GR46109001.Column = 2
    GR46109001.Data = x("TOTAL KREDIT") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  4. ARUL BLOG10 Januari 2012 pukul 22.46

    Public Class Latihan_42_46109005
    Dim fahrul As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=arul")
    Dim arul As New DataTable
    Private Sub Latihan_41_46109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim mf As New OleDb.OleDbDataAdapter
    mf = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", fahrul)
    arul.Rows.Clear()
    mf.Fill(arul)
    data46109005.DataSource = arul

    mf.Dispose()
    grafik46109005.ColumnCount = 2
    grafik46109005.RowCount = arul.Rows.Count

    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In arul.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik46109005.Row = POSISIBARIS

    grafik46109005.RowLabel = x("TAHUN")

    grafik46109005.Column = 1
    grafik46109005.Data = x("PENDAPATAN") / 1000

    grafik46109005.Column = 2
    grafik46109005.Data = x("BIAYA") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  5. ayu wandika putri utami21 Januari 2012 pukul 04.06

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

    Dim ayu As New DataTable

    Private Sub LATIHAN_042_46109017_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 QRekapPerRekening", CONECT)
    ayu.Rows.Clear()
    wandika.Fill(ayu)
    DATA46109017.DataSource = ayu

    wandika.Dispose()


    GR46109017.ColumnCount = 2
    GR46109017.RowCount = ayu.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In ayu.Rows
    POSISIBARIS = POSISIBARIS + 1
    GR46109017.Row = POSISIBARIS

    GR46109017.Row = POSISIBARIS
    GR46109017.RowLabel = x("KODEREKENING")

    GR46109017.Column = 1
    GR46109017.Data = x("TOTAL DEBET") / 1000

    GR46109017.Column = 2
    GR46109017.Data = x("TOTAL KREDIT") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  6. Joice Natalina Paginta4 Februari 2012 pukul 00.00

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

    Dim joice As New DataTable

    Private Sub LATIHAN042_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim natalina As New OleDb.OleDbDataAdapter
    natalina = New OleDb.OleDbDataAdapter("select * from QRekapPerRekening", CONECT)
    joice.Rows.Clear()
    natalina.Fill(joice)
    wonga_041.DataSource = joice

    natalina.Dispose()


    gr_041.ColumnCount = 2
    gr_041.RowCount = joice.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In joice.Rows
    POSISIBARIS = POSISIBARIS + 1
    gr_041.Row = POSISIBARIS

    gr_041.Row = POSISIBARIS
    gr_041.RowLabel = x("KODEREKENING")

    gr_041.Column = 1
    gr_041.Data = x("TOTAL DEBET") / 1000

    gr_041.Column = 2
    gr_041.Data = x("TOTAL KREDIT") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  7. Dwi Mustika Chaerunnisa Mulyadi8 Februari 2012 pukul 05.38

    Public Class Latihan042_46109054
    Dim Dwi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Data Grafik.accdb")
    Dim dt As New DataTable

    Private Sub Latihan042_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 QRekapPerRekening", Dwi)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv.DataSource = dt

    mustika.ColumnCount = 2
    mustika.RowCount = dt.Rows.Count

    Dim charunnisa As Integer = 0
    For Each x As DataRow In dt.Rows
    charunnisa += 1

    mustika.Row = charunnisa
    mustika.RowLabel = x("koderekening")

    mustika.Column = 1
    mustika.Data = x("total debet") / 1000

    mustika.Column = 2
    mustika.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  8. Unknown3 November 2012 pukul 16.03

    http://cacalisa.blogspot.com/2012/11/latihan4246110038.html

    BalasHapus
  9. Unknown3 November 2012 pukul 20.20

    http://rafidashaleh.blogspot.com/2012/11/latihan4246110041.html

    BalasHapus
  10. Dunia Ilmu3 November 2012 pukul 21.54

    http://mulyawarman039.blogspot.com/2012/11/latihan4246110039.html

    BalasHapus
  11. Unknown6 November 2012 pukul 08.18

    http://bahrizj.blogspot.com/2012/11/latihan4246110001.html

    BalasHapus
  12. Unknown8 November 2012 pukul 17.07

    http://srikartikafanty.blogspot.com/2012/11/latihan4246110007.html

    BalasHapus
  13. Unknown8 November 2012 pukul 22.18

    http://idhamsyaam.blogspot.com/2012/11/latihan4246110021.html

    BalasHapus
  14. Unknown9 November 2012 pukul 06.25

    http://sulhihusni.blogspot.com/2012/11/latihan4246110004.html

    BalasHapus
  15. Unknown9 November 2012 pukul 15.47

    http://wahyunirachman.blogspot.com/2012/11/latihan4246110020.html

    BalasHapus
  16. Unknown10 November 2012 pukul 18.56

    http://alfaega.blogspot.com/2012/11/latihan4246110022.html

    BalasHapus
  17. Unknown11 November 2012 pukul 01.01

    http://fitrianihamka.blogspot.com/2012/11/latihan4246110006.html

    BalasHapus
  18. Unknown24 November 2012 pukul 21.15

    http://dianmegariski.blogspot.com/2012/11/latihan4146110023.html

    BalasHapus
  19. ildayani4 Desember 2012 pukul 05.26

    http://ildayani.blogspot.com/2012/11/latihan4246110002.html

    BalasHapus
  20. Unknown17 Desember 2012 pukul 15.55

    http://restyaccounting.blogspot.com/2012/12/latihan4246110027_16.html

    BalasHapus
  21. Unknown25 Desember 2012 pukul 04.32

    http://hanihasan07.blogspot.com/2012/12/latihan4246110044.html

    BalasHapus
  22. Unknown2 Januari 2013 pukul 02.13

    http://bothbon.blogspot.com/2013/01/latihan4246110043.html

    BalasHapus
  23. Unknown2 Januari 2013 pukul 18.31

    http://muthmil8.blogspot.com/2012/11/latihan4246110037.html

    BalasHapus
  24. Unknown3 Januari 2013 pukul 02.44

    http://amalmaulana92.blogspot.com/2013/01/latihan4246110003.html

    BalasHapus
  25. Unknown5 Januari 2013 pukul 07.20

    http://aardianzah2.blogspot.com/2013/01/latihan-42.html

    BalasHapus
  26. Feiby Frycilia18 Januari 2013 pukul 05.02

    http://feibyfrycilia.blogspot.com/2013/01/latihan4246110055.html

    BalasHapus
  27. Unknown26 Januari 2013 pukul 23.47

    http://diyanahdina.blogspot.com/2013/01/latihan4246110045.html

    BalasHapus
  28. Unknown29 Januari 2013 pukul 14.42

    http://yuliaasrida427.blogspot.com/2013/01/latihan4246110009.html

    BalasHapus
  29. Unknown30 Januari 2013 pukul 06.03

    http://deodns.blogspot.com/#!/2013/01/latihan4246110040.html

    BalasHapus

Langganan: Posting Komentar (Atom)