如何在oracle的存储过程中拼接sql语句.....................

Question

给每个变量一个默认值（null也可以），直接insert所有的字段

Answer 1

那如果是update的时候呐，如果是这个字段本来不为空的，我不想修改他？？？？我是想要做一个对于一个表通用的存储过程，如果这个表有100个字段，我现在只想对90个字段做update操作，可以用这个存储过程，如果我以后要改为对80个字段做update操作，也可以用这个存储过程。

Answer 2

try use execute immediate

Answer 3

CREATE OR REPLACE PROCEDURE P_TEST_INSERT(
p_aaa IN varchar2,
p_bbb IN varchar2,p_RowsInsert OUT Integer
) 
AS
v_CursorID   INTEGER;
v_InsertStr VARCHAR2(100);
v_ValuesStr varchar2(100);
BEGIN
  -- 为处理打开光标
  v_CursorID := DBMS_SQL.OPEN_CURSOR;
    
  -- 确定 SQL 字串.
  
  if p_aaa is not null then
  begin
    v_InsertStr := 'insert into test(AAA ';
    v_ValuesStr := 'values(:AAA ';
    
    if p_bbb is not null then
    begin
      v_InsertStr := v_InsertStr || ',BBB ';
      v_valuesStr := v_valuesStr || ',:BBB ';
    end if; 
  end;
  elsif p_bbb is not null then
  begin
    v_InsertStr := 'insert into test(BBB ';
    v_ValuesStr := 'values(:BBB ';      
  end if;
  
  v_InsertStr := v_InsertStr || ')';
  v_ValuesStr := v_valuesStr || ')';
  
  v_InsertStr := v_InsertStr || v_ValuesStr;
  
  -- 分析语句.
  DBMS_SQL.PARSE(v_CursorID, v_InsertStr, DBMS_SQL.NATIVE);
  
  --绑定变量
  if p_aaa is not null then
  begin
  DBMS_SQL.BIND_VARIABLE(v_CursorID, ':AAA', p_aaa);
  end if;
  
  if p_bbb is not null then
  begin
  DBMS_SQL.BIND_VARIABLE(v_CursorID, ':BBB', p_bbb);
  end if;
    
  -- 执行语句.
  p_RowsInsert := DBMS_SQL.EXECUTE(v_CursorID);
  
  --关闭光标.
  DBMS_SQL.CLOSE_CURSOR(v_CursorID);    /*EXCEPTION
  WHEN OTHERS THEN
    --关闭光标,然后激活错误.
    DBMS_SQL.CLOSE_CURSOR(v_CursorID);
    RAISE;*/
END;
这是我写的存储过程，请哪位高手帮我看看写的对不对，我是oralce8I的，它老是报编译错误，不知道是哪里错了？？？？？？？？？？？？？？？？？？？？？？？？？？？

Answer 4

CREATE OR REPLACE PROCEDURE p_test_insert(
  p_aaa IN VARCHAR2, p_bbb IN VARCHAR2, p_RowsInsert OUT NUMBER)
AS
  v_CursorID  INTEGER;
  v_InsertStr VARCHAR2(100);
  v_ValuesStr VARCHAR2(100);
BEGIN
  p_RowsInsert := 0;
  v_CursorID := DBMS_SQL.OPEN_CURSOR;  v_InsertStr := 'INSERT INTO test (';
  v_ValuesStr := ' VALUES (';  IF (p_aaa IS NOT NULL) THEN
    v_InsertStr := v_InsertStr || 'AAA,';
    v_ValuesStr := v_ValuesStr || ':AAA,';
  END IF;
  IF (p_bbb IS NOT NULL) THEN
    v_InsertStr := v_InsertStr || 'BBB,';
    v_ValuesStr := v_ValuesStr || ':BBB,';
  END IF;  v_InsertStr := SUBSTR(v_InsertStr,1,LENGTH(v_InsertStr)-1);
  v_ValuesStr := SUBSTR(v_ValuesStr,1,LENGTH(v_ValuesStr)-1);
  v_InsertStr := v_InsertStr || ')';
  v_ValuesStr := v_valuesStr || ')';
  v_InsertStr := v_InsertStr || v_ValuesStr;
  DBMS_OUTPUT.PUT_LINE('output:'||v_InsertStr );   --監視SQL語句  DBMS_SQL.PARSE(v_CursorID, v_InsertStr, DBMS_SQL.NATIVE);  IF (p_aaa IS NOT NULL) THEN
    DBMS_SQL.BIND_VARIABLE(v_CursorID, ':AAA', p_aaa);
  END IF;
  IF (p_bbb IS NOT NULL) THEN
    DBMS_SQL.BIND_VARIABLE(v_CursorID, ':BBB', p_bbb);
  END IF;  p_RowsInsert := DBMS_SQL.EXECUTE(v_CursorID);
  DBMS_SQL.CLOSE_CURSOR(v_CursorID);EXCEPTION
  WHEN OTHERS THEN
    DBMS_SQL.CLOSE_CURSOR(v_CursorID);
    p_RowsInsert := 0;
END;(注：可能是SQL語句有問題）

Answer 5

嗯，可能是sql语句的哪个字段不能为空或者类型不对引起的

Answer 6

-- 拼接任何sql语句
tmpsql := 'select sysdate from dual';
EXECUTE IMMEDIATE tmpsql;

Answer 7

动态SQL就可以啊，楼上的就是动态SQL

Answer 8

问题已经解决了，原来是PL/SQl语句写错了！