Latihan 27

Deskripsi

1. Objek textbox
ada 5 objek textbox pada form ini. berguna untuk menginput data yang akan dimasukkan ke dalam file access databarang.

2. objek tombol
ada atu objek tobol/button pada form ini. fungsinya dalah untuk mengeksekusi perintah pemindahan data dari vb ke file access

even : ButtonClick

script unik :
-membuka koneksi antara vb dan file access
conect.Open()

-menutup koneksi
conect.Close()

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 menu 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 antara project Visual Studio anda dengan file access

Dim conect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")

7. masukkan script berikut pada button simpan. script tersebut berguna untuk mengeksekusi perintah pemindahan data dari project anda ke file access yang sudah anda copy ke folder bin

Private Sub simpan46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110008.Click
        Dim xxx As New OleDb.OleDbCommand
        xxx = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110008.Text & "','" & nb46110008.Text & "', '" & Val(hj46110008.Text) & "', '" & Val(jb46110008.Text) & "')", conect)


        conect.Open()
        xxx.ExecuteNonQuery()
        conect.Close()
        kb46110008.Text = " "
        nb46110008.Text = " "
        hj46110008.Text = " "
        jb46110008.Text = " "
    End Sub

8. klik debug untuk menjalankan form ini