- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Şifreli Veritabanına Bağlanma
Kod:
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
Kod:
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