Visual Basic 6 中DAO数据库编程

jingxuanhuang 2002-02-23 02:22:15
我在学习Visual Basic 6 中DAO数据库编程时遇到了这样的问题
我用Access做了个简单的数据库,并设置了密码。密码为“22”在VB中引用了 Microsoft DAO 3.60 Object Library后,在模块文件中声明:
Option Explicit
Public DB As Database
Public RE As Recordset
以下是窗体的代码:
Private Sub Form_Load()
Set DB = OpenDatabase("e:\db1.mdb", flase, flase, "")
DB.Connect = ":PWD= 22"
End Sub
运行的时候出现密码错误的信息提示我在www.applevb.com中看到用data控件打开数据库也是 用data1.connect=";pwd=密码"来通过验证,为什么换了用DAO 的就不行?请问用DAO方法怎么样才能通过验证?
后来我又在Database中第四个属性设置了数据库的密码
set opendatabase(app.path & "\school.mdb" , false, false, "密码=22")
数据库school.mdb的密码是“22”,现在没有提示密码错误,但是出现了“OBDC——连接到'school.mdb'失败”
这样的提示,到这里卡壳了,请您援手!
...全文
5 点赞 收藏 11
写回复
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
michaelpeng7799 2002-02-26
你应该用ADO,MS以后会越来越少的支持DAO了.
回复
jingxuanhuang 2002-02-25
工程--引用--Microsoft DAO 3.51 Object Library后
现在没有出现“OBDC——连接到'school.mdb'失败”的提示了
谢谢各位对本人问题的重视!希望在网络这个开放的环境每个人
都可以互相学习,共同解决问题。
再次感谢各位!
回复
dbcontrols 2002-02-25
工程--引用--Microsoft DAO 3.51 Object Library

Dim temdb As Database
Set temdb = DBEngine.Workspaces(0).OpenDatabase(strfilename, False, False, ";pwd=22")
回复
jingxuanhuang 2002-02-24
都按你们几位建议回去统统试过了还是不行?

引用了DAO 3.6 Object Library
声明了数据库变量
Access数据库没有设置密码的时候是可以正常连接,操作。
就是连不到有密码的Access数据库?!仍然是提示:
“OBDC——连接到'school.mdb'失败”
听人说要设置ODBC数据源?我不知道怎样做?
回复
40Star 2002-02-24
你的Access不会是2000吧!
DAO无法直接连接2000
可以连接97
通过ODBC不用连接字符串可以连接Access2000
回复
gpo2002 2002-02-24
dao引用了??
回复
iwzw 2002-02-24
看到你发的消息:你改成
Set DB = opendatabase(App.Path & "\school.mdb", False, False, ";pwd=22")试一试。
回复
jingxuanhuang 2002-02-23
按你所说的办法得出了“对象变量或with块变量未设置”。
怎么办?
回复
gpo2002 2002-02-23
=================================================================
Dim temdb As Database
Set temdb = DBEngine.Workspaces(0).OpenDatabase(strfilename, False, False, ";pwd=22")
==================================================================
给分。
回复
iwzw 2002-02-23
Private Sub Form_Load()
Set DB = OpenDatabase("e:\db1.mdb", flase, flase, ";pwd=22")
End Sub
应没有问题
回复
freetide 2002-02-23
1.升到sp5
2.data控件, 有问题, 可以打开access97, 直接打开access2000不行,
解决方法见msdn
回复
发动态
发帖子

1180

社区成员

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