Foxtable(狐表)用户栏目专家坐堂 → 怎么实现项目打开成功后,运行过程中,数据源连接不成功时,提示用户,并暂停所有的计划管理事件或其他代码事件的运行,待数据源连接恢复或者重启项目后,在恢复项目所有功能的运行呢?


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

主题:怎么实现项目打开成功后,运行过程中,数据源连接不成功时,提示用户,并暂停所有的计划管理事件或其他代码事件的运行,待数据源连接恢复或者重启项目后,在恢复项目所有功能的运行呢?

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


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 13:33:00 [显示全部帖子]

并不是所有的错误都要屏蔽和退出项目的。只需要判断数据源即可,其它的错误应该找到原因并解决掉

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


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 14:35:00 [显示全部帖子]

没有办法。建议数据源连接不成功,提示用户然后退出整个项目

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


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 15:46:00 [显示全部帖子]

BeforeShowErrorMessage

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


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 20:25:00 [显示全部帖子]

和数据库无关的判断都去掉

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

 回到顶部