Foxtable(狐表)用户栏目专家坐堂 → 如何在断网时快速退出


  共有5183人关注过本帖树形打印复制链接

主题:如何在断网时快速退出

帅哥哟,离线,有人找我吗?
zhangchi96
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
如何在断网时快速退出  发帖心情 Post By:2023/2/21 16:23:00 [只看该作者]

Dim s1 As String = "   Provider=SQLOLEDB.1;Password=a*******;Persist Security Info=True;User ID=b****;Initial Catalog=a******;Data Source=1*.2**.3**.4** "
If Connections.TryConnect(s1) = False Then
    e.ConnectionString = s1
    MessageBox.Show("无法与服务器成功连通!","检查网络是否正常,服务器是否正常")
    Syscmd.Project.Exit(False) ''不询问,退出
End If

实际运行时,如果无法连通服务器,除了出现提示“无法与服务器成功连通!“外,还不断出现外部数据源失败,加载某某表失败,等等

请问如何在无法连通服务器时,提示一下,然后立即退出?
[此贴子已经被作者于2023/2/21 16:23:38编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/21 16:40:00 [只看该作者]

项目属性BeforeShowErrorMessage 事件

If vars("已弹出") = False
    If e.message1.Contains("一般性网络错误") OrElse e.message1.Contains("不存在或拒绝访问") Then
      e.Cancel = True
        vars("已弹出") = True
        MessageBox.Show("数据库服务器链接失败,请点击确定退出程序后,联系管理员处理!!","温馨提示")
        Syscmd.Project.Exit()
    End If
else
    e.Cancel = True  
End If

 回到顶部
帅哥哟,离线,有人找我吗?
zhangchi96
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2023/2/22 8:22:00 [只看该作者]

请问,是不是要设置一个全局变量 ("已弹出") ,它的值false是在哪个事件中得到的?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/22 8:29:00 [只看该作者]

不需要设置,就直接使用上面的代码即可

 回到顶部