Aufruf: API Funktionen

LONG = APISQLExecEx(nConn AS LONG , cSQL AS STRING , cCursorsVariables AS STRING , cArrayName AS STRING , nFlags AS LONG , cCursorSchema AS STRING , cParamSchema AS STRING , cCallback AS STRING , nCallbackinterval AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APISQLExecEx (nConn AS LONG ,cSQL AS STRING ,cCursorsVariables AS STRING ,cArrayName AS STRING ,nFlags AS LONG ,cCursorSchema AS STRING ,cParamSchema AS STRING ,cCallback AS STRING ,nCallbackinterval AS LONG ) AS LONG
	*/ DECLARE LONG SQLExecEx IN vfp2c32.fll AS APISQLExecEx LONG nConn,STRING cSQL,STRING cCursorsVariables,STRING cArrayName,LONG nFlags,STRING cCursorSchema,STRING cParamSchema,STRING cCallback,LONG nCallbackinterval
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN SQLExecEx()
		CASE PCOUNT()=1
			RETURN SQLExecEx(m.nConn)
		CASE PCOUNT()=2
			RETURN SQLExecEx(m.nConn,m.cSQL)
		CASE PCOUNT()=3
			RETURN SQLExecEx(m.nConn,m.cSQL,m.cCursorsVariables)
		CASE PCOUNT()=4
			RETURN SQLExecEx(m.nConn,m.cSQL,m.cCursorsVariables,m.cArrayName)
		CASE PCOUNT()=5
			RETURN SQLExecEx(m.nConn,m.cSQL,m.cCursorsVariables,m.cArrayName,m.nFlags)
		CASE PCOUNT()=6
			RETURN SQLExecEx(m.nConn,m.cSQL,m.cCursorsVariables,m.cArrayName,m.nFlags,m.cCursorSchema)
		CASE PCOUNT()=7
			RETURN SQLExecEx(m.nConn,m.cSQL,m.cCursorsVariables,m.cArrayName,m.nFlags,m.cCursorSchema,m.cParamSchema)
		CASE PCOUNT()=8
			RETURN SQLExecEx(m.nConn,m.cSQL,m.cCursorsVariables,m.cArrayName,m.nFlags,m.cCursorSchema,m.cParamSchema,m.cCallback)
		CASE PCOUNT()=9
			RETURN SQLExecEx(m.nConn,m.cSQL,m.cCursorsVariables,m.cArrayName,m.nFlags,m.cCursorSchema,m.cParamSchema,m.cCallback,m.nCallbackinterval)
	ENDCASE
ENDFUNC