如何实现判断sql数据库连接不成功,就终止整个项目的运行呢?
项目程序在第一次启动时候就判断SQL数据库连接是否成功,如果成功在启动登录窗体 验证后在进入主程序
如果不成功 那就取消项目所有启动的进行,直接提醒数据库连接不成功,然后终止所有的运行,不要再次出现数据库连接管理设置及取消设置后的相关表不存在的错误
此主题相关图片如下:1.png

此主题相关图片如下:2.png

BeforeOpenProject
在打开项目之前执行,可以在此进行一些环境上的判断,决定是否打开项目。
代码如下:
If TryConnectHost("www.wabhjcyxgs.com") Then
If Network.Ping("www.wabhjcyxgs.com") Then
'MessageBox.show("SQL数据库连接成功,可以打开此项目.")
Else
Syscmd.Project.Exit()
Return
'e.Cancel = True
'e.HideSplashForm = True
MessageBox.show("SQL数据库无法连接,无法打开此项目.")
End If
End If
可以实现判断数据库是否可以连接成功 但是不能实现数据库无法连接时,项目会继续打开,同时提示数据库连接管理设置
[此贴子已经被作者于2019/4/10 22:06:13编辑过]