从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
在过程当中加上一句Doevent语句,就可以
Private Sub Command1_Click()
Dim X As Boolean
doevent '这是给你加的语句,试试看
X = SendMsg(TxtTo.Text, TxtFrom.Text, TxtMsg.Text)
If X Then
MsgBox "消息已被成功发送", vbInformation, "发送消息"
Else
MsgBox "发送消息失败", vbCritical, "发送消息"
End If
End Sub
server=.;uid=sa;pwd=;database=数据库;Max Pool Size=512
连接字符串写成这样或许可以解决.但是这个方法我没用.
还有个问题需要楼主注意,并不是你关闭SqlDataReader就真的关闭了,有时出现错误,dr.Close();会执行不到,不用我举例子了吧.
------------------------------------------
关闭了但没释放吧.
connection.Dispose();
或你让该类继承System.IDisposable接口,强迫释放资源,这样就不会出现连接数量不够的问题了。
如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快!
vaela
connStr.ConnectionString = "Data Source=localhost;Initial Catalog=test1;user id=sa;password=123456"
一般是你这里的设置写的不对导致找不到数据服务器 导致一直处于连接中的状态,需要等待超时 才会有反应
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图