如何访问加了密码的access2000数据库

[fanrj]

如何访问加了密码的access2000数据库,
我在adodc控件的属性页中输入密码不行,请高手指点!(急急急急急.....)

[footballboy]

sunnycai(飞鸟)的方法不错

[fanrj]

tt008(TT)的方法不错 ,能够测试连接成功可运行表单时,仍旧提示"无法启动应用程序工作组信息文件丢失,或是已被其它用户以独占方式打开",请指教以分谢恩情.

[CoolDesigner]

最好用Screen.Control.Name ！

[daryl715]

Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String

Set cnn1 = New ADODB.Connection


cnnstr = " provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\database\user.mdb;Jet OLEDB:Database Password=buct"
cnn1.Open cnnstr

Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from use", cnn1



rst.Close
cnn1.Close

其中密码为buct.换成你的密码就可以了

[TT008]

用ADO好了
ADO控件

[sunnycai]

用ADO控件的可在属性页中点通用页-生成连接字符串在弹出的数据连接属性中按你平常的方法选，最后加上在“所有”属性页中找出password一项，双击，输入你的密码,OK,大功告成。

[TT008]

用ADO则用上面的
用ADO控件则在GENERAL中的USE CONNECTION STRING把Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False 改为:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Jet OLEDB:Database Password=所设数据库的密码;Persist Security Info=False

[yclyz]

上页的都说了，很详细的，我只能重复他们了。

[happygreat]

关注

[TT008]

将adodc控件的属性页中的密码清空试一下，如不行则重新添加一个ADO控件建立一个新的连接.
上面的代码我已经测试过没问题

[螺丝刀2000]

uP

[blueer]

Up

[wishare]

厉害。