Foxtable(狐表)用户栏目专家坐堂 → [求助]BeforeConnectOuterDataSource连接不通,如何中断软件而退出


  共有3844人关注过本帖树形打印复制链接

主题:[求助]BeforeConnectOuterDataSource连接不通,如何中断软件而退出

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


加好友 发短信
等级:二尾狐 帖子:502 积分:4924 威望:0 精华:0 注册:2016/7/11 10:12:00
[求助]BeforeConnectOuterDataSource连接不通,如何中断软件而退出  发帖心情 Post By:2022/4/25 11:45:00 [只看该作者]

老师好


项目事件 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110784 积分:563852 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部