以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]BeforeConnectOuterDataSource连接不通,如何中断软件而退出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176738) |
-- 作者:wangjh8888 -- 发布时间:2022/4/25 11:45:00 -- [求助]BeforeConnectOuterDataSource连接不通,如何中断软件而退出 老师好 项目事件 BeforeConnectOuterDataSource部分代码如下: .... .... If e.Name = "xmedu" Then e.C & IP_Server & ",51456" End If \'----------------------- sqlserver 联通测试 If Connections.TryConnect(e.ConnectionString) = False Then MessageBox.Show("Sql无法连通, 请联系管理员!","提示", MessageBoxButtons.OK, MessageBoxIcon.warning) Syscmd.Project.Exit(False) Return End If .... .... 为什么 Syscmd.Project.Exit(False) 不能起作用? 想连接不通,就退出软件,请教代码怎么写呢 [此贴子已经被作者于2022/4/25 11:46:52编辑过]
|
-- 作者:有点蓝 -- 发布时间:2022/4/25 14:16:00 -- 到beforeopenproject事件判断 Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\测试数据库\\123.mdb;Persist Security Info=False" If Connections.TryConnect(s) = False Then MessageBox.Show("数据源无法连通!") e.Cancel = True End If |