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
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
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()
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
Public Class Form41_36109003
BalasHapusDim 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
Ismi Febriani A
BalasHapus3a 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
http://uphy-iftah.blogspot.com/2012/01/apkom4-latihan-41.html
BalasHapusPublic Class Form41_36109001
BalasHapusDim 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
Public Class Form41_36109006
BalasHapusDim 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