Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
What could cause error on this line
Message
De
11/10/2011 15:40:01
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, États-Unis
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01526039
Message ID:
01526073
Vues:
99
This message has been marked as a message which has helped to the initial question of the thread.
Unless I am missing something, this shouldn't be that hard. How does this look
SCAN 
lcTable = DataDict.TableName
select DataDict 

lcFields = "INSERT INTO "+lcTable+" ("
lcValues = "Values("
lcComma = ''
* seems to me that this should be scan for
   scan while  TableName = m.lcTable
    lcFields = lcFields + lcComma + CRLF + alltrim(FieldName)
    lcValues = lcValues + lcComma + CRLF + '?poRow.' + alltrim(FieldName)
    lcComma = ', '
   ENDSCAN
   lcInser = lcFields + ') '+CRLF + lcValues +')'
   PRIVATE poRow 
   * shouldn't there be a select data tabel here?
   SCAN FOR tablename = m.lcTable && not sure what condition this should be
    	SCATTER NAME poRow 
      sqlexec(hCon, m.lcInser)
      ENDSCAN
     endtext
   lcTable = DataDict.tableName
endscan
>>>I agree with everything you are saying. And just for the heck of it (even though VFP does not recommend) I will try to use TEXTMERGE within TEXTMERGE just to see what comes out. Stay tuned.
>>
>>It is actually quite simple after I thought about it.
>>
>>To generate Insert command:
>>
>>
>> lcTable = DataDict.TableName
>>
>>select DataDict 
>>
>>   scan while  TableName = m.lcTable
>>    lcFields = lcFields + IIF(empty(m.lcFields,'') + ', ' + CRLF + alltrim(FieldName)
>>    lcValues = lcValues + IIF(empty(m.lcValues,'') + ', ' + CRLF + '?' + m.lcTable + '. ' + alltrim(FieldName)
>>   endscan
>>   text to lcPRG additive textmerge noshow
>>           text to lcInsert noshow
>>          INSERT INTO <<m.lcTable>> (
>>                    <<m.lcFields>>
>>                   )
>>             VALUES (
>>                 <<m.lcValues>>
>>            )
>>        endtext
>>       SCAN <<m.lcTable>>
>>
>>           sqlexec(hCon, m.lcInser)
>>      ENDSCAN
>>     endtext
>>   lcTable = DataDict.tableName
>>endscan
>>
>>The above is the idea from the top of my head, you may need just some slight changes.
>
>No, this will not work. Nexted TEXT TEXTMERGE do not work. What happens is that after the TEXT MERGE for lcInsert, the line SCAN m.lcTable (with brackets) gets error.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform