Events for cDbUpdateVersion

Name

Type

Description

OnUpdate

Procedure

Automatically called when object is created. This is where the programmer places any code to update the database.



Sample


// These are needed to keep the compiler happy;

Declare_Datafile Customer

Declare_Datafile Invt

Declare_Datafile OrderDtl

Declare_Datafile OrderHea

Declare_Datafile OrdSys

Declare_Datafile SalesP

Declare_Datafile Users

Declare_Datafile Vendor


Object oDbUpdateHandler is an cDbUpdateHandler
    Set Data_File_Field to File_Field DbVersion.DatabaseVersion


    Object oUpdateVersion1.1 is a cDbUpdateVersion
        Set pnVersionNumber to 1.1
        Set pbUseConnectionID to True // Default = True

        Set pbCopyData to True        // Default = True

        Set pbRecnum to True          // Default = True

        Set pbToANSI to True          // Default = True

        // If the psDriverID is not set it is read from the SQLConnections.ini file.

       

        Procedure OnUpdate

            Boolean bOK

            Get ApiTableConvertToSQL Invt.File_Number       to bOK

            Get ApiTableConvertToSQL OrderHea.File_Number   to bOK

            Get ApiTableConvertToSQL OrderDtl.File_Number   to bOK

            Get ApiTableConvertToSQL OrdSys.File_Number     to bOK

            Get ApiTableConvertToSQL SalesP.File_Number     to bOK

            Get ApiTableConvertToSQL Vendor.File_Number     to bOK

        End_Procedure

    End_Object
 
    Object oDbUpdateVersion1.2 is a cDbUpdateVersion

        Set pnVersionNumber to 1.2


        Procedure OnUpdate

            Boolean bOK

            Get SQLColumnRename Customer.File_Number "Purchases" "YearlyPurchases" MSSQLDRV_ID to bOK

            Get SQLColumnAdd Customer.File_Number "IsPrinted" DF_BCD_DUF 4 0 True "1" to bOK

           

            // Alternate table conversion function that instead of setting properties like in

            // above passes a series of parameters.

            Get ApiTableConvertToSQL_Ex Users.File_Number MSSQLDRV_ID True True True True to bOK

        End_Procedure
    End_Object


    Object oUpdateVersion1.3 is a cDbUpdateVersion
        Set pnVersionNumber to 1.3
        Use VersionUpdate3.pkg
        :
    End_Object
 
End_Object