Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
Это да, функция и результат выполнения возвращать не надо.m0p3e писал(а):Итак это все-таки функция, хотя в первом сообщении названа процедурой.
Нужно ли возвращать результат выполнения? Когда экспериментировал с функциями - был какой-то глюк. Подробностей уже не помню за давностью. Всегда использую процедуры.
Код: Выделить всё
sqlExecDirect('F_IMPORT_NZ(#comp(' + KatsoprNrec + '), ( ' + d1 + ', ' + d2 + '))');
А почему d1 и d2 в скобках ?Руслан писал(а):А как передать в процедуру несколько параметров? Пробовал так:Код: Выделить всё
sqlExecDirect('F_IMPORT_NZ(#comp(' + KatsoprNrec + '), ( ' + d1 + ', ' + d2 + '))');
Так я и спрашиваю как правильно... Пробовал еще так:А почему d1 и d2 в скобках ?
Код: Выделить всё
sqlExecDirect('F_IMPORT_NZ('KatsoprNrec', 'd1', 'd2')');
Как-то так:Руслан писал(а):Но ругается на скобку...Код: Выделить всё
sqlExecDirect('F_IMPORT_NZ('KatsoprNrec', 'd1', 'd2')');
Код: Выделить всё
sqlExecDirect('F_IMPORT_NZ(#comp(' + KatsoprNrec + '),#date(' + d1 +'),#date(' + d2 +'))');Код: Выделить всё
SQL Procedure TESTPRO (
s : string
);
var
c1 : comp;
{
c1 := #comp(0);
c1 :=(
SELECT nrec FROM katorg where name=s
);
return c1;
}
-----------------------
.form sss
.ard
.table blank
.var
stmt : longint;
li4 : integer;
s: string;
n_rec : comp;
.endvar
.begin
s:='Абанина Бэла Олеговна';
stmt := sqlAllocStmt;
sqlBindCol(stmt,1,n_rec);
SqlBindParam(stmt, 1,s);
LI4:= SQLEXECSTMT(STMT,'TESTPRO(?)');
Message('li4='+li4);
sqlFetch(stmt);
Message('nrec='+n_rec);
end.
.endform
но лень допинывать...тем не менее процедуры вызвалась на серваке и отработалаКод: Выделить всё
sqlExecDirect('F_IMPORT_NZ(#comp(' + KatsoprNrec + '),#date(' + d1 +'),#date(' + d2 +'))');
Код: Выделить всё
sqlExecDirect('F_IMPORT_NZ(''KatsoprNrec'', ''d1'', ''d2'')');
Код: Выделить всё
stmt := sqlAllocStmt;
sqlBindCol(stmt, 1, nresult);
sqlBindParam( stmt, 1, KatsoprNrec );
sqlBindParam( stmt, 2, d1 );
sqlBindParam( stmt, 3, d2 );
sqlExecStmt(stmt, 'select top 1 F_IMPORT_NZ (?, ?, ?) from GROUPUSL');
while sqlFetch(stmt) = tsOk do
nresult2:=string(nresult);
sqlFreeStr(stmt);
Что мешает взять да и попробовать перерегистрировать процедуру с нужным количеством параметров ?Руслан писал(а):Может влияет то, что хранимку я регистрировал с одним входным параметром katsoprnrec, а потом уже в ORACLE добавил еще два параметра (дата начала d1 и дата конца d2). Потому как до того
как добавил эти два параметра, процедура вызывалась.