Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Parola Korumalı Kapalı Access mdb Dosyasına Bağlanmak (http://www.excel.web.tr/showthread.php?t=168016)

bluefalcon 09-11-2017 16:22

Parola Korumalı Kapalı Access mdb Dosyasına Bağlanmak
 
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 09-11-2017 23:03

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

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

Kod:

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


.

bluefalcon 10-11-2017 00:13

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

Haluk 10-11-2017 08:33

Rica ederim, kolay gelsin.

.


Saat 10:13

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.