select CAST(COUNT(*) AS NUMBER(10)) AS extent_number from user_extents>What is the problem with this CursorAdapter ?
CREATE OR REPLACE PACKAGE GetCurrentID AS TYPE t_RefCur IS REF CURSOR; FUNCTION GetCurrVal(p_SeqName IN VARCHAR2) RETURN t_RefCur; END; / show error CREATE OR REPLACE PACKAGE BODY GetCurrentID AS FUNCTION GetCurrVal(p_SeqName IN VARCHAR2) RETURN t_RefCur IS v_ReturnCursor t_RefCur; v_SQLStatement VARCHAR2(200); BEGIN v_SQLStatement := 'select cast(' || p_SeqName || '.CurrVal AS NUMBER(8,0)) as KeyID FROM Dual'; OPEN v_ReturnCursor FOR v_SQLStatement; RETURN v_ReturnCursor; END; END; / show errorThe VFP code for the following CA property (new in VFP9) looks like:
INSERTCMDREFRESHCMD = [{CALL GetCurrentID.GetCurrVal('s_sequence_name_here')}]