建议在线升级路径可动态设置,比如发布项目后,指定远程升级包的下载路径有变更,允许用户修改远程升级包的下载路径,如同帮助中的示便四,由用户来替换
示例四
假定有一个名为“销售数据”远程数据源,默认的IP地址为119.119.120.120,因为服务器的调整,IP地址可能会发生变化,导致数据源无法连接。
你也可以用另一种方法解决,在项目文件目录下创建一个ip.txt的文本文件,在该文件中输入最新的IP地址,并在BeforeConnectOuterDataSource事件中设置如下代码:
Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "销售数据" Then
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)
End If
End
If
另建议在升级的最后取消重新打开项目,因为比如在项目的BeforeOpenProject中设置了重复打开项目这样的代码,就会出错,建议改为关闭项目并给出提示,由用户自己重新再打开项目
Dim sucess As Boolean = False
mu = new System.Threading.Mutex(True, "dsdfhdfghf", sucess)
If not sucess Then
MessageBox.show("系统已打开,无法重复打开系统!","提示",MessageBoxButtons.OK,MessageBoxicon.Information)
e.Cancel = True
End If
[此贴子已经被作者于2011-5-1 15:10:46编辑过]