Forum AtoutFox : Re: SQL et PostgreSql   

lun. 13 janvier 2020, 15h15

GLS
France
atoutfox.public.association

Re: SQL et PostgreSql

Bonjour,

LOCAL iReturn AS INTEGER, cValue AS STRING, cCurseur AS STRING

cValue = [INSERT INTO table1 (cTable1) VALUES ('Ma chaine de texte')]
iReturn = SQLEXEC(m.nHandle, m.cValue)
IF m.iReturn > 0
   =MESSAGEBOX('Ecriture réussie')
   cValue = [SELECT * FROM table1]
    cCurseur = 'c_sql'
   USE IN SELECT(m.cCurseur) && fermeture du curseur si déjà ouvert
   iReturn  = SQLEXEC(m.nHandle, m.cValue, m.cCurseur)
   IF m.iReturn > 0 AND USED(m.cCurseur)
       SELECT m.cCurseur
       BROWSE
    ELSE
       =MESSAGEBOX('Requête SELECT SQL non réalisée ou erronée..)
ENDIF
ELSE
=MESSAGEBOX('Requête INSERT SQL non réalisée ou erronée..)
ENDIF


Ce code fonctionne directement sur les tables POSTGRESQL. Si 'vTable1' et 'vTable2' sont des vues distantes VFP de Table1 et Table2 alors l'utilisation de SQLEXEC est inutile, un simple TABLEUPDATE() suffira.

Cordialement
GLS

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019525