Parola korumalı veri tabanını butonla açma

Katılım
25 Aralık 2005
Mesajlar
115
Parola korumalı vt1 veri tabanım var şifresi 1234 Başka bir veri tabanımda vt2 olsun burda formum var formum üzerinde buton var bu butona tıklandığında vt1 veri tabanım şifresi otomatik girilerek açılsın istiyorum. Mümkünmü acaba
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
Tablo bağlıysa, bir kez şifre girildiğinde zaten artık şifre sormuyor ki? Neden buna gerek var anlayamadım. Farklı bir amaç mı var?
 
Katılım
25 Aralık 2005
Mesajlar
115
Tablo ile alakası yok sorumun veya sizin anlattığınızı ben anlayamadım Amacım Başka bir veri tabanından şifreli bir veritabanını açtırmak buton yardımı ile çözümü varmı acaba
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
Pardon ama ya ben anlatamadım ya da siz anlamadınız. İki ihtimal dıiında ihtimal yok zaten :))
Şimdi şöyle anlatayım. Vt1 vt2 diye bahsettiklerinizin mdb uzantılı olduğunu varsayıyorum. Siz access kullanarak bir program hazırladınız ve bu programa erişimi veri tabanı şifrelemesi ile engellediniz. Yani bunu açmak işin veri tabanı şifresi giriliyor. Ama siz başka bir access dosyası üzerinden bu dosyaya erişmek ve onu çalıştırmak istiyorsunuz. Ama şifreyi 2.nci form açılınca otomatık olarak yazsın. Bu mu?

Eğer dogru anladıysam ve cevabınız evetse aynen verdiğim yanıt geçerlidir sayın blacksir... Öncelikle şunu söyleyeyim ki sizin düşündüğünüz gibi, access işinden bir başka access dosyası çalıştırılamıyor. (En azından ben öyle biliyorum.)

Birinci veri tabanınız sadece tabloları içersin. 2. nci mdb dosyasında ise form-sorgu-modul-makro ve raporlar olsun. Tablolardan tablo bağla dediğinizde size bu tablonun şifresi sorulur. Bir kez yazarsınız artık sormaz. Dışardan 1.nci dosyayı açmak isterseniz şifre ister ama 2.nci mdb üzerinden kullandığınızda direkt bağlanır.

Bence benim anlattığım dogru. Siz iyice okuyup bir uygulayın. Olmadı anlamadım diyorsanız eklediğim örneği inceleyin...Gönderdiğim rar içindeki vt1 ve vt2 adındaki iki dosyayı direk olarak c sürücüsüne çıkarın. Vt1'i çalıştırın. şifre ister. 1234 yazın ve 1 tane kayıt olan tabloyu inceleyin. Daha sonra 2.ci dosyayı yani vt2 yi çalıştırın. Hiçbirşey sormadan bağlı olduğu tabloya ulaşacaktır. Az önce şifre soran tablo direk erişime açıktır. Bağlantıları için çok farklı yöntemler kullanılabilir ama en basit şekliyle anlatım budur.
 
Son düzenleme:
Katılım
25 Aralık 2005
Mesajlar
115
Mehmet bey örnekte verdiğiniz gibi değil. Verdiğiniz örneğe göre konuşuyorum. Vt2 de form olsun üzerinde buton olsun bu butonun kodunda vt1 şifresini biz verelim koda tıkladığınızda vt1 veri tabanın parolası otomatik girilsin ve açılsın istiyorum saygılar
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın blacksir,

Aşağıdaki kodları kullanabilirsiniz:

Kod:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = "Data Source=c:\vt1.mdb"
cn.Properties("Jet OLEDB:Database Password") = "1234"
cn.Open


rs.Open "Tablo1", cn, adOpenDynamic, adLockReadOnly
MsgBox rs(1)

rs.Close
cn.Close

Set cn = Nothing
Kullandığım bilgiler sn mehmetdemiral ın örneğinden. Bağlı tabloda şifre geçerli değil. yani şifre girmeden tablo bilgilerine ulaşılabiliyor.

İyi çalışmalar:)
 
Katılım
25 Aralık 2005
Mesajlar
115
modalı bey yukardaki kodunuz tablo1 deki ali okuttu benim amacım vt1 tablo okutmak değil vt1 veri tabanını açmak nasıl normal yoldan vt1 girmek istediğimizde parola girip açıyoruz tamamen bu Bilmiyorum sınırları çokmu zorluyorum saygılarımla
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın blacksir,

Şöyle bir kod olması gerekiyor:

Kod:
Private Sub Komut0_Click()
    On Error GoTo ErrHandler
    Dim strDBPath As String
    Dim AccessApp2 As Access.Application

    ' Create new instance of Microsoft Access.
    strDBPath = "C:\vt1.mdb"

    Set AccessApp2 = CreateObject("Access.Application")
    AccessApp2.OpenCurrentDatabase strDBPath, , "1234"

    AccessApp2.DoCmd.OpenTable "Tablo1"
    
NormalExit:
 

    Exit Sub
ErrHandler:
    MsgBox "Error # " & Err & " - " & Error
    Resume Next
End Sub
İyi çalışmalar
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
Benim mesajımda dediğim gibi, sanırım siz bir form içinden başka bir access dosyası açmak istiyorsunuz.
 
Katılım
25 Aralık 2005
Mesajlar
115
sayın modalı parola korumalıda sonuç aldım bu dosya kullanıcı düzeyinde korumalı olsayda yani vt1 dosyası kullanıcı adı ve parola isteseydi nasıl olurdu bu kod saygılarımla
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın blacksir,

Uygulamanın şifreleme yapısını bilmek gerekir. Ancak giriş formunu gizli olarak açıp, ilgili netin kutularını doldurup, düğümenin klik olayını yapabilirsiniz. (Şimdilik öyle düşünüyorum)

Ama yine de bence accessin şifreleme yapısı elle yapılanlardan daha sağlam.

İyi çalışmalar
 
Katılım
25 Aralık 2005
Mesajlar
115
Gene access şifreleme sistemini kullanıyorum yanlız daha önce vermiş olduğunuz kod sadece parola var iken accesin kulanıcı düzeyinde korumada kullanıcı adı ve şifre var. aynı kod bu sefer nasıl uygulanabilir yada böyle bir şansımız varmı saygılar
 
Üst