lcConStr = "Provider=vfpoledb;Data Source=" + lcDBcName oCon = CreateObject("ADODB.connection") oCmd = CreateObject("ADODB.Command") oRs = CreateObject("ADODB.RecordSet") oCon.Open(lcConStr) oCmd.ActiveConnection = oCon oRs.ActiveConnection = oCon oCmd.CommandType = 4 && Stored Procedure oCmd.CommandText = [RetProdRs("C%")] oRs.Source = oCmd oRs.Open() ... * Stored procedure RetProdRs PROCEDURE RetProdRs LPARAMETERS tcPar1 SELECT * ; FROM prod ; WHERE eng_name LIKE tcPar1 ; INTO CURSOR crsRetRs EXECSCRIPT([SETRESULTSET("crsRetRs")]) RETURNThis one shows how to call stored procedure that returns scalar value
oCmd.CommandType = 4 && Stored Procedure oCmd.CommandText = [Test("Date :")] oRs = oCmd.Execute() * Display return value ? oRs.Fields("return_value").Value ... PROCEDURE test(tcPrefix) RETURN tcPrefix + Dtos(DATETIME())