| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 822 人关注过本帖
标题:[求助]找不到ACCESS数据库时提示信息
只看楼主 加入收藏
zbs112
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2007-6-8
结帖率:100%
收藏
 问题点数:0 回复次数:4 
[求助]找不到ACCESS数据库时提示信息

Private Sub Form_Load()
Dim FileName As Variant
Set FileName = CreateObject("scripting.filesystemobject")
FileName = FileName.getfile(App.Path & "\VBA代码库.mdb")
If FileName = App.Path & "\VBA代码库.mdb" Then
DBFileName = "Provider=Microsoft.Jet.OLEDB.4.0"
DBFileName = DBFileName & ";Data Source=" & App.Path & "\VBA代码库.mdb" & ""
DBFileName = DBFileName & ";Jet OLEDB:Database Password=" & "zwy112"
Set CNN = New ADODB.Connection
CNN.Open DBFileName
Else
MsgBox "对不起,找不到ACCESS数据库!", vbInformation, "启动提示"
End If
End Sub

如上代码,如果数据库与[VBA代码库.mdb]名称不同或者没有[VBA代码库.mdb]时,弹出提示信息:对不起,找不到ACCESS数据库!

可是上面的代码并没有实现弹出的信息:
图片附件: 游客没有浏览图片的权限,请 登录注册


而是出现如下的提示信息:
图片附件: 游客没有浏览图片的权限,请 登录注册


要如何修改代码?谢谢!

[此贴子已经被作者于2007-6-19 0:07:38编辑过]

搜索更多相关主题的帖子: 数据库 CNN ACCESS Microsoft 
2007-06-19 00:03
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
把“VBA代码库.mdb”这个文件放在你工程目录下就行了。


VB QQ群:47715789
2007-06-19 08:52
zbs112
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2007-6-8
收藏
得分:0 
[求助]找不到ACCESS数据库时提示信息...
如下附件:

当数据库为:VBA代码库123.mdb时,只能错误的提示

MsgBox "对不起,找不到ACCESS数据库!", vbInformation, "启动提示"

上面一句没有运行并提示。

N8Rp5HWE.rar (31.71 KB) [求助]找不到ACCESS数据库时提示信息


[此贴子已经被作者于2007-6-19 9:03:55编辑过]

2007-06-19 08:58
smliy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-6-14
收藏
得分:0 

我用c#写了一个看看对你有用没,先判断一下文件是否存在,存在在打开数据库,进行操作。
private void Form1_Load(object sender, EventArgs e)
{
//string FileName = @"D:\My Documents\db1.mdb";
string FileName = Directory.GetCurrentDirectory().ToString()+"\\db1.mdb";

if (File.Exists(FileName))
{
MessageBox.Show("操作成功!", "启动提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
else
{
MessageBox.Show("对不起,找不到ACCESS数据库!","启动提示",MessageBoxButtons.OK,MessageBoxIcon.Warning);
Application.Exit();

}

}

2007-06-19 10:46
zbs112
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2007-6-8
收藏
得分:0 
If Dir(App.Path & "\资料收集库.mdb") = "" Then
MsgBox App.Path & "\资料收集库.mdb" & "不存在!", vbInformation, "资料收集器"
Unload Me: Exit Sub
Else
DBFileName = "Provider=Microsoft.Jet.OLEDB.4.0"
DBFileName = DBFileName & ";Data Source=" & App.Path & "\资料收集库.mdb" & ""
DBFileName = DBFileName & ";Jet OLEDB:Database Password=" & "zwy112"
Set CNN = New ADODB.Connection
CNN.Open DBFileName
End If

用以上的代码,就可以实现了,谢谢楼上2位!
2007-06-19 21:34
快速回复:[求助]找不到ACCESS数据库时提示信息
数据加载中...
 
   



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

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