Latihan 33a

Deskripsi

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

2. objek tombol
ada tiga objek tombol/button pada form ini. tombol ini bertujuan untuk membuka form latihan 33b dan untuk menghapus data

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 public sub untuk datatable

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

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

9.  pada tombol edit masukkan script berikut untuk membuka form latihan 33b

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

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

10. pada tombol tambah masukkan script berikut untuk membuka form latihan 33b

Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click

        If Latihan_33b_46110008.Visible = False Then
            Latihan_33b_46110008.Show()
        Else
            Latihan_33b_46110008.Activate()
        End If

        Latihan_33b_46110008.edit46110008.Text = "-"
        Latihan_33b_46110008.kb46110008.Text = " "
        Latihan_33b_46110008.nb46110008.Text = " "
        Latihan_33b_46110008.hs46110008.Text = " "
        Latihan_33b_46110008.jb46110008.Text = " "
    End Sub

11. untuk delete masukkan script berikut

Private Sub delete46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete46110008.Click
        If MsgBox("apakah anda ingin menghapus data ini???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv46110008.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        ambildata()
    End Sub

12. untuk menjalankan form, tekan debug