Public Class latihan_43_36109058 Dim yunha 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_43_36109058_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim yh As New OleDb.OleDbDataAdapter yh = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", yunha) yh.Fill(dt) yh.Dispose() dgv3.DataSource = dt
Public Class LATIHAN_043_36109075 Dim pute As New DataTable Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Private Sub LATIHAN_043_36109075_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mobil As New OleDb.OleDbDataAdapter mobil = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB) mobil.Fill(pute) putry075.DataSource = pute mobil.Dispose()
'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat putryalfatih.RowCount = pute.Rows.Count() putryalfatih.ColumnCount = 3
'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel QpembelianPerJenisBarang Dim LORENZO As Integer = 0
For Each BarisX As DataRow In pute.Rows LORENZO = LORENZO + 1
putryalfatih.Row = LORENZO putryalfatih.RowLabel = BarisX("KODE BARANG")
Public Class Latihan_43_059 Dim k 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_43_059_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", k) X.Fill(dt) X.Dispose() cika059.DataSource = dt
Public Class Form43068 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim dt As New DataTable Private Sub Form43068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A) X.Fill(dt) X.Dispose() dgv068.DataSource = dt
Public Class LATIHAN04336109060 Dim AD As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim dt As New DataTable
Private Sub Latihan43017_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 QPembelianPerJenisBarang", AD) A.Fill(dt) A.Dispose() DGV3_060.DataSource = dt
Public Class Form4336109084 Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim dt As New DataTable Private Sub Form4336109084_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 qpembelianperjenisbarang", dfa) dt.Rows.Clear() a.Fill(dt) a.Dispose()
Public Class latihan_43_36109074 Dim krisna As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim ks As New DataTable Private Sub latihan_43_36109074_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim k As New OleDb.OleDbDataAdapter k = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", krisna) k.Fill(ks) k.Dispose() dgv_074.DataSource = ks
Public Class latihan4336109061 Dim Mjl As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim dt As New DataTable
Private Sub Latihan4336109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim L As New OleDb.OleDbDataAdapter L = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Mjl) dt.Rows.Clear() L.Fill(dt) L.Dispose()
Public Class Latihan_43_09079 Dim cate 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_43_09079_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 qpembelianperjenisbarang", cate) dt.Rows.Clear() a.Fill(dt) a.Dispose()
Dim AA As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim dt As New DataTable
Private Sub Latihan43_36109073_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Y As New OleDb.OleDbDataAdapter Y = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", AA) Y.Fill(dt) Y.Dispose() DGV3073.DataSource = dt
Public Class Form4336109062 Dim KJS As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Data Grafik.ACCDB") Dim dt As New DataTable
Private Sub Form4336109062_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim b As New OleDb.OleDbDataAdapter b = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", KJS) dt.Rows.Clear() b.Fill(dt) b.Dispose()
Dim fatma As New DataTable Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Private Sub Form43_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim oto As New OleDb.OleDbDataAdapter oto = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB) oto.Fill(fatma) DataGridView057.DataSource = fatma oto.Dispose()
'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat grafik057.RowCount = fatma.Rows.Count() grafik057.ColumnCount = 3
'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel dtkeuangan Dim bone As Integer = 0
For Each BarisX As DataRow In fatma.Rows bone = bone + 1
grafik057.Row = bone grafik057.RowLabel = BarisX("KODE BARANG")
Public Class latihan43 Dim nurul As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim dt As New DataTable
Private Sub latihan43_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 qpembelianperjenisbarang", nurul) dt.Rows.Clear() a.Fill(dt) a.Dispose()
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim dt As New DataTable
Private Sub tugas43_36109067_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A) X.Fill(dt) X.Dispose() dgv067.DataSource = dt
Public Class latihan_43_36109058
BalasHapusDim yunha 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_43_36109058_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim yh As New OleDb.OleDbDataAdapter
yh = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", yunha)
yh.Fill(dt)
yh.Dispose()
dgv3.DataSource = dt
'Membuat grafik'
AxMSChart3.ColumnCount = 3
AxMSChart3.RowCount = dt.Rows.Count
'Membuat tabel dalam grafik'
Dim yi As Integer = 0
For Each dn As DataRow In dt.Rows
yi = yi + 1
AxMSChart3.Row = yi
AxMSChart3.RowLabel = dn("KODE BARANG")
AxMSChart3.Column = 1
AxMSChart3.Data = dn("UNIT")
AxMSChart3.Column = 2
AxMSChart3.Data = dn("RATA-RATA HARGA") / 1000
AxMSChart3.Column = 3
AxMSChart3.Data = dn("JUMLAH") / 1000
Next
End Sub
End Class
Public Class LATIHAN_043_36109075
BalasHapusDim pute As New DataTable
Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Private Sub LATIHAN_043_36109075_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mobil As New OleDb.OleDbDataAdapter
mobil = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB)
mobil.Fill(pute)
putry075.DataSource = pute
mobil.Dispose()
'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat
putryalfatih.RowCount = pute.Rows.Count()
putryalfatih.ColumnCount = 3
'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel QpembelianPerJenisBarang
Dim LORENZO As Integer = 0
For Each BarisX As DataRow In pute.Rows
LORENZO = LORENZO + 1
putryalfatih.Row = LORENZO
putryalfatih.RowLabel = BarisX("KODE BARANG")
putryalfatih.Column = 1
putryalfatih.Data = BarisX("UNIT")
putryalfatih.Column = 2
putryalfatih.Data = BarisX("RATA-RATA HARGA") / 1000
putryalfatih.Column = 3
putryalfatih.Data = BarisX("JUMLAH") / 1000
Next
End Sub
End Class
Public Class Latihan_43_059
BalasHapusDim k 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_43_059_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", k)
X.Fill(dt)
X.Dispose()
cika059.DataSource = dt
'Membuat grafik'
chart059.ColumnCount = 3
chart059.RowCount = dt.Rows.Count
'Membuat tabel dalam grafik'
Dim PB As Integer = 0
For Each cika As DataRow In dt.Rows
PB = PB + 1
chart059.Row = PB
chart059.RowLabel = cika("KODE BARANG")
chart059.Column = 1
chart059.Data = cika("UNIT")
chart059.Column = 2
chart059.Data = cika("RATA-RATA HARGA") / 1000
chart059.Column = 3
chart059.Data = cika("JUMLAH") / 1000
Next
End Sub
End Class
Public Class Form43068
BalasHapusDim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim dt As New DataTable
Private Sub Form43068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A)
X.Fill(dt)
X.Dispose()
dgv068.DataSource = dt
'Membuat grafik'
Chart068.ColumnCount = 3
Chart068.RowCount = dt.Rows.Count
'Membuat tabel dalam grafik'
Dim PB As Integer = 0
For Each ina As DataRow In dt.Rows
PB = PB + 1
Chart068.Row = PB
Chart068.RowLabel = ina("KODE BARANG")
Chart068.Column = 1
Chart068.Data = ina("UNIT")
Chart068.Column = 2
Chart068.Data = ina("RATA-RATA HARGA") / 1000
Chart068.Column = 3
Chart068.Data = ina("JUMLAH") / 1000
Next
End Sub
End Class
Public Class LATIHAN04336109060
BalasHapusDim AD As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim dt As New DataTable
Private Sub Latihan43017_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 QPembelianPerJenisBarang", AD)
A.Fill(dt)
A.Dispose()
DGV3_060.DataSource = dt
'Membuat grafik'
Grafik3.ColumnCount = 3
Grafik3.RowCount = dt.Rows.Count
'Membuat tabel dalam grafik'
Dim PB As Integer = 0
For Each ina As DataRow In dt.Rows
PB = PB + 1
Grafik3.Row = PB
Grafik3.RowLabel = ina("KODE BARANG")
Grafik3.Column = 1
Grafik3.Data = ina("UNIT")
Grafik3.Column = 2
Grafik3.Data = ina("RATA-RATA HARGA") / 1000
Grafik3.Column = 3
Grafik3.Data = ina("JUMLAH") / 1000
Next
End Sub
End Class
Public Class Form4336109084
BalasHapusDim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim dt As New DataTable
Private Sub Form4336109084_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 qpembelianperjenisbarang", dfa)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()
dgv_084.DataSource = dt
chart_084.ColumnCount = 3
chart_084.RowCount = dt.Rows.Count
Dim ical As Integer = 0
For Each x As DataRow In dt.Rows
ical += 1
chart_084.Row = ical
chart_084.RowLabel = x("kode barang")
chart_084.Column = 1
chart_084.Data = x("unit")
chart_084.Column = 2
chart_084.Data = x("rata-rata harga") / 1000
chart_084.Column = 3
chart_084.Data = x("jumlah") / 10000
Next
End Sub
End Class
Public Class latihan_43_36109074
BalasHapusDim krisna As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim ks As New DataTable
Private Sub latihan_43_36109074_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim k As New OleDb.OleDbDataAdapter
k = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", krisna)
k.Fill(ks)
k.Dispose()
dgv_074.DataSource = ks
'Membuat grafik'
chart_074.ColumnCount = 3
chart_074.RowCount = ks.Rows.Count
'Membuat tabel dalam grafik'
Dim tati As Integer = 0
For Each ano As DataRow In ks.Rows
tati = tati + 1
chart_074.Row = tati
chart_074.RowLabel = ano("KODE BARANG")
chart_074.Column = 1
chart_074.Data = ano("UNIT")
chart_074.Column = 2
chart_074.Data = ano("RATA-RATA HARGA") / 1000
chart_074.Column = 3
chart_074.Data = ano("JUMLAH") / 1000
Next
End Sub
End Class
Public Class latihan4336109061
BalasHapusDim Mjl As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim dt As New DataTable
Private Sub Latihan4336109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim L As New OleDb.OleDbDataAdapter
L = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Mjl)
dt.Rows.Clear()
L.Fill(dt)
L.Dispose()
dgvku.DataSource = dt
lilis.ColumnCount = 3
lilis.RowCount = dt.Rows.Count
Dim lili As Integer = 0
For Each x As DataRow In dt.Rows
lili += 1
lilis.Row = lili
lilis.RowLabel = x("kode barang")
lilis.Column = 1
lilis.Data = x("unit")
lilis.Column = 2
lilis.Data = x("rata-rata harga") / 1000
lilis.Column = 3
lilis.Data = x("jumlah") / 10000
Next
End Sub
End Class
Public Class Latihan_43_09079
BalasHapusDim cate 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_43_09079_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 qpembelianperjenisbarang", cate)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()
dgv079.DataSource = dt
catherine.ColumnCount = 3
catherine.RowCount = dt.Rows.Count
Dim pkkp As Integer = 0
For Each x As DataRow In dt.Rows
pkkp += 1
catherine.Row = pkkp
catherine.RowLabel = x("kode barang")
catherine.Column = 1
catherine.Data = x("unit")
catherine.Column = 2
catherine.Data = x("rata-rata harga") / 1000
catherine.Column = 3
catherine.Data = x("jumlah") / 10000
Next
End Sub
End Class
Public Class Latihan43_36109073
BalasHapusDim AA As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim dt As New DataTable
Private Sub Latihan43_36109073_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Y As New OleDb.OleDbDataAdapter
Y = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", AA)
Y.Fill(dt)
Y.Dispose()
DGV3073.DataSource = dt
'Membuat grafik'
Chart3073.ColumnCount = 3
Chart3073.RowCount = dt.Rows.Count
'Membuat tabel dalam grafik'
Dim EK As Integer = 0
For Each EVI As DataRow In dt.Rows
EK = EK + 1
Chart3073.Row = EK
Chart3073.RowLabel = EVI("KODE BARANG")
Chart3073.Column = 1
Chart3073.Data = EVI("UNIT")
Chart3073.Column = 2
Chart3073.Data = EVI("RATA-RATA HARGA") / 1000
Chart3073.Column = 3
Chart3073.Data = EVI("JUMLAH") / 1000
Next
End Sub
End Class
Public Class Form4336109062
BalasHapusDim KJS As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Data Grafik.ACCDB")
Dim dt As New DataTable
Private Sub Form4336109062_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim b As New OleDb.OleDbDataAdapter
b = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", KJS)
dt.Rows.Clear()
b.Fill(dt)
b.Dispose()
dgv062.DataSource = dt
urim.ColumnCount = 3
urim.RowCount = dt.Rows.Count
Dim fani As Integer = 0
For Each x As DataRow In dt.Rows
fani += 1
urim.Row = fani
urim.RowLabel = x("kode barang")
urim.Column = 1
urim.Data = x("unit")
urim.Column = 2
urim.Data = x("rata-rata harga") / 1000
urim.Column = 3
urim.Data = x("jumlah") / 10000
Next
End Sub
End Class
Public Class Form43
BalasHapusDim fatma As New DataTable
Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Private Sub Form43_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oto As New OleDb.OleDbDataAdapter
oto = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB)
oto.Fill(fatma)
DataGridView057.DataSource = fatma
oto.Dispose()
'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat
grafik057.RowCount = fatma.Rows.Count()
grafik057.ColumnCount = 3
'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel dtkeuangan
Dim bone As Integer = 0
For Each BarisX As DataRow In fatma.Rows
bone = bone + 1
grafik057.Row = bone
grafik057.RowLabel = BarisX("KODE BARANG")
grafik057.Column = 1
grafik057.Data = BarisX("UNIT")
grafik057.Column = 2
grafik057.Data = BarisX("RATA-RATA HARGA") / 1000
grafik057.Column = 3
grafik057.Data = BarisX("JUMLAH") / 1000
Next
End Sub
End Class
Public Class latihan43
BalasHapusDim nurul As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim dt As New DataTable
Private Sub latihan43_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 qpembelianperjenisbarang", nurul)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()
dgv.DataSource = dt
ilmi.ColumnCount = 3
ilmi.RowCount = dt.Rows.Count
Dim fikri As Integer = 0
For Each x As DataRow In dt.Rows
fikri += 1
ilmi.Row = fikri
ilmi.RowLabel = x("kode barang")
ilmi.Column = 1
ilmi.Data = x("unit")
ilmi.Column = 2
ilmi.Data = x("rata-rata harga") / 1000
ilmi.Column = 3
ilmi.Data = x("jumlah") / 10000
Next
End Sub
End Class
Public Class tugas43_36109067
BalasHapusDim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim dt As New DataTable
Private Sub tugas43_36109067_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A)
X.Fill(dt)
X.Dispose()
dgv067.DataSource = dt
'Membuat grafik'
chart067.ColumnCount = 3
chart067.RowCount = dt.Rows.Count
'Membuat tabel dalam grafik'
Dim PB As Integer = 0
For Each ina As DataRow In dt.Rows
PB = PB + 1
chart067.Row = PB
chart067.RowLabel = ina("KODE BARANG")
chart067.Column = 1
chart067.Data = ina("UNIT")
chart067.Column = 2
chart067.Data = ina("RATA-RATA HARGA") / 1000
chart067.Column = 3
chart067.Data = ina("JUMLAH") / 1000
Next
End Sub
End Class