>>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.
Let me try. Thanks.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
