Jumat, 18 November 2011

Latihan 42 APKOM 4 D3B

39 komentar:

  1. Public Class LATIHAN_042043
    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_042043_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 Qrekapperrekening", CONECT)
    DT.Rows.Clear()
    nisa.Fill(DT)
    DataGridView1.DataSource = DT
    nisa.Dispose()

    BalasHapus
  2. 'lanjutan
    GRAFIK.ColumnCount = 2
    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("koderekening")
    GRAFIK.Column = 1
    GRAFIK.Data = x("total debet") / 1000
    GRAFIK.Column = 2
    GRAFIK.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  3. Public Class Latih42_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 Latih42_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 qrekapperrekening", 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 = 2
    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("koderekening")

    grafik_36109034.Column = 1
    grafik_36109034.Data = x("total debet") / 1000

    grafik_36109034.Column = 2
    grafik_36109034.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  4. Public Class LATIHAN_042_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_042_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 qrekapperrekening", 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
    AxMSChart1.ColumnCount = 2
    AxMSChart1.RowCount = Data.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

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

    AxMSChart1.Column = 1
    AxMSChart1.Data = x("total debet") / 1000

    AxMSChart1.Column = 2
    AxMSChart1.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  5. Public Class LATIHAN_042_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 qrekapperrekening", 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 = 2
    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("koderekening")

    GRAFIK_36109049.Column = 1
    GRAFIK_36109049.Data = x("total debet") / 1000

    GRAFIK_36109049.Column = 2
    GRAFIK_36109049.Data = x("total kredit") / 1000

    Next

    End Sub

    End Class

    BalasHapus
  6. Public Class Latihan_42_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_42_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 qrekapperrekening", 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 = 2
    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("koderekening")

    Grafik_36109056.Column = 1
    Grafik_36109056.Data = x("total debet") / 1000

    Grafik_36109056.Column = 2
    Grafik_36109056.Data = x("total kredit") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  7. Public Class latihan_42_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 qrekapperrekening", 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 = 2
    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("koderekening")

    Grafik039.Column = 1
    Grafik039.Data = x("total debet") / 1000

    Grafik039.Column = 2
    Grafik039.Data = x("total kredit") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  8. Public Class Form42041
    '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 qrekapperrekening", 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 = 2
    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("koderekening")

    grafik.Column = 1
    grafik.Data = x("total debet") / 1000

    grafik.Column = 2
    grafik.Data = x("total kredit") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  9. Public Class Latih42
    '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 Latih4236109040_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 qrekapperrekening", 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 = 2
    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("koderekening")

    grafik36109040.Column = 1
    grafik36109040.Data = x("total debet") / 1000

    grafik36109040.Column = 2
    grafik36109040.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  10. 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 pembelianperjenisbarang", 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
  11. Public Class Latihan_042_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_042_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 Qrekapperrekening", CONECT)
    DT.Rows.Clear()
    chaca.Fill(DT)
    DataGridView1.DataSource = DT
    nisa.Dispose()
    GRAFIK.ColumnCount = 2
    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("koderekening")
    GRAFIK.Column = 1
    GRAFIK.Data = x("total debet") / 1000
    GRAFIK.Column = 2
    GRAFIK.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  12. Public Class Latihan_4236109055
    '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_4236109055_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 qrekapperrekening", 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 = 2
    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("koderekening")

    Grafik36109055.Column = 1
    Grafik36109055.Data = x("total debet") / 1000

    Grafik36109055.Column = 2
    Grafik36109055.Data = x("total kredit") / 1000

    Next
    End Sub
    End Class

    BalasHapus
  13. Public Class Form4236109050
    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 Form4236109050_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 Qrekapperrekening", CONECT)
    data.Rows.Clear()
    adapt.Fill(data)
    DataGridView1.DataSource = data
    adapt.Dispose()

    GRAFIK.ColumnCount = 2
    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("koderekening")

    GRAFIK.Column = 1
    GRAFIK.Data = x("total debet") / 1000

    GRAFIK.Column = 2
    GRAFIK.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  14. Public Class LATIHAN_042_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 wirda As New OleDb.OleDbDataAdapter
    molnan = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", 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

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

    'menentkan jumlah baris
    GRAFIK_36109051.ColumnCount = 2
    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("koderekening")

    GRAFIK_36109051.Column = 1
    GRAFIK_36109051.Data = x("total debet") / 1000

    GRAFIK_36109051.Column = 2
    GRAFIK_36109051.Data = x("total kredit") / 1000

    Next

    End Sub

    End Class

    BalasHapus
  15. Public Class LATIHAN4236109038
    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 LATIHAN4236109038_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 QRekapPerRekening", 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
    Grafik.ColumnCount = 2
    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("KODEREKENING")

    Grafik.Column = 1
    Grafik.Data = x("TOTAL DEBET") / 1000

    Grafik.Column = 2
    Grafik.Data = x("TOTAL KREDIT") / 1000
    Next

    End Sub
    End Class

    BalasHapus
  16. Public Class latihan_42_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 qrekapperrekening", 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 = 2
    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("koderekening")

    Grafik035.Column = 1
    Grafik035.Data = x("total debet") / 1000

    Grafik035.Column = 2
    Grafik035.Data = x("total kredit") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  17. Public Class Lat4236109042
    '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 LATIHAN_042_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim ijal As New OleDb.OleDbDataAdapter
    ijal = New OleDb.OleDbDataAdapter("select * from Qrekapperrekening", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    IJAL.Rows.Clear() 'membersihkan data tabEL
    ijal.Fill(IJAL) 'mengisi database ke dlm data table
    DataGridView1.DataSource = IJAL 'memunculkan dlm datagridview

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

    'menentkan jumlah baris
    GRAFIK.ColumnCount = 2
    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("koderekening")

    GRAFIK.Column = 1
    GRAFIK.Data = x("total debet") / 1000

    GRAFIK.Column = 2
    GRAFIK.Data = x("total kredit") / 1000
    Next

    End Sub
    End Class

    BalasHapus
  18. Public Class Form4236108001
    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 Form4236108001_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 Qrekapperrekening", INCE)
    LV.Rows.Clear()
    CE.Fill(LV)
    DGV36108001.DataSource = LV
    CE.Dispose()

    GRAFIK36108001.ColumnCount = 2
    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 Rekening")

    GRAFIK36108001.Column = 1
    GRAFIK36108001.Data = x("Total Debet") / 1000

    GRAFIK36108001.Column = 2
    GRAFIK36108001.Data = x("Total Kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  19. Public Class LATIHAN4236109029

    Dim CONNECT 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 LATIHAN4236109029_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 Qrekapperrekening", CONNECT)
    data.Rows.Clear()
    adapt.Fill(data)
    DataGridView1.DataSource = data
    adapt.Dispose()

    GRAFIK.ColumnCount = 2
    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("koderekening")

    GRAFIK.Column = 1
    GRAFIK.Data = x("total debet") / 1000

    GRAFIK.Column = 2
    GRAFIK.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  20. Public Class Grafik42_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 Grafik42_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 Qrekapperrekening", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    data.Rows.Clear()
    adapt.Fill(data)
    DataGridView1.DataSource = data
    adapt.Dispose()

    Grafik.ColumnCount = 2
    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("koderekening")

    Grafik.Column = 1
    Grafik.Data = x("total debet") / 1000

    Grafik.Column = 2
    Grafik.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  21. http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan4236110037.html

    BalasHapus
  22. http://rainaagrippinaa.blogspot.com/2012/10/latihan4236110032.html

    BalasHapus
  23. http://nurrahmahrasyid2.blogspot.com/2012/10/latihan4236110042.html

    BalasHapus
  24. http://ias-anakbola.blogspot.com/2012/11/latihan4236110056.html

    BalasHapus
  25. http://eminaomi.blogspot.com/2012/11/latihan4236110049.html

    BalasHapus
  26. http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan4236110039.html

    BalasHapus
  27. http://ruslancullank1.blogspot.com/2012/11/deskripsilatihan4236110054.html

    BalasHapus
  28. http://rosyanausman.blogspot.com/2012/11/latihan4236110036.html

    BalasHapus
  29. http://hilariusmariotonapa.blogspot.com/2012/11/prosedur-penyelesaian-latihan4236110048.html
    http://hilariusmariotonapa.blogspot.com/2012/11/deskripsi-latihan4236110048.html

    BalasHapus
  30. http://ilhaazzahra.blogspot.com/2012/11/latihan4236110033.html

    BalasHapus
  31. http://audryasharii.blogspot.com/2012/10/latihan4236110031.html

    BalasHapus
  32. http://tiya-sri.blogspot.com/2012/11/latihan4236110044-aplikasi-komputer-4.html

    BalasHapus
  33. http://dewiwahyuni91.blogspot.com/2012/11/latihan4236110038.html

    BalasHapus
  34. http://burhankhang58.blogspot.com/2012/11/latihan4236110047.html

    BalasHapus
  35. http://rizka-azisah.blogspot.com/2012/11/deskripsi-penyelesaian-latihan4236110041.html

    BalasHapus
  36. http://rahmisuryatama05.blogspot.com/2012/11/latihan4236110040.html

    BalasHapus
  37. http://sukadriady.blogspot.com/2013/01/latihan4236110043.html

    BalasHapus
  38. http://hasfiahzain.blogspot.com/2013/01/latihan4236110052.html

    BalasHapus
  39. http://zulkiflitryputra.blogspot.com/2013/01/latihan4236110046.html

    BalasHapus