-- 作者:baicaocao
-- 发布时间:2013/7/28 14:19:00
-- [求助]BeforeConnectOuterDataSource事件错误
代码:If Network.Ping("192.168.0.15",1000) = False Then \'如果第一个IP无法接通 MessageBox.Show("升级服务器出现问题,请联系") lsb = True \'赋值临时表状态.true为不通过. Else Dim s As String = "Provider=SQLOLEDB.1;Password=b7q3y5E;Persist Security Info=True;User ID=net666046;Initial Catalog=net666046;Data Source=192.168.0.15" Connections.Add("server",s) End If 说明:会出现一个错误提示。
|