| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 584 人关注过本帖
标题:VB ADODB 连接access的问题
只看楼主 加入收藏
a85759351
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-10-13
结帖率:0
收藏
已结贴  问题点数:20 回复次数:4 
VB ADODB 连接access的问题
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
If Dir(App.Path + "\123.mdb") <> "" Then
cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "data source=" + App.Path + "\123.mdb;"
cnn.Open
If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If
cnn.Close
If cnn.State = adStateClosed Then
MsgBox "关闭数据库"
End If
Else
MsgBox ("找不到人事数据库")
End If
End Sub

图片附件: 游客没有浏览图片的权限,请 登录注册


为什么显示找不到人事数据库。
2015-10-14 20:04
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:5 
1 数据库存在
2 工程打开方式是从文件中选择工程打开的?会造成 app.path  不是工程目录

另外,你代码里,打开了数据库后就立即关闭,你打算要做什么?一般在程序退出时关闭数据连接。

授人于鱼,不如授人于渔
早已停用QQ了
2015-10-14 22:17
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:5 
代码每缩进,好难读!应该就是数据库不在app.path目录里。

能编个毛线衣吗?
2015-10-15 08:29
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:5 
你这个还没有到操作数据库呢
问题就在If Dir(App.Path + "\123.mdb") <> "" Then这句,加中断点看看。

程序代码:
If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If

cnn.Close '另外,你这个这个地方已经关闭连接了,后面的判断必然成立的啊, 不知道意义何在? 也许你只是练习吧

If cnn.State = adStateClosed Then
MsgBox "关闭数据库"
End If


[ 本帖最后由 xiangyue0510 于 2015-10-15 12:51 编辑 ]
2015-10-15 12:47
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:5 
代码是在编辑环境运行的?

无知
2015-10-15 21:59
快速回复:VB ADODB 连接access的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.079138 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved