Contoh Script Database Dengan DAO

Penggunaan DAO dapat dilakukan dengan dua cara yaitu dengan menggunakan Script dan Objek, pada kesempatan ini saya akan memberikan Contoh script database dengan DAO. Nah sekarang langsung aja ke TKP..
Sebelumnya buat terlebih dahulu file access dengan table Anggota, dengan field sbb:
NIK, NAMA, ALAMAT. Simpan dgn nama  DAO.MDB, dan taruh dalam satu folder dengan File project yang akan kita buat karena proses pemanggilan database hanya dapat dilakukan pada folder yang sama dengan menggunakan fungsi App.Path. 

selanjutnya rancang form dengan menggunakan
1. Buatlah 3 buah textbox dan masing-masing beri nama sesuai nama fieldnya agar lebih mudah dipahami seperti ini txtNIK, txtNama, TxtAlamat
2. Buatlah MsFlexGrid, jika tidak terdapat pada tool box anda tekan Ctrl+T lalau pilih Microsoft FlexGrid Control 6.0. maka akan tampil pada tool box lalu masukan pada form dan beri nama : Ms.
3. Letakan 3 commandButton dengan nama cmdSimpan, cmdHapus, cmdKeluar

Lalu copy script dibawah ini dan paste pada form yang telah dibuat.

Dim db As Database
Dim rs As Recordset

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub Form_Activate()
bersih
tampil
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\dao.mdb")
End Sub

Sub bersih()
txtnik = ""
txtNama = ""
txtAlamat = ""
txtnik.SetFocus
End Sub

Sub tampil()
Set rs = db.OpenRecordset("Anggota")
ms.Rows = 1
While Not rs.EOF
   ms.AddItem rs!nik & vbTab & rs!nama & vbTab & rs!alamat
   rs.MoveNext
Wend
End Sub

Private Sub cmdSimpan_Click()
Set rs = db.OpenRecordset("select * from Anggota where nik='" & txtnik.Text & "'")
If rs.EOF Then
    rs.AddNew
    rs!nik = txtnik.Text
    rs!nama = txtNama.Text
    rs!alamat = txtAlamat.Text
    rs.Update
Else
    rs.Edit
    rs!nik = txtnik.Text
    rs!nama = txtNama.Text
    rs!alamat = txtAlamat.Text
    rs.Update
End If
tampil
End Sub

Private Sub cmdHapus_Click()
Set rs = db.OpenRecordset("select * from Anggota where nik='" & txtnik & "'")
If rs.EOF = False Then rs.Delete
tampil
End Sub

Private Sub ms_Click()
txtnik.Text = ms.TextMatrix(ms.Row, 0)
txtNama.Text = ms.TextMatrix(ms.Row, 1)
txtAlamat.Text = ms.TextMatrix(ms.Row, 2)
End Sub

Artikel yang berkaitan