Şifreli Veritabanına Erişim

[Zeki Gürsoy]

Aşağıdaki kodla veritabanını açıyorum. İçeriğini korumak için şifre verdim. Şifre için aşağıdaki kod nasıl düzenlenmelidir?

Set dbs = OpenDatabase(ThisWorkbook.Path & "\veri.mdb")

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Set dbs = OpenDatabase(ThisWorkbook.Path & "\veri.mdb", False, False, ";pwd=PASSWORD")

 

[Zeki Gürsoy]

Teşekkürler Levent bey.

 

[ffff7]

peki veri tabanımız excel ise...

Aşağıdaki şekilde açılan şifreli bir excel veri dosyasında şifreyi eklemek istersek ne yapmak gerekir?
"Excel 8.0; pwd=1234" denedim. Şifre çözülemedi diye hata veriyor.

Set dbs = OpenDatabase(ThisWorkbook.Path & "\veri.xls", False, False, "Excel 8.0;")

???

 

[Levent Menteşoğlu]

Şifreli excel dosyasından ADO ile veri alamıyorsunuz diye biliyorum.