** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de4 génération
** *******************************************************************************************
 
** Exemple  : SQL
** *****************************************************************************************

#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
 SetEnvDataBaseSQL{Fox}("c:\EndUser4gl\4gl\hlp\instructionsSql\FoxPro\Database");

** --------------------------------------------------------------------------------- **
**                                             DROP TABLE :SUPPRESSION               **
** --------------------------------------------------------------------------------- ** 

   ExecuteSQL{Fox}(  "DROP TABLE  TableIns   ");          
  
** --------------------------------------------------------------------------------- **
**                                             CREATE TABLE                          **
** --------------------------------------------------------------------------------- ** 

 ExecuteSQL{Fox}("CREATE TABLE TableIns (Prenom CHAR (50 ) , Nom CHAR(30))") ;
  
 
** --------------------------------------------------------------------------------- **
**                                             INSERT INTO                           **
** --------------------------------------------------------------------------------- ** 
     
  ExecuteSQL{Fox}(  "INSERT INTO  TableIns  
                       (Prenom,Nom) VALUES ( 'loulou1','BergXXXXXXXXXXX1')   ");   
  ExecuteSQL{Fox}(  "INSERT INTO  TableIns  
                       (Prenom,Nom) VALUES ( 'loulou2','BergXXXXXXXXXXX2')  ");  
  ExecuteSQL{Fox}(  "INSERT INTO  TableIns  
                       (Prenom,Nom) VALUES ( 'loulou3','BergXXXXXXXXXXX3')  ");          
   ExecuteSQL{Fox}(  "INSERT INTO  TableIns  
                       (Prenom,Nom) VALUES ( 'loulou3','BergXXXXXXXXXXX4')  ");          
  ExecuteSQL{Fox}(  "INSERT INTO  TableIns  
                       (Prenom,Nom) VALUES ( 'loulou5','BergXXXXXXXXXXX5')  ");          

** --------------------------------------------------------------------------------- **
**                                             SELECT   and DISPLAY                  **
** --------------------------------------------------------------------------------- ** 

    ExecuteSQLDialog{Fox}(  "SELECT * FROM  TableIns WHERE  Prenom <> 'loulou2'  ");