Foxtable(狐表)用户栏目专家坐堂 → 当数据源连接不上时如何强行退出系统


  共有2291人关注过本帖平板打印复制链接

主题:当数据源连接不上时如何强行退出系统

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


加好友 发短信
等级:八尾狐 帖子:1916 积分:17086 威望:0 精华:0 注册:2014/7/29 19:09:00
当数据源连接不上时如何强行退出系统  发帖心情 Post By: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

当故意断网测试时,用了上面那三种红色的方式都无法退出,还会显示一下"正在打开。。。"过近十秒才会退出,为什么,有什么办法立即退出呢

谢谢!
    

 回到顶部