Latihan 30a

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 30b 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.   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 sambung As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb")
    Dim tabel 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", sambung)
        tabel.Rows.Clear()
        data.Fill(tabel)
        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_30a_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110008.DataSource = tabel
    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_30b_46110008.Visible = False Then
            Latihan_30b_46110008.Show()
        Else
            Latihan_30b_46110008.Activate()
        End If

        Latihan_30b_46110008.kbg46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_30b_46110008.kb46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_30b_46110008.nb46110008.Text = dgv46110008.CurrentRow.Cells("namabarang").Value
        Latihan_30b_46110008.hs46110008.Text = dgv46110008.CurrentRow.Cells("hargajual").Value
        Latihan_30b_46110008.jb46110008.Text = dgv46110008.CurrentRow.Cells("jumlahbarang").Value
    End Sub

10. klik debug untuk menjalankan form ini