安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access数据库启动时检查服务器有否最新版,然后再做一个程序来自动更新

2017-09-16 09:14:00
zstmtony
原创
1604


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

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:8.00MB
PHP 执行时间:0.19
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假