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(L