Access數據庫啟動時檢查服務器有否最新版,然後再做一箇程序來自動更新

2017-09-16 09:14:00
zstmtony
原創
1026


Access數據庫啟動時檢查服務器有否最新版,然後再做一箇程序來自動更新

思路:

1.按照以前講的從服務器或從本地INI文件讀取版本信息

2.對比版本信息,如髮現有新版本

3.就提示是否更新新版本

4.如更新,則用程序打開另一箇 更新專用的mde文件來更新

5.更新完成後可以考慮再打開主程序


主程序切換到更新程序的一些關鍵的代碼:
MsgBox "客戶管理軟件檢測到新版本,陞級繫統能夠保證繫統的穩定及能夠使用新的功能!" & vbCrLf & "建議您馬上陞級,現在自動陞級!", vbQuestion + vbYes, "天鳴電腦科技"
   ' If MsgBox("客戶管理軟件檢測到新版本,陞級繫統能夠保證繫統的穩定及能夠使用新的功能!" & vbCrLf & "建議您馬上陞級,現在自動陞級!", vbQuestion + vbYes, "天鳴電腦科技") = vbYes Then
        
        'taOpenMDB (CurrentProject.Path & "\AutoUpdate.mde")
        
       Application.FollowHyperlink (CurrentProject.Path & "\AutoUpdate.mde"), , True
       DoCmd.Close acForm, Me.Name
       DoCmd.Quit acQuitSaveNone
   ' End If
  End If

分享