I have never seen someone how to write an upgrade package, I don't think there is such an automation tool? This program should be more common. Private sub button1_click (byvale as system.object, byval e as system.eventargs) Handles Button1.click
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'IF CHECKBOX1 .Checked = True Then Dim dirinfo As DirectoryInfo = New DirectoryInfo (AppFolder.Text) If dirinfo.Exists = False Then MessageBox.Show ( "installation folder does not exist, please re-fill.", "failure", MessageBoxButtons.OK, MessageBoxicon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.defaultdesktoponly) Goto myflagrror endiff
DIM AppUpdate As new process Appupdate.startinfo.FileName = "xcopy.exe" AppUpdate.startinfo.arguments = string.format ("{0} {1} / s / y", "app", appfolder.text) TRY AppUpdate. Start () AppUpdate.WaitForExit () AppUpdate.Close () MessageBox.Show ( "program has been successfully upgraded!", "success", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) Catch ex As Exception MessageBox .Show ("Upgrade Procedure Failure! Please contact Beijing **** Company.", "Failure", MessageBoxButton.ok, MessageBoxicon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.defaultDesktoponly
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' IF CHECKBOX2 .CHECKED = TRUE THEN DIM Connstring As string = string.format ("Workstation ID = .; packet size = 4096; user ID = {0}; pwd = {1}; data source = .; persist security info = false; initial catalog = {2} ", DBAdmin.Text, DBPasswd.Text, DBName.Text) Try Dim TestInteger As Integer = SqlHelper.ExecuteScalar (connString, CommandType.Text," select count (*) from sysusers ") Catch ex As Exception MessageBox .Show ("Database connection failed, check if the database information is correct.", "Failure"
, MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) GoTo myFlagError End TryDim Succ As Boolean = True Dim SQLUpdate As New Process Dim files As FileInfo Dim dir As DirectoryInfo = New DirectoryInfo ( "Sql /") For Each FILES in Dir.GetFiles
SQLUPDATE.StartInfo.FileName = "osql.exe" sqlupdate.startinfo.arguments = string.format ("- u {0} -p {1} -d {2} -i {3}", dbadmin.text, dbpasswd. TEXT, DBNAME.TEXT, "SQL /" & Files.Name "try sqlupdate.closexit () sqlupdate.closeXIT () sqlupdate.close () SQLUPDATE.CLOSE ()
Catch ex As Exception MessageBox.Show ( "upgrade database scripts" & files.Name & "failed! **** Please contact the Beijing company.", "Failure", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions. DefaultDesktopOnly) Succ = False End Try Next If Succ = True Then MessageBox.Show ( "script database has been successfully upgraded!", "success", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) End If End If
MyFLAGERROR: 'Connecting Database Failed Error!
