Foxtable(狐表)用户栏目专家坐堂 → 网络不通提示


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

主题:网络不通提示

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


加好友 发短信
等级:二尾狐 帖子:546 积分:4332 威望:0 精华:0 注册:2019/1/13 10:12:00
网络不通提示  发帖心情 Post By:2021/6/26 10:57:00 [只看该作者]

老师,我看了您以前的一个回帖,关于网络不通的时候显示不通的提示,我试了下面的代码,没有什么效果,和没有代码一个样。请您指导。

代码放到:BeforeOpenProject事件
If TryConnectHost("www.baidu.com") =False
    e.Cancel = True
    e.HideSplashForm = True
    messagebox.Show("网络不通,请检查网络配置情况")
End If
[此贴子已经被作者于2021/6/26 11:03:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/26 11:31:00 [只看该作者]

我断网后测试没有问题。可能弹出的提示被其它程序挡住了,关闭其它打开的程序再试试

 回到顶部
帅哥哟,离线,有人找我吗?
15666282205
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:546 积分:4332 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2021/6/26 14:14:00 [只看该作者]

应该不是这个原因,因为到最后还是和没有代码一样提示数据库不能连接,联系管理员等。

 回到顶部
帅哥哟,离线,有人找我吗?
15666282205
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:546 积分:4332 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2021/6/26 14:49:00 [只看该作者]

老师,我找到原因了,我有两根网线,一个通阿里云,一个是内部网,如果两根线都断了,就按代码执行;如果只断一根阿里云的,代码就不执行了,看来是判断是否有网络的代码不是很完美。如何改进一下呢?只要阿里云的不通就提示。
[此贴子已经被作者于2021/6/26 14:50:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/26 15:02:00 [只看该作者]

判断阿里云服务器的域名:If TryConnectHost("www.我的域名.com") =False

或者ping阿里云服务器公网IP:http://www.foxtable.com/webhelp/topics/1401.htm

或者考虑直接判断数据库是否可以连接,使用.net的连接方式,比如

try
    Dim conn As new System.Data.SqlClient.SqlConnection("server=192.168.0.1;uid=sa;pwd=123456.;database=Test")
    conn.Open() '打开链接
    conn.close 
    msgbox("OK")
catch ex As exception
    msgbox("无法连接数据库:" & ex.message)
End try

 回到顶部