火烧眉毛啦,VB连接加密的Access数据库???

Gxzhs 2004-11-01 01:33:09
如何在VB6中用DAO连接加密的Access数据库?

例如:在E盘有1997.mdb数据库,密码是:12345,库中有部门表:Depart

在VB工程中,引用Dao 3.6 ,拖上Data控件,在Form_Load写入如下代码:

Data1.Connect = "Access 2000;PWD=12345"
Data1.DatabaseName = "E:\1997.mdb"
Data1.RecordSource = "Depart"

Data1.Refresh

运行到Data1.Refresh时出错:实时错误'3170' 找不到可插入的 ISAM

请问Data控件的Connect怎么写?怎么解决些问题?
...全文
237 点赞 收藏 20
写回复
20 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gorilla8 2004-11-02
偶也遇到过类似的
偶在属性中
connect填入“;Pwd=密码”
还好,能用
回复
还想懒够 2004-11-02
版本太低了,升到SP5以上。
回复
sanduVB 2004-11-01
为什么装sp6就行了,你知道原因吗?
还是从我的答案中走的。
唉,悲哉!
看来我用了多年的vb5.0真的要淘汰了。
回复
aijie099 2004-11-01
哦,三兄,别生气。那位仁兄,时常 搭错车。说错话也在所难免。
回复
sanduVB 2004-11-01
只是把sp5中需要的语句省了罢了。
回复
sanduVB 2004-11-01
和装sp6没有关系
回复
sanduVB 2004-11-01
“to :三渡VB
用Workspace一直都是能打开的;”

什么意思?
唉,好心帮忙,
早知多此一举
请楼主帮我的贴子删了,
谢谢!
回复
Free_Windy 2004-11-01
版本太低啦
回复
Gxzhs 2004-11-01
to :三渡VB
用Workspace一直都是能打开的;

To:All兄弟
经过一下午的反复测试,原来我的VB是SP5,
然后去微软网站下载了SP6后,安装完成,再运行

Data1.Connect = "Access 2000;PWD=12345"
Data1.DatabaseName = "E:\1997.mdb"
Data1.RecordSource = "Depart"

Data1.Refresh

该死的”实时错误'3170' 找不到可插入的 ISAM“就不会出现啦
希望有遇到此类问题的朋友,赶快去装个VB SP6.
回复
sanduVB 2004-11-01

以下为保密技术资料,请勿外传
标准答案:
Dim WORK As Workspace '工作区 工作区在库之上
Dim dbK0 As Database '库
Dim ConnString As String '连接Connect串
ConnString = ";Database=D:\教师助手\连接\DB\XBT_JS66.mdb;PWD=密码"
Set dbK0 = OpenDatabase("", 1, 0, ConnString) '打开设有密码的数据库



回复
guoxu_009 2004-11-01
Provider=Microsoft.Jet.OLEDB.4.0;Password=你的密码;User ID=你的用户名;Data Source=c:\abc.mdb;Pecurity Info=True
回复
20min 2004-11-01
我也想知道,關注
回复
huangjing81 2004-11-01
关于DAO的请座:

http://vbworld.sxnw.gov.cn/vbbooks/bookhtm/Dao01.htm
回复
lexrenzjun 2004-11-01
如果记不住用adodc控件测试连接,然后用这个连接字符就能连接
回复
huangjing81 2004-11-01
发几个链接,希望对楼主有用:

http://www.pcdog.com/info/4729.htm
http://tech.sina.com.cn/c/2001-11-08/7016.html

网上这种文章很多的。
回复
Gxzhs 2004-11-01
上面几位朋友的回答都是用ADO来实现,我的问题是在DAO中怎么实现,
因为手头有个老版本的软件是用DAO来访问数据库的...
回复
fhvsbgmy 2004-11-01
1、con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.Properties("Jet OLEDB:Database Password") = "111"
con.Open "C:\ccc.mdb;Persist" 这个方法用于打开对ACCESS文件加密的方法。
2、"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databaseName;User ID=userName;Password=userPassword;" 这个方法是用于打开设置了用户和组的密码
你用的是哪一种,你试一下总有一个可以

___________________________________________________________作者 hwcqboy
回复
hansong_ll 2004-11-01
Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=12345;Data Source=E:\1997.mdb
回复
Gxzhs 2004-11-01
to:三天
DAO中没有Provider,它只有Connect属性
回复
wuxuetie 2004-11-01
Provider=Microsoft.Jet.OLEDB.4.0;Password=你的密码;User ID=你的用户名;Data Source=c:\abc.mdb;Pecurity Info=True
回复
发动态
发帖子

1180

社区成员

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