Untuk memasukkan data ke dalam database Access, Anda perlu menghubungkan database dengan program. Materi itu bisa Anda baca di artikel saya berjudul Koneksi ke Database Access Dengan Visual Basic 2008.
Buatlah form dengan model seperti ini:
Namailah tombol Simpan dengan btnSimpanData dan tombol selesai dengan btnSelesai. Beri nama satu textbox dengan txtKodeAnggota, dan yang lainnya dengan txtNamaAnggota.
Pada artikel ini, saya memasukkan data menggunakan query, sehingga saya perlu mendefinisikan obyek untuk menampung perintah query-nya.
Dim cmd As New OleDbCommand
sehingga jika digabungkan dengan deklarasi koneksi database, maka seluruh deklarasinya menjadi seperti ini.
'--- Definisi letak database
Dim strPath As String = FileSystem.CurDir
Dim strNamaDatabase As String = "Pus.mdb"
Dim strPathDatabase As String = strPath + "\" + strNamaDatabase
'--- Definisi koneksi database
Dim con As New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
strPathDatabase)
Dim cmd As New OleDbCommand
Sesudah itu, kita perlu menghubungkan database terlebih dahulu dengan program kita
con.Open()
lantas menghubungkan obyek query dengan database tersebut:
cmd.Connection = con
Saya biasanya meletakkan dua kode program diatas pada bagian form load. Untuk memasukkan data, saya menggunakan btnSimpanData ketika di klik dengan kode program seperti berikut:
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSimpanData.Click
cmd.CommandText = _
" insert into anggota(KodeAnggota, NamaAnggota) " + _
" values(" + _
"'" + txtKodeAnggota.Text + "'," + _
"'" + txtNamaAnggota.Text + "')"
cmd.ExecuteNonQuery()
End Sub
Dan tinggal satu lagi. Agar kelihatan keren, saya memberikan kode program pada tombol Selesai untuk keluar dari aplikasi (meskipun bisa saja memakai tombol silang di kanan atas)
Application.Exit()
Program selengkapnya:
Application.Exit()
Program selengkapnya:
sumber gambar: iconarchive.com
0 komentar:
Posting Komentar