Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
TEXTMERGE something
Message
 
To
05/05/2007 16:04:23
Mark Goldin
Niles, Illinois, United States
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Re: TEXTMERGE something
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Vista
Miscellaneous
Thread ID:
01222744
Message ID:
01222768
Views:
27
>>>>I am using TEXTMERGE to create SQL commands. I am trying to use it in an Automation Server that's called from an ASP page. Something strange. If I use it in my error method then line of code after it is not executed.
>>>>...
>>>>lcErrText = MESSAGE() + ' ' + cMethod + ' ' + STR(nLine)
>>>>TEXT TO lcSql TEXTMERGE NOSHOW
>>>> usp_UpdateErrors '<>'
>>>>ENDTEXT
>>>>This.mExecutesqlCommand(lcSql, '', '') && is not executed
>>>>...
>>>>if I use lcSql = "usp_UpdateErrors '" + lcErrText + "'" instead
>>>>then everything is fine.
>>>>Any idea?
>>>>
>>>>Thanks
>>>
>>>Hmmm,
>>>Did you see the difference between:
>>>usp_UpdateErrors tcErrText (with <<>> around tcErrText)
>>>and
>>>"usp_UpdateErrors '" + lcErrText + "'"
>>>?
>>I think I got code sample wrong:
>>TEXT TO lcSql TEXTMERGE NOSHOW
>> usp_UpdateErrors '<>'
>>ENDTEXT
>>Here how it should be.
>
>still did not work.
>
>TEXT TO lcSql TEXTMERGE NOSHOW
>	usp_UpdateErrors '<<tcErrText>>'
>ENDTEXT	
>
OK, what AERROR says?
TEXT TO lcSql TEXTMERGE NOSHOW
    usp_UpdateErrors '<<tcErrText>>'
ENDTEXT	
This.mExecutesqlCommand(lcSql, '', '') && is not executed
** Because IO don't know what code you have in mExecutesqlCommand() method
** I suggest you to put AERROR immediately AFTER  you executing the string

*** 
IF SQLEXEC(...., lcSQL,[CursorGoHere]) < 0
   AERROR(laError)
   MessageBox(laError[1,2]) && Or write it to LOG file if you build DLL
ENDIF
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform