>Hi all,
> In the list of supported commands for rules, triggers, defaults and stored procedures in the Fox docs, it lists SET PROCEDURE as a valid command. I however can't seem to get it to work. Basically my call to SET PROCEDURE works, but when I try to call a function in the PRG it fails. However if I call a procedure in the prg by using DO Blah IN BlahPRG it works.
>
>Here's the code I have in 3 files. The calling PRG (ConTest.prg)(This will actually be done from VB, but I created this as a test), the PRG that is referenced in the SET PROC command (SetMe.prg) and the stored procedure in the DBC.
>
>Am I doing something wrong, or does this just not work?
>
>

>*---------------------------------------------------------------------
>*ConTest.prg
>*---------------------------------------------------------------------
>#include "adovfp.h"
>
>LOCAL Con as ADODB.Connection
>LOCAL Cmd as ADODB.Command
>Con = CREATEOBJECT("ADODB.Connection")
>Cmd = CREATEOBJECT("ADODB.Command")
>Con.Open("Provider=vfpoledb.1;Data Source=.\sample.dbc")
>Cmd.ActiveConnection = Con
>Cmd.CommandText = "exec StoredTest('Test', 1234)"
>Cmd.Parameters.Append(Cmd.CreateParameter("return_code", adChar, adParamReturnValue, 8))
>Cmd.Execute &&OLEDB Provider Error: File 'settest.prg' does not exist.
>?Cmd.Parameters.Item("return_code").Value
>Cmd = ""
>Con.Close
>*---------------------------------------------------------------------
>
>
>*---------------------------------------------------------------------
>*SetMe.prg
>*---------------------------------------------------------------------
>FUNCTION SetTest
>	PARAMETERS param1
>	RETURN param1
>
>PROCEDURE SetTestProc
>	PARAMETERS param1
>	RETURN
>*---------------------------------------------------------------------
>
>*---------------------------------------------------------------------
>*Stored Procedure in sample.dbc
>*---------------------------------------------------------------------
>FUNCTION StoredTest
>	PARAMETERS Param1, Param2
>	LOCAL RetVal
>
>	DO SetTestProc in SetMe with Param2  &&This works
>	SET PROCEDURE TO SetMe
>	RetVal = SetTest(Param1)  &&This Fails
>	RETURN RetVal
>*---------------------------------------------------------------------
>

>
>Thanks in advance!

It doesn't work AFAIK. Do ... works and I use that one when I desperately need it.
Cetin