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

fanrj 2002-05-09 11:25:35
如何访问加了密码的access2000数据库,
我在adodc控件的属性页中输入密码不行,请高手指点!(急急急急急.....)
...全文
26 点赞 收藏 13
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wishare 2002-05-17
厉害。
回复
blueer 2002-05-17
Up
回复
螺丝刀2000 2002-05-17
uP
回复
TT008 2002-05-17
将adodc控件的属性页中的密码清空试一下,如不行则重新添加一个ADO控件建立一个新的连接.
上面的代码我已经测试过没问题
回复
happygreat 2002-05-09
关注
回复
yclyz 2002-05-09
上页的都说了,很详细的,我只能重复他们了。
回复
TT008 2002-05-09
用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
回复
sunnycai 2002-05-09
用ADO控件的可在属性页中点通用页-生成连接字符串在弹出的数据连接属性中按你平常的方法选,最后加上在“所有”属性页中找出password一项,双击,输入你的密码,OK,大功告成。
回复
TT008 2002-05-09
用ADO好了
ADO控件
回复
daryl715 2002-05-09
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.换成你的密码就可以了
回复
CoolDesigner 2002-05-09
最好用Screen.Control.Name !
回复
fanrj 2002-05-09
tt008(TT)的方法不错 ,能够测试连接成功可运行表单时,仍旧提示"无法启动应用程序工作组信息文件丢失,或是已被其它用户以独占方式打开",请指教以分谢恩情.
回复
footballboy 2002-05-09
sunnycai(飞鸟)的方法不错
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告