trik mengubah database Microsoft Access melalui coding dengan bantuan library Microsoft DAO.

Code::

'Deskripsi: Mengubah password suatu database. 'Pembuat : suhardin hasibuan 'Persiapan: 1. Buat 1 project baru dengan 1 form, 1 commandbutton ' 2. Tambahkan reference Microsoft DAO 3.5 Object Library ' atau yg lebih tinggi lagi, dari menu Project->References ' 3. Copy-kan coding berikut ke dalam editor form ybt. '----------------------------------------------------------------------- 'Jika Anda mendapat pesan "Unrecognized Database format", kemungkinan 'Anda menggunakan Access 2000 dan Anda tidak mempunyai Microsoft DAO 3.6 Object Library 'pilih file C:\Program Files\Common Files\Microsoft Shared\Dao\dao360.dll 'Jika di komputer Anda terinstall Access 2000, Anda mempunyai file ini. '--- Coding berikut di Form: Private Sub ChangeAccessPassword(OldPass As String, NewPass As String) Dim Db As Database 'Buka dataase, menggunakan password yang lama. 'Ganti "C:\MyDir\Mydb1.mdb" dengan nama file database Anda Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass) 'Ganti menjadi password baru Db.NewPassword OldPass, NewPass 'Tutup database Db.Close End Sub Private Sub Command1_Click() 'Ganti "oldPassword" dengan password database, dan '"newPassword" dengan password baru yang Anda inginkan. Call ChangeAccessPassword("oldPassword", "newPassword") End Sub