Cara Menghilangkan Password Database

Cara Menghilangkan Password Database, ya itulah topik yang akan saya ulas pada kesempatan kali ini karena ada salah seorang sahabat menanyakan masalah ini via email kurang lebih pertanyaan nya seperti ini "Mas kalau untuk me-remove atau menghapus password Microsoft Access dengan VB gimana yah".

Okelah kalau begitu kita langsung aja kepokok permasahalahan sebagai contoh buatlah sebuah File DatabaseMs. Access dengan nama test.mdb dan password 123321, yang nantinya akan kita hilang password tersebut dengan menggunakan coding Visual Basic

langkah - langkah persiapan

• Tambah References Microsoft DAO 3.6 Object Library pada project Sobat

Kemudian tempat coding dibawah ini pada Form atau pada Module Project

Public Sub CLearDatabasePassword()
On Error GoTo Salah
Dim DtBase As Database
Set DtBase = OpenDatabase(App.path & "\Database\test.mdb", True, False, ";pwd=123321")
DtBase.NewPassword "123321", ""
DtBase.Close
Exit Sub
Salah:
If Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & Err.Source, , "Error"
End
End If
End Sub

* Catatan file Ms. Access (test.mdd) harus satu folder dengan Aplikasi (Project)

Sekarang sobat tinggal memanggil fungsi diatas pada form sintax nya seperti ini Call CLearDatabasePasswordkalau tidak ada aral melintang maka password database tersebut akan kabur (hahahaha .. kekekeke). Mudah - mudahan tutorial singkat ini ada mamfaatnya bagi sobat-sobat VB developer, kalau ada kesempatan akan saya lanjutkan untuk pembahasan yang lain yang pasti masih seputar Tutorial Visual Basic ... salam.

Baca juga beberapa artikel terkait berikut ini :