Kod:
Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;Jet OLEDB:Database Password=YourPassword;"
dbEngine.OpenDatabase yöntemini kullanırken de şifreli veritabanınızın tam yolu ve gerekirse şifresi ile
Kod:
Dim db As Database = dbEngine.OpenDatabase("C:\Path\To\Your\Database.accdb", False, False, ";PWD=şifreniz")
Bağlı tabloların bağlantı bilgileri tablo tanımlarının connect özelliğinde bulunur ve bağlı tablonun tam yolunu ve şifresini içerir. Bağlı tablonun şifresini kontrol etmek içinde şöyle bir kod kullanabilirsiniz:
Kod:
For Each tabledef As TableDef In db.TableDefs
If tabledef.Name = tablename Then
Dim connectInfo As String = tabledef.Connect
If connectInfo.Contains("PWD=") Then ' Şifreyi kontrol et
Dim password As String = connectInfo.Split("PWD=")(1) ' şifre varsa password değişkeni artık şifreyi içerir
End If
Exit For
End If
Next