'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 Latihan_41_46109051_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 KEUANGAN", 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 dengan nama pada kolom tahun. grafik_46109051.RowLabel = x("TAHUN")
Dim Dewi As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim Dede As New DataTable
Private Sub Latihan41_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Chiko = New OleDb.OleDbDataAdapter("select*from Keuangan", Dewi) Dede.Rows.Clear()
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb") Dim DT As New DataTable
Private Sub LATIHAN_041_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wiwi As New OleDb.OleDbDataAdapter wiwi = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) DT.Rows.Clear() wiwi.Fill(DT) DATA46109001.DataSource = DT wiwi.Dispose()
Dim Indah As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim sae As New DataTable
Private Sub Latihan_041_46109053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Saenong = New OleDb.OleDbDataAdapter("select*from Keuangan", Yusri) Sae.Rows.Clear()
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb") Dim DT As New DataTable
Private Sub LATIHAN_041_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ayu As New OleDb.OleDbDataAdapter ayu = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) DT.Rows.Clear() ayu.Fill(DT) DATA46109017.DataSource = DT ayu.Dispose()
Aryandira_3AD4 Latihan 41 Public Class Latihan41_46109034
Dim CONECT 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_46109034_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dira As New OleDb.OleDbDataAdapter dira = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) DT.Rows.Clear() dira.Fill(DT) DATA46109034.DataSource = DT dira.Dispose()
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb") Dim DT As New DataTable
Private Sub LATIHAN041_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim joice As New OleDb.OleDbDataAdapter joice = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) DT.Rows.Clear() joice.Fill(DT) wonga_041.DataSource = DT joice.Dispose()
Public Class Latihan041_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 Latihan041_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 keuangan", Dwi) dt.Rows.Clear() a.Fill(dt) a.Dispose()
Public Class Latihan_41_46109051
BalasHapus'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 Latihan_41_46109051_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 KEUANGAN", 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 dengan nama pada kolom tahun.
grafik_46109051.RowLabel = x("TAHUN")
grafik_46109051.Column = 1
grafik_46109051.Data = x("PENDAPATAN") / 1000
grafik_46109051.Column = 2
grafik_46109051.Data = x("BIAYA") / 1000
Next
End Sub
End Class
Public Class Latihan41_46109045
BalasHapusDim Dewi As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim Dede As New DataTable
Private Sub Latihan41_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Chiko = New OleDb.OleDbDataAdapter("select*from Keuangan", Dewi)
Dede.Rows.Clear()
Chiko.Fill(Dede)
DGV_46109045.DataSource = Dede
Chiko.Dispose()
Chart_46109045.RowCount = Dede.Rows.Count()
Chart_46109045.ColumnCount = 2
Dim PosisiBarisGrafik As Integer = 0
For Each BarisX As DataRow In Dede.Rows
PosisiBarisGrafik = PosisiBarisGrafik + 1
Chart_46109045.Row = PosisiBarisGrafik
Chart_46109045.RowLabel = BarisX("Tahun")
Chart_46109045.Column = 1
Chart_46109045.Data = BarisX("Pendapatan") / 1000
Chart_46109045.Column = 2
Chart_46109045.Data = BarisX("Biaya") / 1000
Next
End Sub
End Class
Public Class Latihan_041_46109001
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
Dim DT As New DataTable
Private Sub LATIHAN_041_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wiwi As New OleDb.OleDbDataAdapter
wiwi = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
DT.Rows.Clear()
wiwi.Fill(DT)
DATA46109001.DataSource = DT
wiwi.Dispose()
GR46109001.ColumnCount = 2
GR46109001.RowCount = DT.Rows.Count
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In DT.Rows
POSISIBARIS = POSISIBARIS + 1
GR46109001.Row = POSISIBARIS
GR46109001.RowLabel = x("tahun")
GR46109001.Column = 1
GR46109001.Data = x("PENDAPATAN") / 1000
GR46109001.Column = 2
GR46109001.Data = x("BIAYA") / 1000
Next
End Sub
End Class
Public Class Latihan_041_46109053
BalasHapusDim Indah As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim sae As New DataTable
Private Sub Latihan_041_46109053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Saenong = New OleDb.OleDbDataAdapter("select*from Keuangan", Yusri)
Sae.Rows.Clear()
Saenong.Fill(Sae)
DGV_053.DataSource = Sae
Saenong.Dispose()
sae_053.RowCount = Sae.Rows.Count()
Sae_053.ColumnCount = 2
Dim PosisiBarisGrafik As Integer = 0
For Each BarisX As DataRow In Sae.Rows
PosisiBarisGrafik = PosisiBarisGrafik + 1
Sae_053.Row = PosisiBarisGrafik
Sae_053.RowLabel = BarisX("Tahun")
Sae_053.Column = 1
Sae_053.Data = BarisX("Pendapatan") / 1000
Sae_053.Column = 2
Sae_053.Data = BarisX("Biaya") / 1000
Next
End Sub
End Class
Public Class Latihan_041_46109017
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
Dim DT As New DataTable
Private Sub LATIHAN_041_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ayu As New OleDb.OleDbDataAdapter
ayu = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
DT.Rows.Clear()
ayu.Fill(DT)
DATA46109017.DataSource = DT
ayu.Dispose()
GR46109017.ColumnCount = 2
GR46109017.RowCount = DT.Rows.Count
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In DT.Rows
POSISIBARIS = POSISIBARIS + 1
GR46109017.Row = POSISIBARIS
GR46109017.RowLabel = x("tahun")
GR46109017.Column = 1
GR46109017.Data = x("PENDAPATAN") / 1000
GR46109017.Column = 2
GR46109017.Data = x("BIAYA") / 1000
Next
End Sub
End Class
Aryandira_3AD4
BalasHapusLatihan 41
Public Class Latihan41_46109034
Dim CONECT 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_46109034_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dira As New OleDb.OleDbDataAdapter
dira = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
DT.Rows.Clear()
dira.Fill(DT)
DATA46109034.DataSource = DT
dira.Dispose()
GR46109034.ColumnCount = 2
GR46109034.RowCount = DT.Rows.Count
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In DT.Rows
POSISIBARIS = POSISIBARIS + 1
GR46109034.Row = POSISIBARIS
GR46109034.RowLabel = x("tahun")
GR46109034.Column = 1
GR46109034.Data = x("PENDAPATAN") / 1000
GR46109034.Column = 2
GR46109034.Data = x("BIAYA") / 1000
Next
End Sub
End Class
Public Class Latihan041_46109041
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
Dim DT As New DataTable
Private Sub LATIHAN041_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim joice As New OleDb.OleDbDataAdapter
joice = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
DT.Rows.Clear()
joice.Fill(DT)
wonga_041.DataSource = DT
joice.Dispose()
gr_041.ColumnCount = 2
gr_041.RowCount = DT.Rows.Count
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In DT.Rows
POSISIBARIS = POSISIBARIS + 1
gr_041.Row = POSISIBARIS
gr_041.RowLabel = x("tahun")
gr_041.Column = 1
gr_041.Data = x("PENDAPATAN") / 1000
gr_041.Column = 2
gr_041.Data = x("BIAYA") / 1000
Next
End Sub
End Class
Public Class Latihan041_46109054
BalasHapusDim 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 Latihan041_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 keuangan", Dwi)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()
dgv.DataSource = dt
mustika.ColumnCount = 2
mustika.RowCount = dt.Rows.Count
Dim chaerunnisa As Integer = 0
For Each x As DataRow In dt.Rows
chaerunnisa += 1
mustika.Row = chaerunnisa
mustika.RowLabel = x("tahun")
mustika.Column = 1
mustika.Data = x("pendapatan") / 1000
mustika.Column = 2
mustika.Data = x("biaya") / 1000
Next
End Sub
End Class
http://cacalisa.blogspot.com/2012/11/latihan4146110038.html
BalasHapushttp://rafidashaleh.blogspot.com/2012/11/latihan4146110041.html
BalasHapushttp://mulyawarman039.blogspot.com/2012/11/latihan4146110039.html
BalasHapushttp://bahrizj.blogspot.com/2012/11/latihan4146110001.html
BalasHapushttp://srikartikafanty.blogspot.com/2012/11/latihan4146110007.html
BalasHapushttp://idhamsyaam.blogspot.com/2012/11/latihan4146110021.html
BalasHapushttp://sulhihusni.blogspot.com/2012/11/latihan4146110004.html
BalasHapushttp://wahyunirachman.blogspot.com/2012/11/latihan4146110020_9.html
BalasHapushttp://alfaega.blogspot.com/2012/11/latihan4146110022.html
BalasHapushttp://fitrianihamka.blogspot.com/2012/11/latihan4146110006.html
BalasHapushttp://dianmegariski.blogspot.com/2012/11/latihan4146110023_24.html
BalasHapushttp://ildayani.blogspot.com/2012/11/latihan4146110002.html
BalasHapushttp://restyaccounting.blogspot.com/2012/12/latihan4146110027.html
BalasHapushttp://hanihasan07.blogspot.com/2012/12/latihan4146110044.html
BalasHapushttp://bothbon.blogspot.com/2013/01/latihan4146110043.html
BalasHapushttp://muthmil8.blogspot.com/2012/11/latihan4146110037.html
BalasHapushttp://amalmaulana92.blogspot.com/2013/01/latihan4146110003.html
BalasHapushttp://aardianzah2.blogspot.com/2013/01/latihan-41.html
BalasHapushttp://feibyfrycilia.blogspot.com/2013/01/latihan4146110055.html
BalasHapushttp://diyanahdina.blogspot.com/2013/01/latihan4146110045.html
BalasHapushttp://yuliaasrida427.blogspot.com/2013/01/latihan4146110009.html
BalasHapushttp://deodns.blogspot.com/#!/2013/01/latihan4146110040.html
BalasHapus