frmmain.vb

软件用于升级SQL数据库

Imports UtilityCommonDialog
Imports UtilityFileDirectory

Public Class frmMain

#Region "Constants"
    Private Const m_strConnectString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=%DatabaseFileName%"
    Private Const m_strDatabaseType As String = "Access"
    Private Const m_strDefaultScriptFileName As String = "UpgradeScript.txt"
#End Region

#Region "Data"
    Private WithEvents m_objSqlUpgrade As clsSqlUpgrade
    Private m_strAppPath As String
#End Region

#Region "Form Routines"
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
        End
    End Sub

    Private Sub btnFindDatabase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindDatabase.Click
        Try
            txtDatabaseFileName.Text = clsCommonDialog.DialogFileOpen(ctlFileDialog, "Backend Polaris Database File", "", "", "Access Database Files|*.mdb", True, True)
        Catch objEx As Exception
            WriteErrorRoutine(enumErrorLoggingMedium.MessageBox, _
                Me.GetType.Name, _
                "btnFindDatabase_Click", _
                objEx.Message)
            End
        End Try
    End Sub

    Private Sub btnFindScript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindScript.Click
        Try
            txtScriptFileName.Text = clsCommonDialog.DialogFileOpen(ctlFileDialog, "Database Upgrade Script File", "", "", "Text File|*.txt", True, True)
        Catch objEx As Exception
            WriteErrorRoutine(enumErrorLoggingMedium.MessageBox, _
                Me.GetType.Name, _
                "btnFindScript_Click", _
                objEx.Message)
            End
        End Try
    End Sub

    Private Sub btnLaunch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLaunch.Click
        Dim strConnectString As String
        Dim strErrorMsg As String = ""

        Try
            If txtDatabaseFileName.Text = "" _
                Or Not clsFileDirectory.IsFileExist(txtDatabaseFileName.Text) Then
                MsgBox("Select the database file to be upgraded", MsgBoxStyle.Exclamation)
                btnFindDatabase.Focus()
                Exit Sub
            End If
            If txtScriptFileName.Text = "" _
                Or Not clsFileDirectory.IsFileExist(txtScriptFileName.Text) Then
                MsgBox("Select the script file to be used", MsgBoxStyle.Exclamation)
                btnFindScript.Focus()
                Exit Sub
            End If
            Me.Cursor = Cursors.WaitCursor
            btnLaunch.Enabled = False
            btnExit.Enabled = False
            lblCount.Visible = True
            m_objSqlUpgrade = New clsSqlUpgrade
            ' Add the event handler for returning the line count
            AddHandler m_objSqlUpgrade.UpgradeLineProcessed, AddressOf Me.clsSqlUpgrade_UpgradeLineProcessed
            ' Run the upgrade processing
            strConnectString = Replace(m_strConnectString, "%DatabaseFileName%", txtDatabaseFileName.Text)
            strErrorMsg = m_objSqlUpgrade.UpgradeDatabase(m_strDatabaseType, _
                strConnectString, _
                txtScriptFileName.Text, _
                True, _
                txtDatabaseFileName.Text)
            Me.Cursor = Cursors.Default
            If strErrorMsg <> "" Then
                MsgBox(strErrorMsg, MsgBoxStyle.Critical)
            Else
                MsgBox("The database upgrade process has been successfully completed", MsgBoxStyle.Information)
            End If
            Me.Close()
            End
        Catch objEx As Exception
            WriteErrorRoutine(enumErrorLoggingMedium.MessageBox, _
                Me.GetType.Name, _
                "btnLaunch_Click", _
                objEx.Message)
            End
        End Try
    End Sub

    Private Sub clsSqlUpgrade_UpgradeLineProcessed(ByVal sender As Object, ByVal e As System.EventArgs)
        '
        '   Handle script line read event
        '
        Try
            lblCount.Text = Format(m_objSqlUpgrade.GetLineCount, "###,##0")
            lblCount.Refresh()
        Catch objEx As Exception
        End Try
    End Sub

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strScriptFileName As String

        m_strAppPath = clsFileDirectory.GetPathApp(True)
        strScriptFileName = m_strAppPath & m_strDefaultScriptFileName
        If clsFileDirectory.IsFileExist(strScriptFileName) Then
            txtScriptFileName.Text = strScriptFileName
        End If
    End Sub
#End Region

End Class