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


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

主题：网络不通提示
帅哥哟，离线，有人找我吗？
15666282205
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：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


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

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

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


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

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

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


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

老师，我找到原因了，我有两根网线，一个通阿里云，一个是内部网，如果两根线都断了，就按代码执行；如果只断一根阿里云的，代码就不执行了，看来是判断是否有网络的代码不是很完美。如何改进一下呢？只要阿里云的不通就提示。
[此贴子已经被作者于2021/6/26 14:50:52编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106672 积分：542549 威望：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询