|
我想在BeforeOpenProject事件中做检查版本的更新代码如下：
Dim File As String =FileSys.GetParentPath(e.File) & "\版本.txt"
msgbox(File)
If Filesys.FileExists(File) Then
'找到服务器版本号
Dim Cvers As Integer = FileSys.ReadAllText(File)
msgbox(cvers)
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText="select VersionNUM from Version"
msgbox("b")
Dim Svers As Integer = cmd.ExecuteScalar()
msgbox(Svers)
If Svers <> Cvers Then
If msgbox("已经有了更新的版本,需要下载更新吗",65,"提示")=1 Then
network.DownloadFile("\\192.168.1.199\项目核算系统发布更新\update.zip","update.zip" ,"","",True,60000,True)
Dim zip As New zipFile
zip.Open("update.zip")
Dim app As String = Application.StartupPath '获取当前路径
zip.Extractall(app) '关键是这句,这句是你要把文件解压到那个路径
zip.Close()
messagebox.show("请重启项目核算系统,以完成更新")
syscmd.project.Exit(True)
Else
End If
End If
End If
当程序走到cmd.C这一步的时候就弹出空值的提示。audit是我在项目中设置的外部数据源的名称，估计项目还没有开始加载完所以，就弹出这个错误。所以我想在这里咨询怎么样才能获取到外部数据库的表的数据。我的外部数据库是sqlserver的
|
加好友 
发短信
Post By：2013/1/7 18:58:00 [显示全部帖子]
