Mengubah Password Database Ms.Access Dengan DAO VB6

Berikut ini adalah cara mengubah password database Microsoft Access di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 project baru dengan 1 form, 1 commandbutton
2. Tambahkan reference Microsoft DAO 3.5 Object Library 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

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module