函数中插入数据出错

[asiancat]

在函数中有一段插入数据的代码，单独执行是好的。但是在函数中一执行到这个语句就保存，执行中断。
后来没办法，把插入数据的代码写成PROCEDURE,单独运行这个PROCEDURE也是好的，但是在函数中运行虽然不报错，但是没有效果。记录没有插入。

请大家帮我看看这个是什么原因啊？

[YY_MM_DD]

把代码贴出来哈

[iihero_]

没有commit?

[asiancat]

插入的PROCEDURE如下
INSERT INTO DM
(Vendor_SeqNum,
Vendor_ID,
Vendor_Name,
ORG_ID,
Vendor_SName,
Add_Date,
Valid_Flag)
VALUES
(AI_CODE, AS_FACNO, LS_NAME, AS_DEP, LS_SHORT, SYSDATE, 1);

begin
EXECUTE IMMEDIATE 'COMMIT';
end;

[asiancat]

调用它的函数中对应的代码

BEGIN
PROC_INSERT_FAC(AS_FACNO, AS_DEP, Result);
END;

[真的不知道取什么名]

[Quote=引用 3 楼 asiancat 的回复:]
插入的PROCEDURE如下
INSERT INTO DM
(Vendor_SeqNum,
Vendor_ID,
Vendor_Name,
ORG_ID,
Vendor_SName,
Add_Date,
Valid_Flag)
VALUES
(AI_CODE, AS_FACNO, LS_NAME, AS_DEP, LS_SHORT, SYSD……
[/Quote]把你过程的代码贴出来
EXECUTE IMMEDIATE 'COMMIT';？？什么意思

[心中的彩虹]

[Quote=引用楼主 asiancat 的回复:]
在函数中有一段插入数据的代码，单独执行是好的。但是在函数中一执行到这个语句就保存，执行中断。
后来没办法，把插入数据的代码写成PROCEDURE,单独运行这个PROCEDURE也是好的，但是在函数中运行虽然不报错，但是没有效果。记录没有插入。

请大家帮我看看这个是什么原因啊？
[/Quote]
不知道你怎么写的 函数必须返回值 过程可有可无

把你的函数代码 以及过程代码 全部贴上来

[cidmin]

应该是没有提交，在函数最后另起一行写：commit;

[asiancat]

//函数
create or replace function Fn_EXP_FAC(AS_FACNO IN varchar2,
AS_DEP IN VARCHAR2) return integer is
Result integer;
I INTEGER;

begin
--如果基本资料库中已经有工厂资料了就直接返回代码
--否则插入资料，返回代码
-- -1表示出错
if as_facno is null or trim(AS_FACNO) = '' THEN
RETURN - 1;
END IF;

if AS_DEP is null or trim(AS_DEP) = '' THEN
RETURN - 1;
END IF;

--先找找看有没有资料
SELECT COUNT(*)
INTO I
FROM TABLE1
WHERE Vendor_ID = AS_FACNO
AND ORG_ID = AS_DEP
AND Valid_Flag = 1;

IF I > 0 THEN
SELECT Vendor_SeqNum
INTO RESULT
FROM TABLE1
WHERE Vendor_ID = AS_FACNO
AND ORG_ID = AS_DEP
AND Valid_Flag = 1;
ELSE
--取供应商的名称
SELECT COUNT(*)
INTO I
FROM T_FAC
WHERE CST_NO = AS_FACNO
AND DEP_NO = AS_DEP;

IF I = 0 THEN
--插入警告，没有找到供应商的名称
proc_err_info('取供应商',
'没有找到供应商的信息',
AS_FACNO || '-' || AS_DEP,
'');
RETURN(-1);
END IF;

--没有工厂的代码，新增一个.首先取流水号
select VENDOR_SEQ.nextval into Result from dual;

BEGIN
PROC_INSERT_FAC(AS_FACNO, AS_DEP, Result);
END;
END IF;

RETURN(Result);
end Fn_EXP_FAC;

[asiancat]

//插入的过程

create or replace procedure PROC_INSERT_FAC(AS_FACNO IN varchar2,
AS_DEP IN VARCHAR2,
AI_CODE IN INTEGER) is
LS_NAME VARCHAR2(100);
LS_SHORT VARCHAR2(100);
begin
--按照指定的代理键插入一个供应商的基础资料
SELECT COMPANY, NVL(SHORTNAME, COMPANY)
INTO LS_NAME, LS_SHORT
FROM T_FAC
WHERE CST_NO = AS_FACNO
AND DEP_NO = AS_DEP;

INSERT INTO TABLE1
(Vendor_SeqNum,
Vendor_ID,
Vendor_Name,
ORG_ID,
Vendor_SName,
Add_Date,
Valid_Flag)
VALUES
(AI_CODE, AS_FACNO, LS_NAME, AS_DEP, LS_SHORT, SYSDATE, 1);

COMMIT;
EXCEPTION
--插入出错的记录
WHEN OTHERS THEN
proc_err_info('插入供应商',
SQLERRM,
AS_FACNO || '@' || AS_DEP || '@' || to_char(AI_CODE),
SQLCODE);
end PROC_INSERT_FAC;

[asiancat]

单独执行过程是可以的，但是在function里面就没有效果

[eviler]

调试以下函数 ，看到底传进去的参数值是多少 ，是不是和你想象的有出入呢

[zmercury]

if 判断 自己理理

[minitoy]

create table t_test_func_insert
(id number,
name varchar2(100));

SQL> create or replace function func_test_insert(i_str varchar2)
  2  return number
  3  as
  4  v_num number;
  5  begin
  6   select count(*) into v_num from t_test_func_insert;
  7   if v_num=0 then
  8      insert into t_test_func_insert values(1,i_str);
  9      return 1;
 10    end if;
 11    select max(id)+1 into v_num from t_test_func_insert;
 12    insert into t_test_func_insert values(v_num,i_str);
 13    return v_num;
 14  end;
 15  /
 
Function created
 
SQL> declare
  2  v_num number;
  3  begin
  4    v_num:=func_test_insert(1) ;
  5  end;
  6  /
 
PL/SQL procedure successfully completed
 
SQL> commit;
 
Commit complete
 
SQL> select * from t_test_func_insert;
 
        ID NAME
---------- --------------------------------------------------------------------------------
         1 1
 
SQL> 

习惯上是不是用函数做dml的.

[心中的彩虹]

[Quote=引用 8 楼 asiancat 的回复:]
//函数
create or replace function Fn_EXP_FAC(AS_FACNO IN varchar2,
AS_DEP IN VARCHAR2) return integer is
Result integer;
I INTEGER;

begin
--如果基本资料库中已经有工厂资料了就直接返回代码
--否则插入资料，返回代码
--……
[/Quote]

---你这函数中没有DML语句 
create or replace function Fn_EXP_FAC(AS_FACNO IN varchar2,AS_DEP IN VARCHAR2) return integer 
is
Result TABLE1.Vendor_SeqNum%type;
I INTEGER;
begin
if as_facno is null or trim(AS_FACNO) = '' or AS_DEP is null or trim(AS_DEP) = '' THEN
  RETURN -1;
ELSE

SELECT COUNT(*) INTO I FROM TABLE1
WHERE Vendor_ID = AS_FACNO AND ORG_ID = AS_DEP AND Valid_Flag = 1;
IF I > 0 THEN
  SELECT Vendor_SeqNum
  INTO RESULT
  FROM TABLE1
  WHERE Vendor_ID = AS_FACNO
  AND ORG_ID = AS_DEP
  AND Valid_Flag = 1;
  ELSE
  --取供应商的名称
  SELECT COUNT(*) INTO I FROM T_FAC
  WHERE CST_NO = AS_FACNO AND DEP_NO = AS_DEP;
ELSIF I = 0 THEN
  --插入警告，没有找到供应商的名称
  proc_err_info('取供应商','没有找到供应商的信息',AS_FACNO || '-' || AS_DEP,'');
  RETURN -1;
END IF;
select VENDOR_SEQ.nextval into Result from dual;
PROC_INSERT_FAC(AS_FACNO, AS_DEP, Result);
RETURN(Result);
END IF;
end Fn_EXP_FAC;