重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果,true表示通,false表示不通,1000表示1000毫秒内返回结果
在成都做网站、成都网站设计过程中,需要针对客户的行业特点、产品特性、目标受众和市场情况进行定位分析,以确定网站的风格、色彩、版式、交互等方面的设计方向。成都创新互联还需要根据客户的需求进行功能模块的开发和设计,包括内容管理、前台展示、用户权限管理、数据统计和安全保护等功能。
If b = True Then '指定时间内ping通
Shell("cmd /c ping 192.168.1.1 C:\time.txt") '在C盘time.txt文件中保存ping的结果
Else '超时
MsgBox("999") '弹出999提示
End If
server=.;uid=sa;pwd=;database=数据库;Max Pool Size=512
连接字符串写成这样或许可以解决.但是这个方法我没用.
还有个问题需要楼主注意,并不是你关闭SqlDataReader就真的关闭了,有时出现错误,dr.Close();会执行不到,不用我举例子了吧.
------------------------------------------
关闭了但没释放吧.
connection.Dispose();
或你让该类继承System.IDisposable接口,强迫释放资源,这样就不会出现连接数量不够的问题了。
如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快!
vaela
tcp
还是
udp?
tcp
的话
try
-
catch
就行了,因为
tcp
要求的是稳定的连接,连接一断开直接就
throw
exception
了。
udp
的话,因为它本身是无连接的协议,所以其实不存在断开不断开的,准确的说应该是超时。可以客户端每隔一段时间向服务端发送个心跳包(随便什么数据都行,只是证明客户端还在线),服务端每隔一段时间检测在线的客户端列表,谁已经很久没发来心跳包了就证明它掉线了。
connStr.ConnectionString = "Data Source=localhost;Initial Catalog=test1;user id=sa;password=123456"
一般是你这里的设置写的不对导致找不到数据服务器 导致一直处于连接中的状态,需要等待超时 才会有反应