Wednesday, January 28, 2009

Access >> Manipulasi Tabel dengan VBScript

Menambah Data

Menambah data pada sebuah tabel MS-Access, pada dasarnya adalah rangkaian proses :

1. Membuka database

2. Membuka tabel
3. Menambahkan baris kosong untuk record baru
4. Mengisi baris/record baru dengan data
5. Menyimpan data record baru

Private Sub cmdsimpan_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb() ' buka dtabase dan simpan di variabel db

Set rs = db.OpenRecordset("TNama") 'buka tabel TNama n simpan record di variabel rs

rs.AddNew 'menambah record kosong

rs!nama = txtnama 'mengisi record dengan nilai textbox
'tambahkan field-field yang lain disini, jika ada.............
rs.Update 'konfirmasi penyimpanan secara tetap
pesan = MsgBox("Data tersimpan", vbOKOnly, "Simpan")
rs.Close 'tutup recordset

db.Close 'tutup database
End Sub


contoh bisa di-download disin :
http://aburizki.multiply.com/journal/item/25/Manipulasi_Tabel_dengan_VBScript

No comments:

Post a Comment