SqlUtilChangeIntFilesToConnectionIDs - cDbUpdateFunctionLibrary

Enumerates SQL columns/fields for the passed table name and driver ID.

Type: Procedure

Parameters: String sTableName, String sDriverID

Syntax

Procedure SqlUtilChangeIntFilesToConnectionIDs String sDataPath String sConnectionID Boolean bShowResult

Description

Use it to change update all intermediate files in a data-folder.

Example

Object oChangeAllIntFiles_btn is a Button

    Set Size to 13 65

    Set Location to 38 320

    Set Label to "GO !"

    Set psToolTip to "Changes or updates all .int files in the selected folder - except for ;

        DAW driver .int files (MSSQL_DRV.int, DB2_DRV.int & ODBC_DRV.int) - to use 'SERVER_NAME DFCONNID=xxx'"

    Set FontWeight to fw_Bold

    Set peAnchors to anTopRight

    Procedure OnClick

        String sDataPath sConnectionID

        Boolean bExists

        Integer iRetval

        Get Value of oSelectDataPath_fm to sDataPath

        Get vFolderExists sDataPath to bExists

        If (bExists = False) Begin

            Send Info_Box ("The data folder doesn't exist!\n" + sDataPath)

            Procedure_Return    

        End                

        Get Value of oConnectionID_fm to sConnectionID

        Move (Trim(sConnectionID)) to sConnectionID

        If (sConnectionID = "") Begin

            Send Info_Box "You need to specify a Connection_ID to use for the .int files."

            Procedure_Return

        End                

        Get YesNo_Box ("Do you want to change all .int files in folder:\n" + sDataPath + "\n\nTo use ;

             'DFCONNID=" + sConnectionID +"' ?") to iRetval

        If (iRetval <> MBR_Yes) Begin

            Procedure_Return

        End  

        Get YesNo_Box "All '.CCH' files will first be deleted. Continue?" to iRetval

        If (iRetval <> MBR_Yes) Begin

            Procedure_Return

        End

        Get vDeleteFile (sDataPath + "\*.cch") to iRetval

        If (iRetval <> 0) Begin

            Send Info_Box "Could not delete .cch files!"

            Procedure_Return

        End

        Send SqlUtilChangeIntFilesToConnectionIDs of ghoDbUpdateFunctionLibrary ;

             sDataPath sConnectionID True

        Send Info_Box "Ready! All .int files changed."

    End_Procedure

End_Object