Вызов функции

[new player]

Всем доброго дня

Пытаюсь вызвать из Delphi функцию sql:

/*
		добавить группу
		возвращает идентификатор созданной группы
*/
function add_group (	p_group_code	varchar2, - код группы (макс 30 символов)
			p_group_name	varchar2  - имя группы (макс 128 символов)
			) return number;

В Oracle SQL Developer это реализуется следующим образом

declare
v number;
begin
  v:=SYS_ADM.ADMIN.ADD_GROUP(	'D4','G3');
end;

В Delphi использую ADOStoredProc. Подключаю его к нужным компонентам, в Procedure Name выбираю ADD_GROUP, вручную забиваю параметры.

ADOStoredProc.Parameters.ParamValues['p_group_code'] := Edit1.Text;
ADOStoredProc_add_group.Parameters.ParamValues['p_group_name'] := Edit2.Text;
ADOStoredProc_add_group.ExecProc;

Вылетает ошибка

ORA-06550: line 1, column 7:
PLS-00221:’ADD_GROUP’ is not a procedure or is undefined
ORA-06550: line1, column 7:
PL/SQL: Statement ignored.

Связана ошибка, видимо, с тем, что должен быть возвращен return number, но как это реализовать не знаю.

[soleil@mmc]

ну во-первых, имя процедуры будет ADMIN.ADD_GROUP (как я понял, у тебя эта функа описана в пакете)

ну и во-вторых, собсна возврат значения
но имхо проще сделать запрос вида

select ADMIN.ADD_GROUP('D4','G3') as res from dual

и проверь права на пакет

[new player]

Сообщение от soleil@mmc

ну во-первых, имя процедуры будет ADMIN.ADD_GROUP (как я понял, у тебя эта функа описана в пакете)

ну и во-вторых, собсна возврат значения
но имхо проще сделать запрос вида

select ADMIN.ADD_GROUP('D4','G3') as res from dual

и проверь права на пакет

soleil@mmc

Сделал так

ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select ADMIN.ADD_GROUP("D9","G9") as res from dual');
ADOQuery.ExecSQL;

Ошибка:

ORA-00904: ''G9' : invalid identifier

И такой же рассклад при любом втором параметре.

Вхожу в базу, как system. Остальные процедуры из пакет ADMIN доступны.

Что такое

as res from dual

?

[soleil@mmc]

это просто селект
его нужно открывать

ADOQuery.Open;

ну и ваще-то байнд_вариейбл рулит

var
  answer: double;
begin
.....

ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select ADMIN.ADD_GROUP(:p0, :p1) as res from dual');
ADOQuery.Params.ParamByName('p0').asString := 'D9';
ADOQuery.Params.ParamByName('p1').asString := 'G9';
ADOQuery.Open;
answer := ADOQuery.FieldByName('res').AsFloat;

...
end;

дуал - ну табличка такая в памяти для всяких полезных вещей (можешь погуглить для подробностей)

[new player]

Попробовал так:

ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select ADMIN.ADD_GROUP(:p0, :p1) as res from dual');
ADOQuery.Parameters.ParamByName('p0').asString := 'D9';
ADOQuery.Parameters.ParamByName('p1').asString := 'G9';
ADOQuery.Open;
answer := ADOQuery.FieldByName('res').AsFloat;

ругается

Undeclared identifier: 'asString'

Попробовал так

ADOQuery.Parameters.ParamByName('p_group_code').DataType := ftString;
ADOQuery.Parameters.ParamByName('p_group_code').Value := 'D9';

Ругается

Undeclared identifier: 'ftString'

[soleil@mmc]

ты для начала попробуй такой запрос в скл_девелопере или скл_плюсе

select ADMIN.ADD_GROUP('D9', 'G9') as res from dual

работает?
если нет, то ты не все рассказал про свою функу в пакете,
если да, то тебе нужно разбираться куда смотрят твои компоненты в приладе и т.п.