Windows Installer API (SDK)

Upgrade Table

Referenz » Upgrade Table | Microsoft Docs

VBS class Upgrade

Class classUpgradeTable
Private mUpgradeCode, mVersionMin, mVersionMax, mLanguage
Private mAttributes, mRemove, mActionProperty

    Public Property Get pUpgradeCode
        pUpgradeCode = mUpgradeCode
    End Property
    Public Property Let pUpgradeCode(strUpgradeCode)
        mUpgradeCode = strUpgradeCode
    End Property
    Public Property Get pVersionMin
        pVersionMin = mVersionMin
    End Property
    Public Property Let pVersionMin(strVersionMin)
        mVersionMin = strVersionMin
    End Property
    Public Property Get pVersionMax
        pVersionMax = mVersionMax
    End Property
    Public Property Let pVersionMax(strVersionMax)
        mVersionMax = strVersionMax
    End Property
    Public Property Get pLanguage
        pLanguage = mLanguage
    End Property
    Public Property Let pLanguage(strLanguage)
        mLanguage = strLanguage
    End Property
    Public Property Get pAttributes
        pAttributes = mAttributes
    End Property
    Public Property Let pAttributes(intAttributes)
        mAttributes = intAttributes
    End Property
    Public Property Get pRemove
        pRemove = mRemove
    End Property
    Public Property Let pRemove(strRemove)
        mRemove = strRemove
    End Property
    Public Property Get pActionProperty
        pActionProperty = mActionProperty
    End Property
    Public Property Let pActionProperty(strActionProperty)
        mActionProperty = strActionProperty
    End Property

    Private Sub Class_Initialize
        'Anweisungen
    End Sub
    ' -----------------------------------------------------------------

    Public Function ModifyUpgradeRecord()
    Dim strSQL, objView, objTableRow

    strSQL = "SELECT * FROM Upgrade"

    Set objView = objDatabase.OpenView(strSQL)
    objView.Execute
    Do 
        Set objTableRow = objView.Fetch
        If objTableRow Is Nothing Then
            Set objTableRow = objInstaller.CreateRecord(7)
            objTableRow.StringData(1) = mUpgradeCode
            objTableRow.StringData(2) = mVersionMin
            objTableRow.StringData(3) = mVersionMax
            objTableRow.StringData(4) = mLanguage
            objTableRow.IntegerData(5) = mAttributes
            objTableRow.StringData(6) = mRemove
            objTableRow.StringData(7) = mActionProperty
            objView.Modify msiViewModifyAssign, objTableRow
            Exit Do
        End If
            objTableRow.StringData(1) = mUpgradeCode
            objTableRow.StringData(2) = mVersionMin
            objTableRow.StringData(3) = mVersionMax
            objTableRow.StringData(4) = mLanguage
            objTableRow.IntegerData(5) = mAttributes
            objTableRow.StringData(6) = mRemove
            objTableRow.StringData(7) = mActionProperty
        objView.Modify msiViewModifyAssign, objTableRow
    Loop
    objDatabase.Commit()
    objView.Close
    Set objView = Nothing

    End Function
    ' -----------------------------------------------------------------

    Private Sub Class_Terminate()
        'Anweisungen
    End Sub
End Class
' ---------------------------------------------------------------------