New! - Access PEMOGRAMAN from your Phone, Just type : http://pemogramanvb.blogspot.com/?m=1, jangan lupa untuk memberikan kami klik pada iklan untuk perkembangan blog ini. Salam vb... :)

Sabtu, 06 November 2010

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



2 komentar:

  1. blognya bgus sob... maaf tlat konfm'y..konfrmasi ke blog q yh klo udah d psang linknya..q sgera pasang blik link sobat. makasih sob

    BalasHapus
  2. mantab gan..
    sangat membantu, ijin download yah buat belajar, buat tugas nih

    BalasHapus

Silahkan tulis komentar jika ada yang ingin ditanyakan dari artikel ini, komentar kalian sangat berarti bagi saya.

Format untuk komentar:
1) Pilih profil sebagai Name/URL
2) Isikan nama anda
3) Isikan URL (Blog/Website/Facebook/Twitter/Email/Kosongkan)
4) Isikan Komentar
5) Postkan Komentar anda.

Maaf untuk komentar ANONIM tidak akan saya RESPON.