Jumat, 18 November 2011

Latihan 43 APKOM 4 D3B

Diposting oleh di

39 komentar:

  1. khaeril jhi13 Desember 2011 pukul 00.49

    Public Class LATIHAN_043043
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=280765")
    Dim DT As New DataTable
    Private Sub LATIHAN_043043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)
    DT.Rows.Clear()
    nisa.Fill(DT)
    DataGridView1.DataSource = DT
    nisa.Dispose()

    BalasHapus
  2. khaeril jhi13 Desember 2011 pukul 00.52

    'lanjutan
    GRAFIK.ColumnCount = 3
    GRAFIK.RowCount = DT.Rows.Count
    Dim POSISIBARIS As Integer = 0
    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    GRAFIK.Row = POSISIBARIS
    GRAFIK.RowLabel = x("kode barang")
    GRAFIK.Column = 1
    GRAFIK.Data = x("unit")
    GRAFIK.Column = 2
    GRAFIK.Data = x("rata-rata harga") / 100
    GRAFIK.Column = 3
    GRAFIK.Data = x("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  3. Nurhidayah Ibrahim13 Desember 2011 pukul 04.55

    Public Class Latih43_36109034
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=nhunoe")
    'deklarasi data tabel
    Dim DT As New DataTable
    Private Sub Latih43_36109034_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim nhunoe As New OleDb.OleDbDataAdapter
    nhunoe = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    nhunoe.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    nhunoe.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik_36109034.ColumnCount = 3
    grafik_36109034.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik_36109034.RowLabel = x("kode barang")

    grafik_36109034.Column = 1
    grafik_36109034.Data = x("unit")

    grafik_36109034.Column = 2
    grafik_36109034.Data = x("rata-rata harga") / 1000

    grafik_36109034.Column = 3
    grafik_36109034.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  4. Pratiwi Leila Safila Tahir13 Desember 2011 pukul 05.56

    Public Class LATIHAN_043_36109033

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=tahir")
    'deklarasi data tabel
    Dim Data As New DataTable

    Private Sub LATIHAN_043_36109033_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    'deklarasi adapter
    Dim tiwi As New OleDb.OleDbDataAdapter
    tiwi = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    Data.Rows.Clear() 'membersihkan data tabEL
    tiwi.Fill(Data) 'mengisi database ke dlm data table
    DataGridView1.DataSource = Data 'memunculkan dlm datagridview

    tiwi.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    AxMSChart136109033.ColumnCount = 3
    AxMSChart136109033.RowCount = Data.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In Data.Rows
    POSISIBARIS = POSISIBARIS + 1
    AxMSChart136109033.Row = POSISIBARIS

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    AxMSChart136109033.RowLabel = x("kode barang")

    AxMSChart136109033.Column = 1
    AxMSChart136109033.Data = x("unit")

    AxMSChart136109033.Column = 2
    AxMSChart136109033.Data = x("rata-rata harga") / 1000

    AxMSChart136109033.Column = 3
    AxMSChart136109033.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  5. Wirda13 Desember 2011 pukul 06.31

    Public Class LATIHAN_043_36109049

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=wirda")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_049_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim WIRDA As New OleDb.OleDbDataAdapter
    WIRDA = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    WIRDA.Fill(DT) 'mengisi database ke dlm data table
    DGV_36109049.DataSource = DT 'memunculkan dlm datagridview

    WIRDA.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    GRAFIK_36109049.ColumnCount = 3
    GRAFIK_36109049.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    GRAFIK_36109049.RowLabel = x("kode barang")

    GRAFIK_36109049.Column = 1
    GRAFIK_36109049.Data = x("unit")

    GRAFIK_36109049.Column = 2
    GRAFIK_36109049.Data = x("rata-rata harga") / 1000

    GRAFIK_36109049.Column = 3
    GRAFIK_36109049.Data = x("jumlah") / 10000

    Next

    End Sub

    End Class

    BalasHapus
  6. Unknown13 Desember 2011 pukul 06.58

    Public Class Latihan_43_36109056
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=2422")
    'deklarasi data tabel
    Dim DT As New DataTable
    Private Sub Latihan_43_36109056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim biya As New OleDb.OleDbDataAdapter
    biya = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    biya.Fill(DT) 'mengisi database ke dlm data table
    DGV_36109056.DataSource = DT 'memunculkan dlm datagridview

    biya.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik_36109056.ColumnCount = 3
    Grafik_36109056.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik_36109056.RowLabel = x("kode barang")

    Grafik_36109056.Column = 1
    Grafik_36109056.Data = x("unit")

    Grafik_36109056.Column = 2
    Grafik_36109056.Data = x("rata-rata harga") / 1000

    Grafik_36109056.Column = 3
    Grafik_36109056.Data = x("jumlah") / 10000

    Next
    End Sub
    End Class

    BalasHapus
  7. Musdalifah Nur13 Desember 2011 pukul 15.57

    Public Class Latihan_43_36109039
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=1234")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim ifa As New OleDb.OleDbDataAdapter
    ifa = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    ifa.Fill(DT) 'mengisi database ke dlm data table
    DataGridView039.DataSource = DT 'memunculkan dlm datagridview

    ifa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik039.ColumnCount = 3
    Grafik039.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik039.RowLabel = x("kode barang")

    Grafik039.Column = 1
    Grafik039.Data = x("unit")

    Grafik039.Column = 2
    Grafik039.Data = x("rata-rata harga") / 1000

    Grafik039.Column = 3
    Grafik039.Data = x("jumlah") / 10000

    Next

    End Sub
    End Class

    BalasHapus
  8. farid ramli13 Desember 2011 pukul 18.00

    Public Class Form43041

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    nisa.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    nisa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik.ColumnCount = 3
    grafik.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik.RowLabel = x("kode barang")

    grafik.Column = 1
    grafik.Data = x("unit")

    grafik.Column = 2
    grafik.Data = x("rata-rata harga") / 1000

    grafik.Column = 3
    grafik.Data = x("jumlah") / 10000

    Next

    End Sub
    End Class

    BalasHapus
  9. Armita Laenre13 Desember 2011 pukul 19.56

    Public Class Latih43
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=150991")
    'deklarasi data tabel
    Dim DT As New DataTable
    Private Sub Latih4336109040_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim mytha As New OleDb.OleDbDataAdapter
    mytha = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    mytha.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    mytha.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik36109040.ColumnCount = 3
    grafik36109040.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik36109040.RowLabel = x("kode barang")

    grafik36109040.Column = 1
    grafik36109040.Data = x("unit")

    grafik36109040.Column = 2
    grafik36109040.Data = x("rata-rata harga") / 1000

    grafik36109040.Column = 3
    grafik36109040.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  10. Lara C Sary L14 Desember 2011 pukul 02.46

    Public Class Latihan_043_36109045
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=florista")
    Dim DT As New DataTable
    Private Sub Latihan_043_36109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim chaca As New OleDb.OleDbDataAdapter
    chaca = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)
    DT.Rows.Clear()
    chaca.Fill(DT)
    DataGridView1.DataSource = DT
    chaca.Dispose()
    GRAFIK.ColumnCount = 3
    GRAFIK.RowCount = DT.Rows.Count
    Dim POSISIBARIS As Integer = 0
    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    GRAFIK.Row = POSISIBARIS
    GRAFIK.RowLabel = x("kode barang")
    GRAFIK.Column = 1
    GRAFIK.Data = x("unit")
    GRAFIK.Column = 2
    GRAFIK.Data = x("rata-rata harga") / 100
    GRAFIK.Column = 3
    GRAFIK.Data = x("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  11. Lara C Sary L14 Desember 2011 pukul 03.02

    Public Class Latihan_043_36109045
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=florista")
    Dim DT As New DataTable
    Private Sub Latihan_043_36109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim chaca As New OleDb.OleDbDataAdapter
    chaca = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)
    DT.Rows.Clear()
    chaca.Fill(DT)
    DataGridView1.DataSource = DT
    chaca.Dispose()
    GRAFIK.ColumnCount = 3
    GRAFIK.RowCount = DT.Rows.Count
    Dim POSISIBARIS As Integer = 0
    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    GRAFIK.Row = POSISIBARIS
    GRAFIK.RowLabel = x("kode barang")
    GRAFIK.Column = 1
    GRAFIK.Data = x("unit")
    GRAFIK.Column = 2
    GRAFIK.Data = x("rata-rata harga") / 100
    GRAFIK.Column = 3
    GRAFIK.Data = x("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  12. Muh. Nurfalah Yusuf18 Desember 2011 pukul 06.01

    Public Class Latihan_4336109055
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=23")
    'deklarasi data tabel
    Dim DT As New DataTable
    Private Sub Latihan_4336109055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim falah As New OleDb.OleDbDataAdapter
    falah = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    falah.Fill(DT) 'mengisi database ke dlm data table
    DGV36109055.DataSource = DT 'memunculkan dlm datagridview

    falah.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik36109055.ColumnCount = 3
    Grafik36109055.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik36109055.RowLabel = x("kode barang")

    Grafik36109055.Column = 1
    Grafik36109055.Data = x("unit")

    Grafik36109055.Column = 2
    Grafik36109055.Data = x("rata-rata harga") / 1000

    Grafik36109055.Column = 3
    Grafik36109055.Data = x("jumlah") / 10000

    Next
    End Sub
    End Class

    BalasHapus
  13. nideria19 Desember 2011 pukul 04.48

    Public Class Form4336109050
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;Jet OLEDB:Database Password=nideria")
    Dim data As New DataTable

    Private Sub Form4336109050_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapt As New OleDb.OleDbDataAdapter
    adapt = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)
    data.Rows.Clear()
    adapt.Fill(data)
    DataGridView1.DataSource = data

    adapt.Dispose()

    grafik.ColumnCount = 3
    grafik.RowCount = data.Rows.Count

    Dim BARIS As Integer = 0

    For Each x As DataRow In data.Rows
    BARIS = BARIS + 1
    grafik.Row = BARIS

    grafik.RowLabel = x("kode barang")

    grafik.Column = 1
    grafik.Data = x("unit")

    grafik.Column = 2
    grafik.Data = x("rata-rata harga") / 1000

    grafik.Column = 3
    grafik.Data = x("JUMLAH") / 10000

    Next
    End Sub
    End Class

    BalasHapus
  14. Noviani Malnan21 Desember 2011 pukul 01.38

    Public Class LATIHAN_043_36109051

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=molnan")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim molnan As New OleDb.OleDbDataAdapter
    molnan = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    molnan.Fill(DT) 'mengisi database ke dlm data table
    DGV_36109051.DataSource = DT 'memunculkan dlm datagridview

    wirda.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    GRAFIK_36109051.ColumnCount = 3
    GRAFIK_36109051.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    GRAFIK_36109051.RowLabel = x("kode barang")

    GRAFIK_36109051.Column = 1
    GRAFIK_36109051.Data = x("unit")

    GRAFIK_36109051.Column = 2
    GRAFIK_36109051.Data = x("rata-rata harga") / 1000

    GRAFIK_36109051.Column = 3
    GRAFIK_36109051.Data = x("jumlah") / 10000

    Next

    End Sub

    End Class

    BalasHapus
  15. Nurul Azizah M27 Desember 2011 pukul 04.55

    Public Class LATIHAN4336109038
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN4336109038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim icha As New OleDb.OleDbDataAdapter
    icha = New OleDb.OleDbDataAdapter("select * from QPembelianPerJenisBarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    icha.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    icha.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    AxMSChart1.ColumnCount = 3
    AxMSChart1.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    AxMSChart1.RowLabel = x("KODE BARANG")

    AxMSChart1.Column = 1
    AxMSChart1.Data = x("UNIT")

    AxMSChart1.Column = 2
    AxMSChart1.Data = x("RATA-RATA HARGA") / 1000

    AxMSChart1.Column = 3
    AxMSChart1.Data = x("JUMLAH") / 10000

    Next

    End Sub
    End Class

    BalasHapus
  16. Andi Habibi1 Januari 2012 pukul 03.57

    Public Class Latihan_43_36109035
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=andihabibi27")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim bibi As New OleDb.OleDbDataAdapter
    bibi = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    bibi.Fill(DT) 'mengisi database ke dlm data table
    DataGridView035.DataSource = DT 'memunculkan dlm datagridview

    bibi.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik035.ColumnCount = 3
    Grafik035.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik035.RowLabel = x("kode barang")

    Grafik035.Column = 1
    Grafik035.Data = x("unit")

    Grafik035.Column = 2
    Grafik035.Data = x("rata-rata harga") / 1000

    Grafik035.Column = 3
    Grafik035.Data = x("jumlah") / 10000

    Next

    End Sub
    End Class

    BalasHapus
  17. Muhammad Rijal2 Januari 2012 pukul 22.18

    Public Class Lat4336109042
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    'deklarasi data tabel
    Dim IJAL As New DataTable

    Private Sub Lat4336109042_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim jal As New OleDb.OleDbDataAdapter
    jal = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    IJAL.Rows.Clear() 'membersihkan data tabEL
    jal.Fill(IJAL) 'mengisi database ke dlm data table
    DataGridView1.DataSource = IJAL 'memunculkan dlm datagridview

    jal.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    GRAFIK.ColumnCount = 3
    GRAFIK.RowCount = IJAL.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In IJAL.Rows
    POSISIBARIS = POSISIBARIS + 1
    GRAFIK.Row = POSISIBARIS

    GRAFIK.RowLabel = x("kode barang")

    GRAFIK.Column = 1
    GRAFIK.Data = x("unit")


    GRAFIK.Column = 2
    GRAFIK.Data = x("rata-rata harga") / 100


    GRAFIK.Column = 3
    GRAFIK.Data = x("JUMLAH") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  18. Ince Akhriani Aulia Dulina6 Januari 2012 pukul 07.36

    Public Class Form4336108001
    Dim INCE As New OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim LV As New DataTable
    Private Sub Form4336108001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim CE As New OleDb.OleDbDataAdapter
    CE = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", INCE)
    LV.Rows.Clear()
    CE.Fill(LV)
    DGV36108001.DataSource = LV
    CE.Dispose()

    GRAFIK36108001.ColumnCount = 3
    GRAFIK36108001.RowCount = LV.Rows.Count

    Dim p As Integer = 0
    For Each x As DataRow In LV.Rows
    p = p + 1
    GRAFIK36108001.Row = p
    GRAFIK36108001.RowLabel = x("Kode Barang")

    GRAFIK36108001.Column = 1
    GRAFIK36108001.Data = x("Unit")

    GRAFIK36108001.Column = 2
    GRAFIK36108001.Data = x("Rata-Rata Harga") / 100

    GRAFIK36108001.Column = 3
    GRAFIK36108001.Data = x("Jumlah") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  19. Juniati Muslimin1 Februari 2012 pukul 07.01

    Public Class Grafik43_36109037
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;Jet OLEDB:Database Password=2901911691")
    Dim data As New DataTable
    Private Sub Grafik43_36109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapt As New OleDb.OleDbDataAdapter
    adapt = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    data.Rows.Clear()
    adapt.Fill(data)
    DataGridView1.DataSource = data

    adapt.Dispose()

    Grafik.ColumnCount = 3
    Grafik.RowCount = data.Rows.Count

    Dim BARIS As Integer = 0

    For Each x As DataRow In data.Rows
    BARIS = BARIS + 1
    Grafik.Row = BARIS

    Grafik.RowLabel = x("kode barang")

    Grafik.Column = 1
    Grafik.Data = x("unit")

    Grafik.Column = 2
    Grafik.Data = x("rata-rata harga") / 100

    Grafik.Column = 3
    Grafik.Data = x("JUMLAH") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  20. hApSARie ieNdaH pRaTiTis1 Februari 2012 pukul 16.38

    Public Class LATIHAN4336109029
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;Jet OLEDB:Database Password= hapsari")
    Dim data As New DataTable

    Private Sub LATIHAN4336109029_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapt As New OleDb.OleDbDataAdapter
    adapt = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)
    data.Rows.Clear()
    adapt.Fill(data)
    DataGridView1.DataSource = data

    adapt.Dispose()

    grafik.ColumnCount = 3
    grafik.RowCount = data.Rows.Count

    Dim BARIS As Integer = 0

    For Each x As DataRow In data.Rows
    BARIS = BARIS + 1
    grafik.Row = BARIS

    grafik.RowLabel = x("kode barang")

    grafik.Column = 1
    grafik.Data = x("unit")

    grafik.Column = 2
    grafik.Data = x("rata-rata harga") / 1000

    grafik.Column = 3
    grafik.Data = x("JUMLAH") / 10000

    Next
    End Sub
    End Class

    BalasHapus
  21. Dede Pradithya5 Februari 2012 pukul 03.32

    Public Class LATIHAN_043053
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=praditya")
    Dim DT As New DataTable
    Private Sub LATIHAN_043053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim dede As New OleDb.OleDbDataAdapter
    dede = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)
    DT.Rows.Clear()
    nisa.Fill(DT)
    DataGridView1.DataSource = DT
    dede.Dispose()

    BalasHapus
  22. Unknown28 Oktober 2012 pukul 21.15

    http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan4336110037.html

    BalasHapus
  23. Unknown29 Oktober 2012 pukul 03.48

    http://rainaagrippinaa.blogspot.com/2012/10/latihan4336110032.html

    BalasHapus
  24. Unknown3 November 2012 pukul 05.45

    http://nurrahmahrasyid2.blogspot.com/2012/10/latihan4336110042.html

    BalasHapus
  25. Unknown3 November 2012 pukul 06.19

    http://ias-anakbola.blogspot.com/2012/11/latihan4336110056.html

    BalasHapus
  26. Naomi Emily3 November 2012 pukul 20.19

    http://eminaomi.blogspot.com/2012/11/latihan4336110049.html

    BalasHapus
  27. Unknown4 November 2012 pukul 06.30

    http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan4336110039.html

    BalasHapus
  28. Unknown4 November 2012 pukul 07.44

    http://ruslancullank1.blogspot.com/2012/11/deskripsilatihan4336110054.html

    BalasHapus
  29. Unknown4 November 2012 pukul 08.47

    http://rosyanausman.blogspot.com/2012/11/latihan4336110036.html

    BalasHapus
  30. Unknown8 November 2012 pukul 13.37

    http://hilariusmariotonapa.blogspot.com/2012/11/deskripsi-latihan4336110048.html
    http://hilariusmariotonapa.blogspot.com/2012/11/prosedur-penyelesaian-latihan4336110048.html

    BalasHapus
  31. IlaH Az Zahra9 November 2012 pukul 06.49

    http://ilhaazzahra.blogspot.com/2012/11/latihan4336110033.html

    BalasHapus
  32. Unknown9 November 2012 pukul 23.15

    http://audryasharii.blogspot.com/2012/10/latihan4336110031.html

    BalasHapus
  33. Unknown10 November 2012 pukul 03.14

    http://tiya-sri.blogspot.com/2012/11/latihan4336110044-aplikasi-komputer-4.html

    BalasHapus
  34. Unknown11 November 2012 pukul 05.27

    http://dewiwahyuni91.blogspot.com/2012/11/latihan4336110038.html

    BalasHapus
  35. Unknown27 November 2012 pukul 06.17

    http://rizka-azisah.blogspot.com/2012/11/deskripsi-penyelesaian-latihan4336110041.html

    BalasHapus
  36. Unknown23 Januari 2013 pukul 11.37

    http://rahmisuryatama05.blogspot.com/2012/11/latihan4336110040.html

    BalasHapus
  37. Unknown25 Januari 2013 pukul 11.45

    http://sukadriady.blogspot.com/2013/01/latihan433611.html

    BalasHapus
  38. Unknown27 Januari 2013 pukul 08.34

    http://hasfiahzain.blogspot.com/2013/01/latihan4336110052.html

    BalasHapus
  39. Unknown30 Januari 2013 pukul 11.41

    http://zulkiflitryputra.blogspot.com/2013/01/latihan4336110046_31.html

    BalasHapus

Langganan: Posting Komentar (Atom)