软件自动升级(旧版) 有新的用c#基于ftp自动更新

 

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