Latihan 28a

Deskripsi

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

2. objek tombol
ada dua objek tombol/button pada form ini (bertuliskan tutup dan input). tombol input bertujuan untuk membuka form latihan 28b pada project. sedangkan tombol tutup untuk menutup form tersebut.

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 dimensi yang menjadi koneksi dan datatable untuk form anda

Dim xxx As New DataTable
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

7. buat private sub untuk mengisi datagridview anda

Private Sub zzz()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", conect)
        xxx.Rows.Clear()
        data.Fill(xxx)
        data.Dispose()
    End Sub

8. lalu buat script untuk even form_load anda

Private Sub Latihan_28a_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        zzz()
        dgv46110008.DataSource = xxx
    End Sub

9. masukkan script berikut pada tombol input anda. script ini bertujuan untuk membuka latihan 28b

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

10. untuk tombol tutup masukkan script berikut

Private Sub tutp46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutp46110008.Click
        Me.Close()
    End Sub

11. tekan debg untuk menjalankan form ini