一个关于ACCESS应用程序升级的问题

zzcjp

用ACCESS2000编写一个应用程序，发布分发后，因为对程序做了版本升级，可以在程序的登录窗口打开时自动检查版本号，发现有新版本时弹出一个窗口，提示升级，用户通过选择“升级”、“暂不升级”按钮选择。

      当用户选择“升级”，程序要从局域网服务器，IP:“fpt://192.168.100.3”下载“采购管理.rar“文件，然后解压。关闭正在运行的应用程序，运行安装包来升级应用程序。

问题：如何编写下载文件的代码？如何用xp内置下载工具下载？

请高手给出一个例程。谢谢！

82077802

如何在局域网上实现自动升级？
(A)
1.建一个启动程序log_on.mdb
2.判断本地主程序与服务器端主程序的版本是否一致
  采用GetVersion函数来获得版本号
Public Function GetVersion(FileName As String, strPWS As String) As String
    Dim rst As ADODB.Recordset
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & FileName & ";jet oledb:database password='" & strPWS & "'"
    strSQL = "select * from tblversion"
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.Open strSQL, strConn
    rst.MoveFirst
    GetVersion = rst!Version
    rst.Close
    Set rst = Nothing
End Function  
3.将服务器端的主程序替换本地主程序
    Dim SourceFile As String
    Dim DestinationFile As String
    Dim localVision As String
    Dim serverVision As String
    ' 指定服务器上的文件名。
    ' SourceFile = "\\172.16.172.6\server\main.mdb"
    SourceFile = CurrentProject.Path + "\server\main.mdb"
    ' 指定本地文件名。
    DestinationFile = CurrentProject.Path + "\main.mdb"
    If Dir(SourceFile) = "" Then
        MsgBox SourceFile & vbCrLf & "网路不通或文件不存在!", vbCritical, "提示"
        Exit Sub
    End If
    '获得本地主程序的版本号
    localVision = GetVersion(DestinationFile, "")
    '获得服务器端升级文件的版本号
    serverVision = GetVersion(SourceFile, "")
    If localVision = serverVision Then
        '运行主程序
        OpenDB
    Else
        MsgBox "版本不同，现在开始升级!", vbInformation, "提示"
        FileCopy SourceFile, DestinationFile
        MsgBox "版本升级结束!", vbInformation, "提示"
        '运行主程序
        OpenDB
    End If

82077802

4.替换结束后运行主程序
Public Sub OpenDB()
    Dim strDB As String
    strDB = CurrentProject.Path & "\main.mdb"
    Set appAccess = CreateObject("Access.Application")
    Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, "WD=")
    appAccess.OpenCurrentDatabase strDB
    If Val(SysCmd(acSysCmdAccessVer)) = 9 Then
        appAccess.Visible = True
    End If
    DoCmd.Quit
End Sub

zzcjp

谢了，得到很好的启发。

beenet

看看我先前发布的吧，能解决你的问题！
http://www.office-cn.net/forum.p ... 2%C8%AB%C6%F4%B6%AF

zzcjp

beenet 兄：你的例程已下载，可是我只安装office 2000，打不开例程，一个字：急！你能将例程转换为office2000版本再放上来吗？ 谢谢先！

zzcjp

根据beenet 兄的例程，我转换成OFFICE2000格式，并对表做了小修改，解决了在线升级问题，不敢独享，特将新例程放上来共享，期望遇到类似问题的弟兄们得到启发。

yanwei82123300

又花钱看看

kis3s

钱从哪里来？