Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What could cause error on this line
Message
From
11/10/2011 15:40:01
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, United States
 
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01526039
Message ID:
01526073
Views:
98
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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform