怎么实现数据源连接不成功的时候，就自动退出所有项目 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么实现数据源连接不成功的时候，就自动退出所有项目

共有3635人关注过本帖树形打印复制链接主题：怎么实现数据源连接不成功的时候，就自动退出所有项目

cnsjroom

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

怎么实现数据源连接不成功的时候，就自动退出所有项目 发帖心情

Post By：2022/1/14 20:40:00 [只看该作者]

Dim s1 As String ="Provider=SQLOLEDB.1;Password=Aa123456;Persist Security Info=True;User ID=sa;Initial Catalog=网安综合业务;Data Source=83.243.52.7"

If Connections.TryConnect(s1) = False Then

MessageBox.Show("数据源无法连通!")

End If

上述代码在命令窗口中可以正常提示数据源无法连通但是没有实现完全退出项目

lgzhao

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：302 积分：2069 威望：0 精华：0 注册：2017/11/19 9:46:00

Post By：2022/1/15 3:22:00 [只看该作者]

If Connections.TryConnect(s1) = False Then

MessageBox.Show("数据源无法连通!")

system.environment.Exit(0)

End If

xuzihang

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：297 积分：2279 威望：0 精华：0 注册：2012/6/23 11:15:00

Post By：2023/4/24 10:30:00 [只看该作者]

这个好用，已经用了

[此贴子已经被作者于2023/4/24 10:30:05编辑过]

主题：怎么实现数据源连接不成功的时候，就自动退出所有项目