关于打开带密码的数据库问题

qdjqx

　　请问，如何用VB打开一个设有数据库密码和工作组用户名、用户密码的MDB文件，请指教，谢谢！

fan0217

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim strCnn As String

' 打开连接。
    strCnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\My Documents\123.mdb;"
    cnn.Open strCnn
   
     ' 打开表。
    strSQL = "SELECT * FROM ABC "
    rst.Open strSQL, cnn, adOpenKeyset, adLockPessimistic

[此贴子已经被作者于2006-3-27 21:39:34编辑过]

fan0217

主要是设置连接字符串:ConnectionString

Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=E:\My Documents\123.mdb;Mode=Share Deny Read|Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False


蓝色是必须的

可以使用ADODC控件的属性窗口,通过向导生产连接字符串.上面的连接字符串是完整的内容,如果不需要设置可以不写入(除蓝色的以外),还需要根据数据库类型使用 Provider 属性设置连接的提供者名称.

[此贴子已经被作者于2006-3-23 22:32:22编辑过]

qdjqx

还是关于打开带密码的数据库问题，请问版主，根据你的代码，输入密码后，出现错误提示，请指教。

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim strCnn As String



' 打开连接。
    strCnn = "rovider=Microsoft.Jet.OLEDB.4.0assword="000111";User ID=Admin;Data Source=E:\My Documents\123.mdb;"
    cnn.Open strCnn
   
     ' 打开表。
    strSQL = "SELECT * FROM ABC "
    rst.Open strSQL, cnn, adOpenKeyset, adLockPessimistic

fan0217

用:Jet OLEDBatabase Password="";

qdjqx

请问，能不能把词句完整的写一篇，非常感谢！

fan0217

ConnectionString 属性


指示用于建立到数据源的连接的信息。


设置和返回值


设置或返回 String 值。


说明


使用 ConnectionString 属性通过传递详细的连接字符串来指定数据源，这些字符串中包含一系列由分号分隔的 argument = value 语句。


ADO 支持 ConnectionString 属性的五个参数，任何其他参数将直接传递到[url=mkMSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mddefglossary.htm#mddefdataprovider]提供者[/url]，而 ADO 不作任何处理。ADO 支持的参数如下。














参数


说明





Provider=


指定用于连接的提供者的名称。





File Name=


指定提供者特有的文件（例如，[url=mkMSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mddefglossary.htm#mddefpersist]持久[/url]保留的数据源对象）的名称，这些文件中包含预置的连接信息。





Remote Provider=


指定当打开[url=mkMSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mddefglossary.htm#mddefclienttier]客户端[/url]连接时使用的提供者的名称。（仅限于远程数据服务。）





Remote Server=


指定当打开客户端连接时使用的服务器的路径名称。（仅限于远程数据服务。）





URL=


指定连接字符串为标识资源（如文件或目录）的绝对 URL。


设置 ConnectionString 属性并打开 Connection 对象后，提供者可以更改属性的内容，例如通过将 ADO 定义的参数名映射到其等价的提供者来更改。


ConnectionString 属性将自动继承用于 Open 方法的 ConnectionString 参数的值，以便在 Open 方法调用期间覆盖当前的 ConnectionString 属性。


由于 File Name 参数导致 ADO 加载相关联的提供者，因此无法传递 Provider 和 File Name 参数。


ConnectionString 属性在连接关闭时为读/写，在连接打开时为只读。


ConnectionString 属性中的参数副本被忽略。使用任意参数的最后一个实例。

fan0217

strCnn = "rovider=Microsoft.Jet.OLEDB.4.0assword="000111";User ID=Admin;Data Source=E:\My Documents\123.mdb;"
要使用单引号

fan0217

下面来自ADO帮助:

Cnxn1.ConnectionString = "rovider='sqloledb';Data Source='MySqlServer';" & _
        "Initial Catalog='Pubs';Integrated Security='SSPI';"


Cnxn2.ConnectionString = "Data Source='Pubs';" & _
        "User ID='MyUserId'assword='MyPassword';"