Latihan 32b

Deskripsi

1. Objek textbox
terdapat 4 objk textbox pada tombol ini. tujuannya untuk menginput data baru yang ingin dimasukkan kedalam tebla datagridview yang ada di latihan 32a

2. objek button
ada satu objek tombol/button pada form ini. tujuannya untuk mengeksekusi perintah memindahkan data yang diinput di textbox menuju ke tabel yang ada di latihan 32a

even : 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, jika belum ada. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/cara-memasukkan-reference-pada-project.html   

7. deklarasikan koneksi

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


8. pada button simpan, masukkan script berikut. tujuannya untuk memeriksa data, mengambil dan memindahkannya ke tabel di latihan 32a, lalu mengocongkan textbox dan menutup form

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 textbox ini")
            Exit Sub
        End If

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

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

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

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110008.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("data sudah ada, masukkan yang baru")

            kb46110008.Text = " "
            nb46110008.Text = " "
            hs46110008.Text = " "
            jb46110008.Text = " "
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110008.Text & "','" & nb46110008.Text & "', " & Val(hs46110008.Text) & "," & Val(jb46110008.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        kb46110008.Text = " "
        nb46110008.Text = " "
        hs46110008.Text = " "
        jb46110008.Text = " "

        Latihan_32a_46110008.ambildata()

        Me.Close()
    End Sub