1180
社区成员
- 主页
Visual Basic 6 中DAO数据库编程
我在学习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'失败”
这样的提示，到这里卡壳了，请您援手！
我用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'失败”
这样的提示，到这里卡壳了，请您援手！
...全文
请发表友善的回复…
发表回复
michaelpeng7799 2002-02-26
你应该用ADO，MS以后会越来越少的支持DAO了．
jingxuanhuang 2002-02-25
工程--引用--Microsoft DAO 3.51 Object Library后
现在没有出现“OBDC——连接到'school.mdb'失败”的提示了
谢谢各位对本人问题的重视！希望在网络这个开放的环境每个人
都可以互相学习，共同解决问题。
再次感谢各位！
现在没有出现“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")
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数据源？我不知道怎样做？
引用了DAO 3.6 Object Library
声明了数据库变量
Access数据库没有设置密码的时候是可以正常连接，操作。
就是连不到有密码的Access数据库？！仍然是提示：
“OBDC——连接到'school.mdb'失败”
听人说要设置ODBC数据源？我不知道怎样做？
40Star 2002-02-24
你的Access不会是2000吧！
DAO无法直接连接2000
可以连接97
通过ODBC不用连接字符串可以连接Access2000
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")试一试。
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")
==================================================================
给分。
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
应没有问题
Set DB = OpenDatabase("e:\db1.mdb", flase, flase, ";pwd=22")
End Sub
应没有问题
freetide 2002-02-23
1.升到sp5
2.data控件， 有问题， 可以打开access97, 直接打开access2000不行，
解决方法见msdn
2.data控件， 有问题， 可以打开access97, 直接打开access2000不行，
解决方法见msdn