Latihan 29

Deskripsi

1. Objek textbox
terdapat 5 objek textbox pada form ini. textbox yang ada di panel pertama berfungsi untuk menginput kode barang dari data yang ingin di edit. 4 textbox pada panel kedua berfungsi untuk menginput data baru dari data yang di edit.

2. objek button
terdapat 1 objek button form ini. berfungsi mengeksekusi hasil edit sebuah data yang ada di file access

3. objel panel
 terdapat 2 objek panel pada form ini. tujuannya untuk mengelompokkan data yang lama dan data yang baru

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. masukkan reference baru kedalam project anda. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/cara-memasukkan-reference-pada-project.html 

7. buat dimensi untuk adapter, koneksi, dan reference

Dim xxx As New OleDb.OleDbCommand
    Dim yyy As New ByIskandar.CariKeDataBaseByIskandar
    Dim zzz As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

8. pada tombol simpan, masukkan script berikut. script tersebut berguna untuk memeriksa data, mengambil data, memindahkan data, dan mengosongkan textbox

 Private Sub simpan46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110008.Click
        If kb46110008.Text.Length = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        If nb46110008.Text.Length = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        If Val(hs46110008.Text) = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        If Val(jb46110008.Text) = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        If kbg46110008.Text <> kb46110008.Text Then
            yyy.AturPencarianDataBase("Barang", "KodeBarang", kb46110008.Text, 1, zzz)
            If yyy.JumlanBaris > 0 Then
                MsgBox("kode barang sudah ada, sob")
                Exit Sub
            End If
        End If
        xxx = New OleDb.OleDbCommand("update barang set kodebarang = '" & kb46110008.Text & "', namabarang = '" & nb46110008.Text & "', hargajual = " & Val(hs46110008.Text) & ", jumlahbarang = " & Val(jb46110008.Text) & " where kodebarang = '" & kbg46110008.Text & "'", zzz)
        zzz.Open()
        xxx.ExecuteNonQuery()
        zzz.Close()
        xxx.Dispose()

        kbg46110008.Text = ""
        kb46110008.Text = ""
        nb46110008.Text = ""
        hs46110008.Text = ""
        jb46110008.Text = ""
    End Sub

9. untuk menjalankan form, tekan debug