以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  TryConnect 数据源 不能响应，总是需要很长时间，判断不响应时间怎么设置？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142551)

--  作者：fuucc --  发布时间：2019/10/30 15:53:00 --  TryConnect 数据源 不能响应，总是需要很长时间，判断不响应时间怎么设置？ TryConnect 数据源 不能响应，总是需要很长时间，判断不响应时间怎么设置？

--  作者：有点蓝 --  发布时间：2019/10/30 15:59:00 --   贴出完整代码

--  作者：fuucc --  发布时间：2019/10/30 16:00:00 --   Dim c As String = "Provider=SQLOLEDB.1;Password=xx;Persist Security Info=True;User ID=xxx;Initial Catalog=jyt;Data Source=xxx"     If Connections.TryConnect(c) = False Then         MessageBox.Show("网络连接不稳定,请先登录VPN安全通道后,再登录系统!")         Dim Proc As New Process \'定义一个新的Process         proc.file = "C:\\Program Files\\Internet Explorer\\iexplore.exe"         proc.Arguments = "https://zzvpn.xxx.xx.cn"         Proc.Start()            Syscmd.Project.Exit()     Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错     Else         \'Connections.Add("zhengshi",c)  End If

--  作者：fuucc --  发布时间：2019/10/30 16:03:00 --   这段代码是在beforeConnectOutDataSource里的，希望根据数据源连接字符串能否连接判断要不要弹出vpn登录窗口。 [此贴子已经被作者于2019/10/30 16:04:41编辑过]

--  作者：有点蓝 --  发布时间：2019/10/30 16:19:00 --   用这个判断网络是否通：http://www.foxtable.com/webhelp/topics/2709.htm

--  作者：fuucc --  发布时间：2019/10/30 16:35:00 --   如果应用不是网站，是存数据库的怎么判断比较快。

--  作者：fuucc --  发布时间：2019/10/30 16:41:00 --   可以用计时器实现吗，比如判断多少秒没有响应。就退出软件。

--  作者：有点蓝 --  发布时间：2019/10/30 16:48:00 --   那就直接ping：http://www.foxtable.com/webhelp/topics/1401.htm

--  作者：fuucc --  发布时间：2019/10/30 16:52:00 --   好吧，明白了，PING也是个好办法。我再摸索下吧。计时器应该可以判断，30秒估计够用了。谢谢