- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何在BeforeOpenProject事件中获取外部表的数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27682)
-- 发布时间：2013/1/7 18:58:00
-- 如何在BeforeOpenProject事件中获取外部表的数据
我想在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的
-- 发布时间：2013/1/7 18:59:00
--
cmd.C
-- 发布时间：2013/1/7 19:00:00
--
cmd.C
-- 发布时间：2013/1/7 19:02:00
--
怪事，粘贴cmd.c 这句话发上去却成了cmd.C
-- 发布时间：2013/1/7 19:02:00
--
connectionname
-- 发布时间：2013/1/7 19:03:00
--
c
-- 发布时间：2013/1/7 19:06:00
--
-- 发布时间：2013/1/7 20:36:00
--
看看我的方法，不知对你是否有帮助：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27687&page=1&star=1
-- 发布时间：2013/1/8 16:15:00
--
代码应该放在afteropenproject里的。