Добрый день!

Как получить параметры возвращаемые процедурой ORACLE

nHandle = SQLCONNECT("TEST", "ИМЯ","ПАРОЛЬ")
c= SQLPREPARE(nHandle, "DECLARE err_nr number; trns_code number; err_msg VARCHAR2(400); BEGIN test.wrl_ext.PerformHARDputTRNS( err_nr, err_msg, trns_code, "+;
" substr(?PMDT,2,length(?PMDT)-2), ?TR_SUM, NULL,NULL,NULL, ?KOD_OP, "+ ;
" to_char(to_number(?ORD_NR)), to_date(?BSHEET_DT,'dd.mm.yyyy'),to_date(?VLDT,'dd.mm.yyyy'), "+;
" ?PAR_PAY_QUEUE, substr(?PAR_PAYER,2,length(?PAR_PAYER)-2), substr(?PAR_RECIP,2,length(?PAR_RECIP)-2), ?PAR_PAYER_ACC, "+;
" ?PAR_RECIP_ACC, ?PAR_PAYER_BIC, ?PAR_RECIP_BIC, ?PAR_PAYER_INN, ?PAR_RECIP_INN, ?PAR_PAYER_KPP,"+ ;
" ?PAR_RECIP_KPP, ?PAR_OKATO, ?PAR_KBK , ?PAR_TAX_REASON, ?PAR_TAX_PERIOD, ?PAR_TAX_DOC_N, ?PAR_TAX_TYPE,"+;
" ?PAR_TAX_STATUS, ?PAR_TAX_DATE ); "+;
" END;")

Т е я вызываю процедурину! Сама процедурина отрабатывает !
Она возвращает - должна вернуть! 3 параметра в моем случае!

err_nr number
trns_code
err_msg


КАК ЗАПОЛУЧИТЬ ИХ В VFP ?

"ЗАПСИБКОМБАНК" ОАО
Юрий Зайцев

leafчем команду на сервер передаете если так
SQLEXEC(nConnectionHandle, cSQLCommand, [CursorName] )

то CursorName задайте в нем должен быть результат


ДА!
если я ПРОСТО вызываю

cSQLCommand = "SELECT * FROM TABL1 where ... "

=SQLEXEC(nConnectionHandle, cSQLCommand, [CursorName]

То результат я получаю!

но я же вызываю ПРОЦЕДУРУ ORACL !
... BEGIN test.wrl_ext.PerformHARDputTRNS( ...

c= SQLPREPARE(nHandle, "DECLARE err_nr number; trns_code number; err_msg VARCHAR2(400); BEGIN test.wrl_ext.PerformHARDputTRNS( err_nr, err_msg, trns_code, "+;

А она не возвращает параметры в указаные мной переменные

err_nr
trns_code
err_msg

я полагаю что делаю что то не так!

Ну вот попроще вариант!
как добится результата !


s = 0
x = 1

c=sqlexec(1,"declare s number; begin s:=?x; end;")

Как добиться ! ТОЛЬКО это должен сделать ORACL и вернуть
получить s = 1

Igor KorolyovHi Yuriy!

На кой тебе там анонимный PL/SQL блок, я не знаю, а если "по нормальному"
делать, то примерно так:


Posted via ActualForum NNTP Server 1.1

Игорь спасибо!

LOCAL Yx
&& <-УБЕРИ LOCAL и все рухнет !!! yx станет равным = 0 после возврата
yx = 0
? SQLEXEC(nHandle, "declare s number; d number; begin ?@yx :=?yx+100; end;" )
yx = 100

ЭТО Я КАК ПРИМЕР ПРИВОДИЛ!!! дело в том что параметры просто не возвращались...

на самом деле вся проблема была в том что
параметры возвращаются ТОЛЬКО ЕСЛИ ИХ объявить LOCAL !!!