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:
01063638
Views:
7
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
>
>
>
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform