** ****************************************************************************************** *
**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");
 
** --------------------------------------------------------------------------------- **
**                                             CREATE TABLE                          **
** --------------------------------------------------------------------------------- ** 

  ExecuteSQL{Fox}( "CREATE TABLE TableDel (Prenom CHAR(50 ) , Nom CHAR(30) NOT NULL UNIQUE )") ;
  
 
** --------------------------------------------------------------------------------- **
**                                             INSERT INTO                           **
** --------------------------------------------------------------------------------- ** 
     
  ExecuteSQL{Fox}(  "INSERT INTO  TableDel  
                       (Prenom,Nom) VALUES ( 'loulou1','BergXXXXXXXXXXX1')  ");   
  ExecuteSQL{Fox}(  "INSERT INTO  TableDel  
                       (Prenom,Nom) VALUES ( 'loulou2','BergXXXXXXXXXXX2')  ");  
  ExecuteSQL{Fox}(  "INSERT INTO  TableDel  
                       (Prenom,Nom) VALUES ( 'loulou3','BergXXXXXXXXXXX1')  ");          
    ExecuteSQLDialog{Fox}(  "SELECT * FROM  TableDel   ");  
      
** --------------------------------------------------------------------------------- **
**                                             DELETE ENREG                          **
** --------------------------------------------------------------------------------- ** 
  ExecuteSQL{Fox}(     "DELETE   FROM TableDel  WHERE Prenom = 'loulou2'  ");

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

    ExecuteSQLDialog{Fox}(  "SELECT * FROM  TableDel   ");  
        
** --------------------------------------------------------------------------------- **
**                                             DROP TABLE :SUPPRESSION               **
** --------------------------------------------------------------------------------- ** 

 **  ExecuteSQL{Fox}(  "DROP TABLE  TableDel   ");