string Emp_state_var
string sql

sql = "execute dbo.xp_test_raiseeror @parm=1234567, @parm2='wasweissich'"

DECLARE my_proc DYNAMIC PROCEDURE FOR SQLSA ;

PREPARE SQLSA FROM  :sql ;

EXECUTE DYNAMIC my_proc USING :Emp_state_var ;

FETCH my_proc INTO :Emp_state_var ;

CLOSE my_proc ;

string Emp_state_var
string sql

sql = "execute dbo.xp_test_raiseeror @parm=1234567, @parm2='wasweissich'"

DECLARE my_proc DYNAMIC PROCEDURE FOR SQLSA ;

PREPARE SQLSA FROM  :sql ;

EXECUTE DYNAMIC my_proc USING :Emp_state_var ;

FETCH my_proc INTO :Emp_state_var ;

CLOSE my_proc ;

string Emp_state_var
string sql

sql = "execute dbo.xp_test_raiseeror @parm=1234567, @parm2='wasweissich'"

DECLARE my_proc DYNAMIC PROCEDURE FOR SQLSA ;

PREPARE SQLSA FROM  :sql ;

EXECUTE DYNAMIC my_proc ;

FETCH my_proc INTO :Emp_state_var ;

CLOSE my_proc ;

FETCH my_proc INTO :Emp_state_var ;
DO WHILE SQLCA.SQLCode = 0

	FETCH my_proc INTO :Emp_state_var ;

LOOP

FETCH my_proc INTO :Emp_state_var ;
DO WHILE SQLCA.SQLCode = 0

	DO WHILE SQLCA.SQLCode = 0 // Вытягивание одного ResultSet 

		FETCH my_proc INTO :Emp_state_var ;
		// Его обработка
	LOOP
	FETCH my_proc INTO :Emp_state_var2 ; // Переход к следующему или завершение
LOOP
 

ALTER PROCEDURE [dbo].[xp_test_raiseeror] AS
BEGIN
	SELECT 1, 2, 3

	RAISERROR 35001 '{RaisError message from procedure.}'
	SELECT f_stub = cast( 'Var IV. empty string' AS varchar(50) )
END

datawindow	lds_datawindow
string	err, dwsyntax_str
long	ll_return

dwsyntax_str = SQLCA.SyntaxFromSQL ( "exec dbo.xp_test_raiseeror", "style(type=grid)", err )

IF Len(err) > 0 THEN

   MessageBox("Caution", "SyntaxFromSQL caused these errors: " + err)

   RETURN

END IF

lds_datawindow = dw_2 // Это datawindow в окне

lds_datawindow.create(dwsyntax_str, err)

IF Len(err) > 0 THEN

   MessageBox("Caution", "create caused these errors: " + err)

   RETURN

END IF

lds_datawindow.settransobject( SQLCA)

ll_return = lds_datawindow.retrieve()

if ll_return < 0 then
	
	Msgbox("ERROR Retrieve")  // никогда не случалось, в окне видно, что данные поступают
	
end if

// Проверка утверждения "При следующих любых обращения по коннекту:
// SQLCA.SQLErrText: Microsoft OLE DB Provider for SQL Server. Attempt to initiate a new SQL Server operation with results pending."

EXECUTE IMMEDIATE "SELECT 0" ; 

Msgbox(SQLCA.SQLErrText)  // SQLCA.SQLErrText чист всегда как душа ребенка.

ALTER PROCEDURE [dbo].[xp_test_raiseeror]
AS
BEGIN
if rand() > 0.5 
	GOTO ERROR
SELECT 1, 2, 3

ERROR:
    RAISERROR 35001 '{RaisError message from procedure.}'
    SELECT f_stub = cast( 'Var IV. empty string' AS varchar(50) )
END

EXECUTE IMMEDIATE "exec dbo.xp_test_raiseeror" ; 
EXECUTE IMMEDIATE "SELECT 0" ; 

Msgbox(SQLCA.SQLErrText)