| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 当数据源连接不上时如何强行退出系统 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73186) |
| -- 作者：happyft -- 发布时间：2015/8/14 0:01:00 -- 当数据源连接不上时如何强行退出系统 \'---根据内外网连接选择不同的IP Dim strConn As String Dim myConnTest As New ConnTest.ConnNetTest Dim net As String = FileSys.ReadAllText(netFile) If net = "1" Then \'外网直接用IP2连接 db_IP = db_IP2 ftp_Host = db_IP2 e.ConnectionString = e.ConnectionString.Replace(db_IP1,db_IP) \'用外网IP替换sql实例路径中的内网IP strConn = e.ConnectionString If myConnTest.ConnNetTestByConnStr(strConn,2000) = True Then Else MessageBox.Show("网络不通或服务器拒绝访问,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) CanOpen = False \'禁止打开项目 Syscmd.Project.Exit(False) \'退出系统 \'System.Diagnostics.Process.GetProcessesByName("foxtable")(0).Kill End If end if 当故意断网测试时，用了上面那三种红色的方式都无法退出，还会显示一下"正在打开。。。"过近十秒才会退出，为什么，有什么办法立即退出呢 谢谢！ |
| -- 作者：大红袍 -- 发布时间：2015/8/14 0:06:00 -- 测试链接数据库，至少要用10秒。当然你可以先ping一下服务器看能不能连。
去beforeOpenProject事件判断。 |
| -- 作者：HappyFt -- 发布时间：2015/8/14 0:15:00 -- 谢谢！但那个"正在打开。。。"的文字能人为改为”正在退出，请稍等“之类的吗 |
| -- 作者：大红袍 -- 发布时间：2015/8/14 9:14:00 -- 去beforeOpenProject事件判断
|