Parola Korumalı Kapalı Access mdb Dosyasına Bağlanmak

[bluefalcon]

Merhaba arkadaşlar,

Üzerinde çalıştığım programda bir userform üzerinden girilen verileri mdb uzantılı access veritabanına aktarılmasını sağlıyorum. Buradan ve birkaç farklı internet sitesinden faydalanarak bağlantı stringlerini sağladım. Gayet güzel çalışıyor ancak gelecekte bilinçsizce kurcalanmaması adına mdb dosyasına parola koyarak bu parola korumalı veritabanına kayıt yapmak istiyorum. Parolasız bağlantıyı aşağıdaki şekilde sağlayabilirken bunu ne şekilde değiştirmeliyim ki belirleyeceğim parola ile mevcut veritabanına bağlanabileyim?

Set AdoCN = CreateObject("ADODB.Connection")
Dosya_Yolu = "C:\Shared\DEPO\2017\STOKLAR.mdb"
AdoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
AdoCN.ConnectionString = Dosya_Yolu
AdoCN.Open

 

[Haluk]

Benim deneme şansım yok ama siz şöyle bir şey deneyin;

Örneğin, MDB dosyasının şifresi 123 ise;

    Set AdoCN = CreateObject("ADODB.Connection")
    Dosya_Yolu = "C:\Shared\DEPO\2017\STOKLAR.mdb"
    AdoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
   [COLOR=Blue] [B]AdoCN.Properties("Jet OLEDB:Database Password") = "[COLOR=Red]123[/COLOR]"[/B][/COLOR]
    AdoCN.ConnectionString = Dosya_Yolu
    AdoCN.Open

.

 

[bluefalcon]

Haluk Bey çok teşekkür ederim. Tam istediğim gibi oldu. Emeğinize sağlık.

 

[Haluk]

Rica ederim, kolay gelsin.

.