Şifreli veritabanına baglanma

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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