以文本方式查看主题

-  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