>>Exec FileRole_SelProc @KFileRole=?This.cSelectKey >>>>
>CLOSE DATABASES all >CLEAR >SET MULTILOCKS ON > >LOCAL oCA as CursorAdapter > >oCA=CREATEOBJECT("CursorAdapter") >oCA.AddProperty("cSelectKey","6E131438-A9EE-445D-902B-02AAD992A9B8") >oCA.SelectCmd="Exec #test @KFileRole=?This.cSelectKey" > >oCon=CREATEOBJECT("ADODB.Connection") >oCon.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Northwind;Data Source=(local)") >oCon.Execute("create procedure #test @KFileRole uniqueidentifier as select @KFileRole") >oRs=CREATEOBJECT("ADODB.Recordset") >oRS.ActiveConnection=oCon > >oCA.DataSource=oRS >oCA.DataSourceType="ADO" > >oCom=CREATEOBJECT("ADODB.Command") >oCom.ActiveConnection=oCon > >IF oCA.CursorFill(,,,oCom) > LIST >ELSE > AERROR(aerrs) > DISPLAY MEMORY LIKE aerrs >ENDIF > >RETURN >>