vb6 如何打开带有密码的access2003的数据库?

Question

vb6 如何打开带有密码的access2003的数据库?

Answer 1

如果是使用OpenDatabase打开数据库，需要设置第4个参数，格式同的。Connect属性。 
    下面的例子打开一个带有密码的数据库，密码为outlook： 
    Dim MyDatabase As Database 
    Set MyDatabase = Workspaces(0).OpenDatabase("CSMain.mdb", True, False, ";pwd=outlook") 在建立ADO连接时，你可以指定用户名和密码，这种方式适合与SQL Server等数据库。对于Access数据库不能使用这样的方式。你可以在通常的连接字符串后面添加： 
    Jet OLEDB:Database Password=password 
    这里password是你的密码。如： 
     Conn1.Open "Provider=Microsoft.JET.OLEDB.3.51;" & _ 
     "Data Source=G:\ComponentSource\DBFiles\CSMain\CSMain.mdb;" & 
     "Jet OLEDB:Database Password=outlook" 
    对于ADO控件，你应该把这个字符串添加在ConnectionString属性后面。

Answer 2

用ADO对象来打开,提供者要用jet4.0的。Conn1.Open "Provider=Microsoft.JET.OLEDB.4.0;" & _ 
     "Data Source=" & app.path & "\XXXX.mdb;" & 
     "Jet OLEDB:Database Password=XXXXX" 

Answer 3

我的连接字符串
Dim strsql As String
dim CN As New ADODB.Connection        
dim RS As New ADODB.Recordset CN.Provider = "Microsoft.Jet.OLEDB.4.0"
strsql = "c:\db1.mdb;Jet OLEDB:Database Password='12345'"CN.Open strsql
提示错误"找不到可安装的isam"

Answer 4

我搞定了,谢谢二位高手!
代码如下
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
strsql = "Data Source=" & App.Path & "\data\vb.mdb;Jet OLEDB:Database Password=12345"
CN.Open strsql