如何在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怎么写?怎么解决些问题?
Data1.DatabaseName = "E:\1997.mdb"
Data1.RecordSource = "Depart"
Data1.Refresh运行到Data1.Refresh时出错:实时错误'3170' 找不到可插入的 ISAM请问Data控件的Connect怎么写?怎么解决些问题?
解决方案 »
- 源代码
- 将十六进制数据(字符)写到程序中
- vsflexgrid出错!在网格里边操作的时候,出错,提示:"0x08959b9c"指令引用的"0x08cf7c00"内存,该内存不能为“read”。以前是偶尔现在是经常
- 如何设置科学记数法在多少位的时候开始使用??
- 如果把选项按钮的值写入到数据库,两种值:是与否?在数据库中如何保存?请详细告之,谢谢!
- 高分求教打印问题
- 如何用shell打开本光驱上的 txt文件?
- 那里有linux的安装程序下载啊!我找了很多,但不知装哪个,我是刚刚接触电脑的,望各位大哥给出下载的直接地址,我不会选择,您告诉我 ,我直接下载!!
- 200分的问题.(先放50分)
- 关于圆外点做切线的问题
- 增加控件ADD语句的几个问题?
- 关于求“数据的和”和“数据的个数的和”
DAO中没有Provider,它只有Connect属性
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
因为手头有个老版本的软件是用DAO来访问数据库的...
http://tech.sina.com.cn/c/2001-11-08/7016.html网上这种文章很多的。
以下为保密技术资料,请勿外传
标准答案:
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) '打开设有密码的数据库
用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.
用Workspace一直都是能打开的;”什么意思?
唉,好心帮忙,
早知多此一举
请楼主帮我的贴子删了,
谢谢!
还是从我的答案中走的。
唉,悲哉!
看来我用了多年的vb5.0真的要淘汰了。
偶在属性中
connect填入“;Pwd=密码”
还好,能用