软件自动升级-VB编程SQL Server上传下载exe

Option Explicit
'---------------------------------------------------
' 这是一个用于将EXE文件从SQL SERVER中上传或下传的程序
' 读取命令行参数:EXE文件名及版本号
' 使用与EXE同名的INI为登录SQL SERVER
' 完成后以*****为命令行参数调用相应的EXE
'---------------------------------------------------

'数据库定义,要先增加一个名称与应用程序相同的记录

'Create TABLE [dbo].[xt_应用程序] (
'[应用程序] [tinyint] NOT NULL ,
'[名称] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,
'[主版本] [tinyint] NOT NULL ,
'[次版本] [tinyint] NOT NULL ,
'[修正版本] [tinyint] NOT NULL ,
'[文件] [image] NOT NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

Public gConn As New ADODB.Connection
'------------------------------------
'主程序
'------------------------------------
Sub Main()
Dim Arrini() As String, i As Integer, ServerName As String, DataBase As String, UserName As String, Password As String
Dim Exename() As String, d As Date
On Error GoTo Errshow
Exename = GetCommandLine(3)
传送提示.Show '请自行加入一个窗体,显示传送的信息
d = Now()
Do Until DateDiff("s", d, Now) > 3

DoEvents
Loop
'获取配置文件的信息 请在此加入读取的变量:servername,database,username,password

'Arrini = GetIni(App.Path & IIf(Len(App.Path) > 3, "\", "") & Exename(0) & ".ini")

gConn.Open "Data Source=" & ServerName & ";Initial Catalog=" & DataBase & ";", UserName, Password


If GetRevision(Exename(0), Val(Exename(1)), Val(Exename(2)), Val(Exename(3))) Then
Exename(0) = App.Path & IIf(Len(App.Path) > 3, "\", "") & Exename(0) & ".exe *****"
Call Shell(Exename(0), vbNormalFocus)
End If
gConn.Close
Unload 传送提示
Exit Sub
Errshow:
Unload 传送提示
ShowErr "call by " & App.Title
End Sub
'----------------------------------
'获取指定程序的版本号
'----------------------------------
Private Function GetRevision(ByVal Exename As String, ByVal Major As Byte, ByVal Minor As Byte, ByVal Revision As Byte) As Boolean
Dim Rec As ADODB.Recordset, FileName As String
On Error GoTo Errshow
Set Rec = New ADODB.Recordset
Rec.Open "select 应用程序,主版本,次版本,修正版本,文件 from xt_应用程序 where 名称 = '" & Exename & "'", gConn, adOpenDynamic, adLockOptimistic
If Not Rec.EOF Then
FileName = App.Path & IIf(Len(App.Path) > 3, "\", "") & Exename & ".exe"