Latihan 31a

Deskripsi

1. Objek datagridview
terdapat satu objek datagridview pada form ini. tujuannya untuk menampilkan tabel yang ada di file access

2. objek tombol
ada satu objek tombol/button pada form ini. tombol ini bertujuan untuk membuka form latihan 31b pada project.

even : form_load, ButtonClick

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5.  buat dulu koneksi antara project visual studio anda dengan file access. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/membuat-koneksi-antara-access-2007.html

6. buat pendeklarasian koneksi dan datatable

Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable

7. buat private sub untuk mengisi datagirdview

 Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)
        ambil.Rows.Clear()
        data.Fill(ambil)
        data.Dispose()
    End Sub

8. untuk even form_load masukkan script berikut. script tersebut berguna untuk mengeksekusi fungsi private sub yang dibuat sebelumnya

Private Sub Latihan_31a_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110008.DataSource = ambil
    End Sub

9. untuk tombol, masukkan script berikut. script tersebut berguna untuk membuka latihan 30b

Private Sub edit46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110008.Click
        If Latihan_31b_46110008.Visible = False Then
            Latihan_31b_46110008.Show()
        Else
            Latihan_31b_46110008.Activate()
        End If

        Latihan_31b_46110008.edit46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_31b_46110008.kb46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_31b_46110008.nb46110008.Text = dgv46110008.CurrentRow.Cells("namabarang").Value
        Latihan_31b_46110008.hs46110008.Text = dgv46110008.CurrentRow.Cells("hargajual").Value
        Latihan_31b_46110008.jb46110008.Text = dgv46110008.CurrentRow.Cells("JumlahBarang").Value
    End Sub

10. klik debug untuk menjalankan form ini