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

Access通过Microsoft.XMLHTTP获取软件最新版本号并实现软件有新版本需要更新的提醒(放在网站指定页面)

2017-08-13 19:23:00
zstmtony
原创
791

Access通过Microsoft.XMLHTTP获取软件最新版本号并实现软件有新版本需要更新的提醒

(最新版本号放在网站指定页面)


Access通用开发?#25945;?#26377;一个检查?#25945;?#26368;新版本与?#25945;?#24403;前的版本对比,如果版本不一致,就提示用户有新版本,请更新

这个函数的源码现在分享给大家,大家可用在自己的Access数据库中。

这个函数的原理,就是在服务器的指定目录下放置一个 你的软件最新的版本号的文本文件,里面只有一个内容,版本号,如:1.0.0.1

如我将我的Access软件 的最新版本号放在网站上 这个路径:

http://www.dvzne.live/Version/newVer.txt


然后通过

Microsoft.XMLHTTP, 使用get 方法 来获取这个文本文件里的版本号的值,并返回给函数


这个函数调用非常方便。但需要注意

1.如果使用的电脑网络 连接不畅或网络 比?#19979;?#25110;无法访问外网,函数会执行一段时间,如果网络 很慢的话,可能会花去比较长的时间

2.所以最好是在执行这个函数前再做一个ping的函数,判断网络 是否通。不通的话,就跳过这个版本判断 。网络 通的话,则判断


获取Access软件系统最新版本的通用函数的源码如下:


Public Function gf_CheckNewVer() As String
'检测新版本, 如果与本地版本不符,则提醒用户 有新版本
’Access交流网通用开发?#25945;?检查 最新版本的函数    
    On Error GoTo Err_Handler
  
    Dim lngStartTime As Long
    Dim lngTry As Long
    
    Dim h As Object
    Dim strCurrentVer  As String
    Dim strNewVer As String
    Dim strIniFile As String
 
    '有时连到下一页 提示出错 ,如果出错,就代码再尝试一次,2次出错?#39029;?#26102;时间大于20秒就返回
    lngStartTime = Timer
      
NxtTry:
    On Error GoTo Err_Handler
 
    gf_CheckNewVer = ""

    Set h = CreateObject("Microsoft.XMLHTTP")
      

    h.Open "GET", "http://www.dvzne.live/Version/newVer.txt", False
    h.SetRequestHeader "If-Modified-Since", "0" '禁止缓存 

    h.Send     

    If h.Status = 200 Then  'h.readyState = 4 '这个有时也不准
        strNewVer = StrConv(h.responseBody, vbUnicode)
         
        Set h = Nothing
    Else
        Set h = Nothing
    End If
    Dim Customer As String
    Dim strCustCode As String
    Dim lngCustId As Long
    
 
    gf_CheckNewVer = strNewVer
    
 
    strCurrentVer = gstrVersion
 

Exit Function

Err_Handler:
    gf_CheckNewVer = ""
    Select Case Err.Number
    Case 5415
        lngTry = lngTry + 1 
        If lngTry < 2 And (Timer - lngStartTime) < 30 Then GoTo NxtTry End If End Select End Function
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.19
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
顿涅茨克矿工vs富勒姆 体彩排列五走势图 堂吉诃德的财富试玩 奇幻花园APP下载 夢幻邂逅试玩 警察与土匪游戏 七星彩走势图14035 探灵笔记小丽红色衣服怎么得 传奇霸业20万战力 美因茨V弗赖堡预测