标题: If you are opening a password-protected database [打印本页] 作者: gnoy 时间: 2002-8-14 05:16 标题: If you are opening a password-protected database If you are opening a password-protected database, you can use any one of the following three syntaxes:
Dim MyConn As New ADODB.Connection
MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Properties("Data Source") = "C:\...\JetPassword.MDB"
MyConn.Properties("Jet OLEDBatabase Password") = "MyPwd"
MyConn.Open
-or-
Dim MyConn As New ADODB.Connection
Dim strConn As String
strConn = "Data Source=C:\...\JetPassword.MDB;" & _
"Jet OLEDBatabase Password=MyPwd"
MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Open strConn
-or-
Dim MyConn As New ADODB.Connection
Dim strConn As String
If you are opening a database that uses Jet security, you can use any one of the following three syntaxes:
Dim MyConn As New ADODB.Connection
MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Properties("Data Source") = "C:\...\JetSecurity.MDB"
MyConn.Properties("Jet OLEDB:System database") = "C:\...\System.MDW"
MyConn.Open UserID:="Admin", Password:="MyPwd"
-or-
Dim MyConn As New ADODB.Connection
Dim strConn As String
strConn = "Data Source=C:\...\JetSecurity.MDB;" & _
"Jet OLEDB:System database=C:\...\System.MDW"
MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Open ConnectionString:=strConn, _
UserID:="Admin", Password:="MyPwd"
-or-
Dim MyConn As New ADODB.Connection
Dim strConn As String
strConn = "rovider=Microsoft.Jet.OLEDB.4.0;"
"Data Source=C:\...\JetSecurity.MDB;" & _
"Jet OLEDB:System database=C:\...\System.MDW"
MyConn.Open ConnectionString:=strConn, _
UserID:="Admin", Password:="MyPwd"
NOTE: Jet 3.51 OLEDB provider is designed to open Access 97 databases only. Jet 4.0 OLEDB provider is designed to open Access 2000 or Access 97 databases.
atabase Password") = "MyPwd"
rovider=Microsoft.Jet.OLEDB.4.0;" & _