Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-11-2017, 16:22   #1
bluefalcon
Altın Üye
 
bluefalcon kullanıcısının avatarı
 
Giriş: 22/12/2005
Şehir: İstanbul
Mesaj: 285
Excel Vers. ve Dili:
Excel 2003 TR
Red face 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
bluefalcon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 23:03   #2
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,057
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

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

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
    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

.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 10-11-2017, 00:13   #3
bluefalcon
Altın Üye
 
bluefalcon kullanıcısının avatarı
 
Giriş: 22/12/2005
Şehir: İstanbul
Mesaj: 285
Excel Vers. ve Dili:
Excel 2003 TR
Varsayılan

Haluk Bey çok teşekkür ederim. Tam istediğim gibi oldu. Emeğinize sağlık.
bluefalcon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 08:33   #4
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,057
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Rica ederim, kolay gelsin.

.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 19:40


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden