** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de4 génération
** *******************************************************************************************
 
 ** Exemple  : Inquire
 
  SetEnvDataBaseSQL{Fox}("c:\EndUser4gl\4GL\HLP\InstructionsSql\FoxPro\DataBase");
** --------------------------------------------------------------------------------- **
**                                             DROP TABLE :SUPPRESSION               **
** --------------------------------------------------------------------------------- ** 

   ExecuteSQL{Fox}(  "DROP TABLE  TabUpd   ");          

** --------------------------------------------------------------------------------- **
**                                             CREATE TABLE                          **
** --------------------------------------------------------------------------------- ** 

  ExecuteSQL{fox}( "CREATE TABLE TabUpd (colonne0  INTEGER,Colonne1 CHAR (50 ) , Colonne2 CHAR(30),salaire FLOAT)") ;
  
 
** --------------------------------------------------------------------------------- **
**                                             INSERT INTO                           **
** --------------------------------------------------------------------------------- ** 
     
  ExecuteSQL{Fox}(  "INSERT INTO  TabUpd  
                       (Colonne0,Colonne1,Colonne2,salaire) VALUES (1, 'loulou1','xxxxxx',-99999.10)  ");   
  ExecuteSQL{Fox}(  "INSERT INTO  TabUpd  
                       (Colonne0,Colonne1) VALUES (2, 'loulou2')  ");   
     ExecuteSQL{Fox}(  "INSERT INTO  TabUpd  
                       (Colonne0,Colonne1) VALUES (3, 'loulou1')  ");   
   ExecuteSQL{Fox}(  "INSERT INTO  TabUpd  
                       (Colonne0,Colonne1) VALUES (4, 'loulou2')  ");   
       ExecuteSQLDialog{Fox}(  "SELECT * FROM  TabUpd   ");        
** --------------------------------------------------------------------------------- **
**                                         UPDATE                            **
** --------------------------------------------------------------------------------- **      
   ExecuteSQL{Fox}(  "UPDATE  TabUpd 
                     SET colonne0 = 99    WHERE colonne1 = 'loulou1'    ");
** --------------------------------------------------------------------------------- **
**                                             SELECT   and DISPLAY                  **
** --------------------------------------------------------------------------------- ** 

    ExecuteSQLDialog{Fox}(  "SELECT * FROM  TabUpd   ");