Office中国论坛/Access中国论坛
标题: 关于打开带密码的数据库问题 [打印本页]
作者: qdjqx 时间: 2006-3-24 06:04
标题: 关于打开带密码的数据库问题
请问,如何用VB打开一个设有数据库密码和工作组用户名、用户密码的MDB文件,请指教,谢谢!
作者: fan0217 时间: 2006-3-24 06:14
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 时间: 2006-3-24 06:18
主要是设置连接字符串: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 OLEDB
atabase 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 OLEDB
on'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 时间: 2006-3-28 00:31
还是关于打开带密码的数据库问题,请问版主,根据你的代码,输入密码后,出现错误提示,请指教。
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
assword="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 时间: 2006-3-28 04:12
用:Jet OLEDB
atabase Password="";
作者: qdjqx 时间: 2006-3-28 05:22
请问,能不能把词句完整的写一篇,非常感谢!
作者: fan0217 时间: 2006-3-28 05:26
ConnectionString 属性
指示用于建立到数据源的连接的信息。
设置和返回值
设置或返回 String 值。
说明
使用 ConnectionString 属性通过传递详细的连接字符串来指定数据源,这些字符串中包含一系列由分号分隔的 argument = value 语句。
ADO 支持 ConnectionString 属性的五个参数,任何其他参数将直接传递到[url=mk
MSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mddefglossary.htm#mddefdataprovider]提供者[/url],而 ADO 不作任何处理。ADO 支持的参数如下。
参数
说明
Provider=
指定用于连接的提供者的名称。
File Name=
指定提供者特有的文件(例如,[url=mk
MSITStore:E:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mddefglossary.htm#mddefpersist]持久[/url]保留的数据源对象)的名称,这些文件中包含预置的连接信息。
Remote Provider=
指定当打开[url=mk
MSITStore: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 时间: 2006-3-28 05:29
strCnn = "
rovider=Microsoft.Jet.OLEDB.4.0
assword="000111";User ID=Admin;Data Source=E:\My Documents\123.mdb;"
要使用单引号
作者: fan0217 时间: 2006-3-28 05:34
下面来自ADO帮助:
Cnxn1.ConnectionString = "
rovider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
Cnxn2.ConnectionString = "Data Source='Pubs';" & _
"User ID='MyUserId'
assword='MyPassword';"
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) |
Powered by Discuz! X3.3 |