Jumat, 18 November 2011

Latihan 41 APKOM 4 D3A

5 komentar:

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

    Private Sub Form41_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 KEUANGAN", 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("tahun")

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

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

    BalasHapus
  2. Ismi Febriani A
    3a D3
    361 09 005

    Public Class Latihan41_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 Latihan41_36109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim IMMY As New OleDb.OleDbDataAdapter
    IMMY = New OleDb.OleDbDataAdapter("select * from KEUANGAN", ISMI)
    DT.Rows.Clear()
    IMMY.Fill(DT)
    DGV_36109005.DataSource = DT

    IMMY.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("tahun")

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

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

    Next

    End Sub
    End Class

    BalasHapus
  3. http://uphy-iftah.blogspot.com/2012/01/apkom4-latihan-41.html

    BalasHapus
  4. Public Class Form41_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 Form41_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 keuangan", 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("tahun")

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

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

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

    Private Sub Form41_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 KEUANGAN", 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("tahun")

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

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

    BalasHapus