Şifreli veritabanına baglanma

[ßyMesMes]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Şifreli Veritabanına Bağlanma

Option Explicit 
Dim cn As New ADODB.Connection 
Private Sub Form_Load( ) 
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider" 
cn.ConnectionString = "Data Source=" & App.path & "\Password.mdb" 
cn.Properties("Jet OLEDBatabase Password" ) = "123456" 
cn.Open 
End Sub

 

[darki2696]

Tşkler...

 

[cskn192]

Teşekkürler.

 

[yido97]

saol, çok saol

 

[hacker_furkan]

Teşekkürler