以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]连不上数据库，则提示用户应当怎么操作，然后退出系统  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67764)
--  作者：chnfo
--  发布时间：2015/5/1 10:39:00
--  [求助]连不上数据库，则提示用户应当怎么操作，然后退出系统
共享access数据库，在项目的安装目录下设了一个ip.txt来存储共享目录。
目的：在这个共享目录文件内容连接不上时，提示用户有错误，并退出系统。

在BeforeConnectOuterDataSource事件中这样写：

Dim aa As String = e.ConnectionString.Split(";")(1).split("=")(1)  ‘获得原来开发时设置的数据库文件’

If e.Name = "共享数据源" Then
    If Filesys.FileExists(e.ProjectPath & "IP.txt") Then
        Dim ip As String = FileSys.ReadAllText(e.ProjectPath & "IP.txt")   ‘获得用户设置的共享数据库文件’
        e.ConnectionString = e.ConnectionString.Replace(aa,ip)
        If Connections.TryConnect(e.ConnectionString) = False Then
            MessageBox.Show("数据库文件不存在,请到项目安装目录下的IP.txt文件中更新数据库文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        End If
    End If
End If

现在的问题是：运行的时候，如果找不到数据库文件，除了弹出这个窗口，还会弹出一个错误窗口“创建外部连接“共享数据源”失败，请联系管理员或开发员，重新设置数据链接字符串”。

请教应当修改哪里才能达到目的呢？
[此贴子已经被作者于2015/5/1 10:49:30编辑过]
--  作者：sloyy
--  发布时间：2015/5/1 18:05:00
--  
5秒内快速判断网络状态，并明确提示故障位置（广域网、局域网双杀）