Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
SQL Pass Through Problem
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
01063586
Message ID:
01063643
Views:
7
Ok, I see. Thanks

I'm open to suggestion on the best way to do this.




>The parameters are local and will not be visible outside the method they are defined.
>
>>Here is the code for the entire function. All paramter variables being passed
>>to SQL contained values when I ran it.
>>
>>
>>PROCEDURE HandleError(sAppName AS String, iErrNo AS Integer,;
>>                      sErrMessage AS String, sLineOfCode AS String,;
>>	              sProgram AS String, iLineNo AS int, sStack AS String)
>>	
>>  LOCAL iRetVal, sDateTime, sErrNo, sLineNo, sUserId, sMemory, sStatus
>>  LOCAL sSqlCommand
>>
>>  iRetVal = TRUE
>>
>>  WITH This
>>		
>>    ** Setup the connection
>>    IF .Setup()
>>
>>      tDateTime = DATETIME()
>>      sUserId   = UPPER(ALLTRIM(SUBSTR(SYS(0), AT("#", SYS(0))+1)))
>>
>>      TEXT TO sSqlCommand NOSHOW
>>
>>        insert into syserrors
>>	  (datetime, error, line, message, codeline, program,
>>	   [user], appname)
>>	values
>>	  (?tDateTime, ?iErrNo , ?iLineNo, ?sErrMessage, ?sLineOfCode,
>>           ?sProgram, ?sUserId, ?sAppName)
>>
>>      ENDTEXT
>>
>>
>>** Just added this code. Still prompted me for values
>>tDateTime   = DATETIME()
>>sUserId	    = UPPER(ALLTRIM(SUBSTR(SYS(0), AT("#", SYS(0))+1)))
>>iErrNo 	    = 1
>>iLineNo     = 2
>>sErrMessage = "Some message"
>>sLineOfCode = "Some code"
>>sProgram    = "Some program"
>>sAppName    = "Some app name"
>>
>>
>>      ** Run the insert command
>>      ._oSQLProcs.SQLCommand(sSqlCommand)
>>
>>      ** Check for and handle any errors that occured
>>      ._CheckForSQLError()
>>
>>    ENDIF
>>		
>>  ENDWITH
>>	
>>RETURN
>>	
>>ENDPROC
>>
>>
>>
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform