Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
CHR(13) and EXECSCRIPT() error
Message
 
À
19/09/2005 07:36:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP1
Database:
Visual FoxPro
Divers
Thread ID:
01050807
Message ID:
01050810
Vues:
17
#define CRLF CHR(13)+CHR(10)

IF !FILE('c:\temp\test.dbf')
CREATE TABLE c:\temp\test (nVal I autoinc, cText C(30), mText M)
ENDIF && FILE('c:\temp\test.dbf')

lcFldList = "cText, mText"
lcFldVal1 = "Text"
lcFldVal2 = ["Line 1" + CHR(13) + "Line 2"]
lcTbl     = "c:\temp\test"

lcInsertStr = "INSERT INTO " + lcTbl +;
              " (" + lcFldList + [) VALUES("] + lcFldVal1 + [",] + lcFldVal2 + [)]
?lcInsertStr

TRY
   *!* &lcInsertStr
   EXECSCRIPT(lcInsertStr)
CATCH TO loErr
   MESSAGEBOX("lcInsertStr failed" + CRLF + lcInsertStr + CRLF + loErr.message, 0, "Info")
ENDTRY
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform