MAKEMSI quickly and reliably creates MSI files in a non-programmatic way
Have your say! Join the MAKEMSI discussion list or view archive! Suggest improvements. No question too simple or too complex.
[Bottom][Contents][Prev]: MakeSfnLfn()[Next]: VbsCheck()
Have your say! Join the MAKEMSI discussion list or view archive! Suggest improvements. No question too simple or too complex.
\->Source Code->VBSCRIPT->VBSCRIPT Functions - For Imbedded VB->TableExists()

TableExists()

The purpose of this boolean function is to tell you whether or not a table exists (true = yes).

The function takes these parameters:

  1. The name of the table.

EXAMPLE #1

if TableExists("Property") then
   ;--- Table exists ---
   <$Property "ARPCOMMENTS" VALUE="Some optional comment">
end if

EXAMPLE #2

;--- Create "DeleteTableIfEmpty" command ------------------------------------
#( '<?NewLine>'

    #define DeleteTableIfEmpty

    ;--- No point doing anything if the table doesn't exist -----------------
    if  TableExists("{$#1}") then
        ;--- "open" the table -----------------------------------------------
        <$Table "{$#1}">
            ;--- Count number of rows in the table --------------------------
            #RexxVar '@@VbVariable' = 'DeleteTableIfEmpty_<?Unique>'
            dim <??@@VbVariable> : <??@@VbVariable> = 0
            <$Row @Where="" @Code="Y" @VALIDATE="">
                  <??@@VbVariable> = <??@@VbVariable> + 1
            <$/Row>

            ;--- If no rows in the table then delete it ---------------------
            if  <??@@VbVariable> = 0 then
                <$TableDelete>
            end if
       <$/Table>
   end if
#)

;--- Try the "DeleteTableIfEmpty" command -----------------------------------
<$DeleteTableIfEmpty "IniFile">


Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.Please email me any feedback, additional information or corrections.
See this page online (look for updates)

[Top][Contents][Prev]: MakeSfnLfn()[Next]: VbsCheck()


MAKEMSI© is (C)opyright Dennis Bareis 2003-2008 (All rights reserved).
Saturday December 09 2017 at 9:30am
Visit MAKEMSI's Home Page
Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.