以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示ConnectionString不能赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142303)
--  作者：aidimeng
--  发布时间：2019/10/23 16:07:00
--  提示ConnectionString不能赋值

Dim cn As Connection=  Connections("pk")
Connections.Add
 

 

 

\'If Network.Ping("221.1.206.126",1000) = False   Then \'如果第一个IP无法接通


cn.ConnectionString= cn. ConnectionString.Replace("221.1.205.126", "192.168.1.160")
\'End If
MessageBox.Show(cn.ConnectionString)
--  作者：有点蓝
--  发布时间：2019/10/23 16:38:00
--  
不能这样用，如果要改数据源，只能在BeforeConnectOuterDataSource事件处理。

或者删除后再重新添加
Connections.Delete(Name)
Connections.Add(Name)