插入时用来检测记录是否存在的Oracle存储过程

Question

我现在写了一个Oracle存储过程，当插入记录时，先检测记录是否存在，如果记录存在，则返回一个标识，不执行插入；否则继续执行。这是存储过程：Create or Replace package ref_types 
AS 
TYPE ref_cursor is REF CURSOR; 
End; 
/
CREATE OR REPLACE PROCEDURE INSERT_USERTABLE
(
USERNAME_str    IN usertable.USERNAME%TYPE,
USERTYPE    IN usertable.USERTYPE%TYPE,
PWD         IN usertable.PWD%TYPE,
AFTERINSERT OUT ref_types.ref_cursor,
ret OUT integer
) 
AS
bExist  int;--记录是否已经存在，0：不存在；1：存在
ErrorStr EXCEPTION;
BEGIN
SELECT  COUNT(*)  into  bExist
FROM  USERTABLE  WHERE  USERNAME = USERNAME_str;
IF(bExist >0)
THEN
dbms_output.put_line('该记录已经存在 ');
ret:=0;
RETURN;
END IF;
  INSERT  INTO USERTABLE  VALUES (USERNAME_str, USERTYPE, PWD);
  IF SQL%ROWCOUNT=0 THEN
     RAISE ErrorStr;
  END IF;
  COMMIT;
ret:=1;
  OPEN AFTERINSERT FOR
    SELECT ROWNUM AS COLUMID, USERTABLE.* FROM USERTABLE;
EXCEPTION
    WHEN ErrorStr THEN
         OPEN AFTERINSERT  FOR  SELECT  '出错误了!' FROM dual;     
    WHEN OTHERS THEN 
         OPEN AFTERINSERT  FOR  SELECT  '出错误了！' FROM dual;  
END INSERT_USERTABLE;
/
红色部分是我用来检测记录是否存在的，但是如果记录已经存在，还是会出现运行时错误；如果记录不存在，则可以正常插入，应该怎样改进呢？

Answer 1

我是楼主，我在补充一下我的问题：
我在存储过程中自定义了一场处理，我应该怎样在VC中获取这些异常，并如何处理呢？我的存储过程是将自定义的一场返回到游标中
EXCEPTION
  WHEN ErrorStr THEN
OPEN AFTERINSERT FOR SELECT '出错误了!' FROM dual; 
WHEN OTHERS THEN 
OPEN AFTERINSERT FOR SELECT '出错误了！' FROM dual; 
我该如何在VC中获取呢？

Answer 2

存儲過程的輸出參數可以在VC裏面獲得并判斷！      ret OUT integer
另外，我覺得樓主把問題複雜話了。
begin
    insert語句
     ret := 0; 
exception
    WHEN OTHERS THEN
        ret := 1;
end;
就可以了！

Answer 3

楼主的需求可不需要用存储过程实现吧  如果按照楼主写的 还要考虑数据的并发问题。建议以用 merge into 实现语法如下：  
MERGE INTO schema . table t_alias　　USING schema . { table | view | subquery } t_alias　　ON(condition)　　WHEN MATCHED THEN merge_update_clause　　WHEN NOT MATCHED THEN merge_insert_clause;

Answer 4

补充一下  Oracle锁的机制是 oracle只有在修改数据时加行锁，写入器不会阻塞读取器，同样读取器也不会阻塞写入器。