Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 产品
  • 活动
  • 培训
  • 招聘
  • 论坛
  • 商城
  • 关于

培训

Access企业培训(现场)
Access在线培训

Access中级培训

Access高级培训

Access定制培训

Access树控件与BOM高级技巧

Access公开课
Access免费公开课视频
Access培训(VIP)
Access培训优惠信息

热门文章

  • Access自动播音员-A..
  • Access窗体控件-默认..
  • Access调用网页功能-..
  • 能排序的列表框-Acces..
  • Access动画式关闭窗体..
  • 网站数据提取与采集-Acc..

最新文章

  • Access自动播音员-A..
  • Access智能搜索组合框..
  • Access自动执行宏的妙..
  • access图片分页展示及..
  • 通用读取文本文件模块-Ac..
  • Access通用TAB键和..

联系方式

Access交流网

电  话:0760-88315075
热  线:0760-88315075

邮  编:528463
咨询QQ:1918333016
营销QQ:4008553990

Email:1918333016@qq.com

网  址:www.access-cn.com

当前位置:首页 > 培训 > Access培训(VIP)
Access培训(VIP)

Access调用网页功能-版本自动更新-Access经典源码剖析

 
Access主题 主题:Access调用网页功能-版本自动更新-高手之路                  听课人数:123人      
Access主讲

 主讲:王宇虹           演讲时间:2015-04-22 15:30 至 2015-04-22 16:30               

Access培训内容 讲课内容简介:         Access培训报名: http://www.office-cn.net/thread-119787-1-1.html
 上节课我们主要讲解了关于Access调用网页功能的一些基本知识。同时以一个中英文自动翻译功能作为示例。
那么这节超级经典源码剖析 我们主要来讲讲版本自动更新的功能。这个功能在我们的通用平台中有出现过相关的功能
 培训优势:使用新版Access2013+思维导图模式+Access源码剖析+在线课堂+PPT课件培训
 培训目标:让你 听得懂 学得会 记得住 用得上             要求:有一定的Access 或 VBA的基础 
 

 

clip0058

Access调用网页功能-版本自动更新


 

 

application_key 功能描述:

 

  • 软件界面多语言自动生成语言包

  • 提供自动翻译服务

  • 软件版本更新的提示

  • 从网站获取软件的最新版本号

  • 如果有新版本,就提示更新

  • 自动打开更新网站

  • 一个自动更新的程序,自动执行

  • 产品宣传的推送

  • 广告宣传

 

 
application_key  行业应用场景:

 
  • 软件中自动翻译服务

  • 外贸行业

  • 软件版本更新的提示

  • 产品宣传的推送

  • 广告宣传

  • OfficeHelper

 

 

application_key  界面预览:

 

     access数据库

      

 

application_key  源码思维导图(脑图):

 

     access数据库

 

Access教程视频Access调用网页功能-版本自动更新 -- Access经典源码剖析思维导图在线播放

可直接展开和收缩思维导图中的每个节点来浏览,也可使用下面的放大 缩小 折叠 定位焦点 全页显示 查找关键字等功能
 

 

 

application_key  Access培训笔记:

 

  经典源码剖析系列 Access调用网页功能-版本自动更新 Office中国-王宇虹

1 应用场景

1.1 软件中自动翻译

1.1.1 外贸

1.2 软件界面多语言自动生成语言包

1.3 提供自动翻译服务

1.4 具体软件

1.4.1 软件版本更新的提示

1.4.1.1 access数据库 从网站获取软件的最新版本号

1.4.1.1.1 首先在网页放置TXT文件存放版本号

1.4.1.2 access数据库 与本地软件的版本进行对比

1.4.1.2.1 本地软件的当前版本号存放

INI

存放MDB里的一个表字段

1.4.1.2.2 如果有新版本,就提示更新

自动打开更新网站

做一个自动更新的程序,自动执行

1.4.2 产品宣传的推送

1.4.3 广告宣传

1.4.4 OfficeHelper

1.4.5 中英翻译

2 技术特征

3 模块 源码剖析

3.1 窗体界面

3.1.1 2个文本框

3.1.1.1 当前版本号

3.1.1.1.1 txtCurrVersion

3.1.1.2 最新版本号

3.1.1.2.1 txtNewVersion

3.1.2 取当前版本号

3.1.2.1 Me.txtCurrVersion = Nz(DLookup("FVersion", "tblVersion"))

3.1.3 函数

3.1.3.1 Me.txtNewVersion = gf_CheckNewVer(True)

3.1.3.1.1 参数:blnShowMsg

3.1.3.1.2 gf_CheckNewVer = ""

3.1.4 软件版本更新提示

3.1.4.1 创建xmlHttp对象

3.1.4.1.1 Dim objXml As Object

后期绑定

3.1.4.1.2 Set objXml = CreateObject("microsoft.xmlhttp")

3.1.4.1.3 对XMLHTTP对象进行相关的操作

OPen

初始化HTTP连接请求对象,设置请求方法,地址,认证信息.

传递相关的参数

请求方法

POST

地址

http://fanyi.youdao.com/translate

同步/异步

开头握手

发送请求的头文件

h.setRequestHeader "If-Modified-Since", "0" '

禁止缓存

发送翻译的正式请求

h.Send

获取服务端反馈的结果

.responseBody

对结果内码转换

StrConv(h.responseBody, vbUnicode)

由GB2312转为UNICODE

服务结束,释放相关的对象

Set h = Nothing

Set objXml = Nothing

结束后关门

Len(strNewVer) < 12

对比版本号

gf_CompareVersion(strNewVer, strCurrentVer)

有新版本

blnShowMsg

提示有新版本

直接把新版本返回

4 知识点

4.1 XmlHttp是什么

4.1.1 最通用的定义为: XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中 通过http协议传送或从接收XML及其他数据的一套API。 XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面

4.1.2 XmlHttp提供客户端同http服务器通讯的协议

客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用微软XML文档对象模型Microsoft® XML Document Object Model (DOM)处理回应

4.1.3 http协议

4.1.3.1 网站

4.2 绝对多数浏览器都增加了对XmlHttp的支持

4.2.1 IE中使用ActiveXObject方式创建XmlHttp对象

4.2.1.1 VB及ACCESS可使用CreateObject的方法

4.2.2 其他浏览器如:Firefox、Opera等通过window.XMLHttpRequest来创建xmlhttp对象

4.3 XmlHttp对象的属性

onreadystatechange

 

 

 设置请求对象状态readystate改变时要调用的函数对象;

 

readyState

 

 

 

请求对象的状态值,含义如下:

 

0 - 请求对象被创建,但未初始化,即open方法未调用

 

1 - 装载中,open方法已调用,send方法未调用

 

2 - 已装载,send方法已调用,但还未获得Header信息

 

3 - 交互中,已获取了部分信息,这时调用responseText将得到不完整信息,会返回错误

 

4 - 所有数据已接收完成,可用responseText或responseBody得到完整数据

 

 

 

 responseBody

 

 

 

表示从HTTP响应得到的返回原始信息,内容的编码方式决定于请求的服务器端(UTF-8, UCS-2, UCS-4, Shift_JIS等)

 

 

 

responseText

 

 

 

 HTTP请求返回数据体的字符串表示,缺省情况下用utf-8编码后返回,如果返回内容中有中文,服务器端的数据必须用utf-8编码,否则就会出现乱码。

 

 

 

responseStream

 

 

 

HTTP请求返回数据的流对象,该对象实现IStream接口.

 

 

 

responseXML

 

 

 

返回XML格式的数据对象. 服务器端返回数据为XML格式数据时可用.服务器端用动态语言生成xml时,必须设置content-type为text/xml,否则客户端得到的responseXML为空

 

 

 

status

 

 HTTP返回代码.

200 - 成功

404 - 错误请求

500 - 服务器内部错误,等等. 详见HTTP协议.

 

statusText

HTTP返回状态文本描述.

4.3.1
access数据库

4.4 XmlHttp对象的方法

 

Sub abort()

中断当前对象的HTTP请求.

 

 Function getAllResponseHeaders() As String

 

获取HTTP响应结果中的全部Header信息,以字符串格式表示

 

 

 

 Function getResponseHeader(bstrHeader As String) As String

 

 

获取HTTP响应结果Header中指定名称的值,用字符串表示,如果不存在则返回空串

 

Sub open(bstrMethod As String, bstrUrl As String, [varAsync], [bstrUser], [bstrPassword])

初始化HTTP连接请求对象,设置请求方法,地址,认证信息.

bstrMethod可用值有GET,POST,HEAD,定义向HTTP提交请求的方式;必填

bstrUrl为要访问的HTTP资源地址;必填

varAsync 可选项,设置是异步还是同步等待返回结果,true-异步方式,false-同步方式,缺省是异步方式;

如果HTTP请求要求用户名和口令,则在bstrUser,bstrPassword中设置.

 

 

Sub send ([varBody])

向服务器发送一个HTTP请求,并获取返回结果.

varBody为要发送到服务器的数据,通常在POST方式下使用.

 

Sub setRequestHeader(bstrHeader As String, bstrValue As String)

在请求header中设置bstrHeader/bstrValue值对并发送到服务器端.

例:

xmlReq.setRequestHeader("Content-Type",

 

"application/x-www-form-urlencoded; charset=UTF-8");

4.4.1
access数据库

4.5 Json

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。它基于JavaScript(Standard ECMA-262 3rd Edition - December 1999)的一个子集。 JSON采用完全独立于语言的文本格式,但是也使用了类似于C语言家族的习惯(包括C, C++, C#, Java, JavaScript, Perl, Python等)。这些特性使JSON成为理想的数据交换语言。 易于人阅读和编写,同时也易于机器解析和生成(网络传输速度)。

4.6 客户端

4.6.1 Access

4.7 服务器

4.7.1 网站服务器

 

application_key  相关链接:

 

1. 直接超值购买:

       点击购买:  Button 

       包含:Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件    绝对低价超值

 

2. 购买前咨询:

    

    在线咨询QQ:1918333016

    企业热线QQ:4008553990 (使用QQ搜索: 搜索服务)

    更多联系方式:http://www.office-cn.net/t/training/officecontact.htm

 

application_key  部分源码预览:

 

   access数据库

 

    access数据库

   

Public Function gf_CheckNewVer(Optional blnShowMsg As Boolean = False) As String
'检测新版本
    
    On Error GoTo Err_Handler
  
   ......
    Dim h As Object
    Dim strCurrentVer  As String
    Dim strNewVer As String
    Dim strIniFile As String
 
    '有时连到下一页 提示出错 ,如果出错,就代码再尝试一次,2次出错且超时时间大于20秒就返回
    lngStartTime = Timer
 
NxtTry:
    On Error GoTo Err_Handler
    gf_CheckNewVer = ""
 
    Set h = CreateObject("Microsoft.XMLHTTP")
    h.Open "GET", "http://www.office-cn.net/Upd/UpdLib/DevLibVer.txt", False
    h.setRequestHeader "If-Modified-Since", "0" '禁止缓存 要加在OPEN之后  不加这个,读取的网页内容 永远是一样的,不会更新
    ' xmlhttp.setRequestHeader('If-Modified-Since', '0');
 
    h.Send
   ......
    strCurrentVer = gstrVersion
   ......
            If MsgBox("检测到新版本,是否打开网址下载更新? 新的版本号是:" & strNewVer, vbYesNo) = vbYes Then
 
                ' gf_OpenUrl "http://www.offic-cn.net" ' 可打开你的新版下载网页或调用你的下载程序
                 
            End If
         End If
 
    End If
 
Exit Function
Err_Handler:
    gf_CheckNewVer = ""
  ......
 
    End Select
 
End Function
 
Public Function gf_CompareVersion(strVer1 As String, strVer2 As String) As Integer
'版本字符串的对比函数
 
    Dim Arr1() As String
    Dim Arr2() As String
    Dim i As Integer
    Dim intValue As Integer
    Dim j As Integer
 
    Arr1 = Split(strVer1, ".")
    Arr2 = Split(strVer2, ".")
    If UBound(Arr2) < UBound(Arr1) Then
        j = UBound(Arr2)
    Else
        j = UBound(Arr1)
    End If
   ...... 
     End If
    Next i
    
    If intValue = 0 And UBound(Arr2) < UBound(Arr1) Then
        intValue = 1
    ElseIf intValue = 0 And UBound(Arr2) > UBound(Arr1) Then
        intValue = -1
    End If
    
    gf_CompareVersion = intValue
    
    Erase Arr1
    Erase Arr2
    
End Function
 
 

 


标签:  access,调用网页,版本更新,自动,
发布人:zstmtony  
分享到:
点击次数:  更新时间:2018-02-28 11:05:55  【打印此页】  【关闭】
上一条:Access调用网页功能-中英自动翻译功能-Access经典源码剖析  下一条:Access窗体控件-默认值的妙用-Access经典源码剖析



相关文章

  • • Access自动播音员-Access经典源码剖析
  • • Access智能搜索组合框-Access经典源码剖析
  • • Access自动执行宏的妙用-Access经典源码剖析
  • • access图片分页展示及选择功能-Access经典源码剖析
  • • 通用读取文本文件模块-Access经典源码剖析
  • • Access通用TAB键和默认值设置-Access经典源码剖析
  • • access图片文件保存到数据库的通用技巧-Access经典源码剖析
  • • 数据自动导出多个Excel或者多个工作表-Access经典源码剖析

热门文章

  • [2018-02-28] Access调用网页功能-版本自动更新-Access经典源码剖析access数据库
  • [2018-02-28] Access通用TAB键和默认值设置-Access经典源码剖析access数据库
  • [2018-02-28] Access系统设置及系统函数的应用-Access经典源码剖析access数据库
  • [2018-02-28] Access多层架构开发思路-Access经典源码剖析access数据库
  • [2018-02-28] 数据自动导出多个Excel或者多个工作表-Access经典源码剖析access数据库
  • [2018-02-28] Access控制outlook自动处理邮件-Access经典源码剖析access数据库

热门产品

  1. 通用POS软件

    通用POS软件

  2. Access通用开发平台

    Access通用开发平台

  3. 短信专家接口(可用于企业及个人多种短信用途)

    短信专家接口(可用于企业及个人多种短信用途)

公司动态|在线留言|在线反馈|联系我们|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2018 粤ICP备10043721号

广东省中山市西苑广场富贵阁20楼A座

电话:0760-88315075 手机:13928102596 QQ:1918333016

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2022  www.metinfo.cn