Jumat, 18 November 2011

Latihan 42 APKOM 4 D3A

Diposting oleh di

4 komentar:

  1. soedarmanto15 Desember 2011 pukul 18.36

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

    Private Sub Form42_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 QRekapPerRekening", ndut)
    anto.Rows.Clear()
    soe.Fill(anto)
    dgv_3609003.DataSource = anto

    soe.Dispose()

    grafik_36109003.ColumnCount = 2
    grafik_36109003.RowCount = anto.Rows.Count

    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In anto.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik_36109003.Row = POSISIBARIS

    grafik_36109003.RowLabel = x("KODEREKENING")

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

    grafik_36109003.Column = 2
    grafik_36109003.Data = x("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  2. _IsMy_16 Desember 2011 pukul 00.35

    Ismi Febriani A
    3a D3
    361 09 005

    Public Class Latihan42_36109005
    Dim ISMI As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb")
    Dim DT As New DataTable
    Private Sub Latihan42_36109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ICHMI As New OleDb.OleDbDataAdapter
    ICHMI = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", ISMI)
    DT.Rows.Clear()
    ICHMI.Fill(DT)
    DGV_36109005.DataSource = DT

    ICHMI.Dispose()

    Grafik_36109005.ColumnCount = 2
    Grafik_36109005.RowCount = DT.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    Grafik_36109005.Row = POSISIBARIS

    Grafik_36109005.RowLabel = x("koderekening")

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

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

    BalasHapus
  3. ApReaL_ApRiLio2 Februari 2012 pukul 19.38

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

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

    dgv_36109001.DataSource = dt

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

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

    apreal.Row = aprl
    apreal.RowLabel = x("koderekening")

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

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

    BalasHapus
  4. Harun12 Februari 2012 pukul 16.07

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

    Private Sub Form42_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim hma As New OleDb.OleDbDataAdapter
    hma = New OleDb.OleDbDataAdapter("select * from QRekapPerRekening", muhammad)
    harun.Rows.Clear()
    hma.Fill(harun)
    dgv_3609003.DataSource = harun

    hma.Dispose()

    grafik_36109006.ColumnCount = 2
    grafik_36109006.RowCount = harun.Rows.Count

    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In harun.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik_36109006.Row = POSISIBARIS

    grafik_36109006.RowLabel = x("KODEREKENING")

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

    grafik_36109006.Column = 2
    grafik_36109006.Data = x("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)