VB6自动版本更新处理,实例源码

最新推荐文章于 2021-08-06 10:38:55 发布

fangke

最新推荐文章于 2021-08-06 10:38:55 发布

阅读量3.9k

点赞数 1

文章标签： vb 数据库 exe command 服务器存储

本文链接：https://blog.csdn.net/fangke/article/details/1222053

版权

该博客介绍了一种VB6应用程序自动更新的方法，通过创建两个外壳exe文件互相调用来从服务器数据库下载最新版本的exe并执行。用户启动程序时，会检查本地版本并更新到最新版。文章详细展示了如何实现这个过程，包括连接数据库、验证用户和密码、以及调用存储过程的代码示例。

摘要由CSDN通过智能技术生成

方法为: 建立两个exe文件，每一个为外壳exe带参数调用另一个存储在服务器数据库的exe文件,客户每次启动应用程序时查验版本下到本机再执行.

外壳带参数exe，先联到数据库，下载完新版exe后，再传递三个参数(用户名,密码,服务器名)给另一个exe文件运行

Private Sub QdCommand_Click()         '确定进入系统
    On Error GoTo ErrorHandle
    Dim sAp As New addPassword '取加密类
    Dim RetVal
    Dim Res As New ADODB.Recordset
    Dim Rs As New ADODB.Recordset
    Dim VerNo
    Dim strInput As String

    If Trim(Text1) = "" Then
       Text1.SetFocus
       GoTo PROC_EXIT
    End If
    If Trim(Text2) = "" Then
       Text2.SetFocus
       GoTo PROC_EXIT
    End If
    If Trim(Combo1) = "" Then
       Combo1.SetFocus
       GoTo PROC_EXIT
    End If