ağdaki şifreli bilgisayara bağlanmak

Katılım
31 Mart 2006
Mesajlar
6
Mrb arkadaşlar ,
Ben bir proje yaptım excel ile ve access veritabanı ile bağlantılı gayet güzel işliyor. Ayrıca bu access dosyasını ağda server a koyarak çalıştırabiliyorum. Ağdaki server adresini yazarak ki aşağıdaki kodlarımda da göreceksiniz. Fakat ben serverdaki bu adresi görmeye şifrelemek zorundayım.Yani önüne gelen ağ bağlantılarına girip , server ın ikonuna tıklayarak server a ulaşamaz .Bundan dolayı bir kullanıcı hesabı oluşturdum server da access veritabanımın bulunduğu klasöre ulaşılabilmesi için .

Kod:
Dim conn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
        
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open ("\\Gurun\sys6\Gurunlu_veri.mdb")
   End With
    
        Set rst = New ADODB.Recordset
    
   ' ORDER BY Birimler DESC
   
     strSqL = "SELECT Birimler FROM kayitlar_Birim "
     rst.Open strSqL, conn, 1, 3
Yukarıdaki kodlar gayet güzel çalışıyor ve server daki access veritabanıma bağlanabiliyorum problemsiz olarak .Bu kodlara birşey daha ilave etmek gerekiyor server ın şifresini girip ondan sonra veritabanına ulaşılması için. Yani yukarıdaki kodlar veritabanına bağlanırken servera user ve pass i göndermeli ..

ne gibi bi ekleme yapmalıyım ?

Teşekkürler...
 
Üst