1.生成一个表的简单sql语句
CREATE OR REPLACE PROCEDURE proc_AutoGenerateSQL
(
tableName VARCHAR2 ,--参数 需要操作的表名 大小写区别
tableType NUMBER , -- 参数 对表操作类型 0 =insert 1 =update 2=select
sqlOrNet NUMBER ,-- 参数 需要生成那种格式sql 1 = sql 0 =net
tableOutStr OUT VARCHAR2 --参数 输出需要的sql
)
IS
sql_columns VARCHAR2(2000);
sql_columnvalues VARCHAR2(2000);
BEGIN
BEGIN
DECLARE
CURSOR c_t IS
SELECT column_id, column_name, data_type
FROM user_tab_columns where table_name = ''||tableName||'' order by column_id;
c_r c_t%ROWTYPE;
--开始游标创建需要列和值
BEGIN
OPEN c_t;
LOOP
FETCH c_t INTO c_r;
EXIT WHEN c_t%NOTFOUND;
IF sql_columns<>' ' THEN
BEGIN
--sql_columns := sql_columns||','||c_r.column_name;
IF c_r.data_type = 'DATE' THEN
IF tableType =1 THEN -- update
IF sqlOrNet = 1 THEN --1 sql 0 net
sql_columns :=sql_columns||','||c_r.column_name||'='||''''||to_char(SYSDATE,'yyyy-MM-dd HH:mm:ss')||'''';
ELSE
sql_columns :=sql_columns||','||c_r.column_name||'=:'||c_r.column_name;
END IF;
ELSE
sql_columns := sql_columns||','||c_r.column_name;
sql_columnvalues:=sql_columnvalues||','||''''||to_char(SYSDATE,'yyyy-MM-dd HH:mm:ss');
END IF ;
ELSIF c_r.data_type = 'NUMBER' THEN
IF tableType =1 THEN -- update
IF sqlOrNet = 1 THEN --1 sql 0 net
sql_columns :=sql_columns||','||c_r.column_name||'='||0;
ELSE
sql_columns :=sql_columns||','||c_r.column_name||'=:'||c_r.column_name;
END IF;
ELSE
sql_columns := sql_columns||','||c_r.column_name;
sql_columnvalues:=sql_columnvalues||','||0;
END IF ;
ELSE
IF tableType =1 THEN -- update
IF sqlOrNet = 1 THEN --1 sql 0 net
sql_columns :=sql_columns||','||c_r.column_name||'='||'''''';
ELSE
sql_columns :=sql_columns||','||c_r.column_name||'=:'||c_r.column_name;
END IF;
ELSE
sql_columns := sql_columns||','||c_r.column_name;
sql_columnvalues:=sql_columnvalues||','||'''''';
END IF ;
END IF ;
END ;
ELSE
BEGIN
IF c_r.data_type = 'DATE' THEN
IF tableType =1 THEN -- update
IF sqlOrNet = 1 THEN --1 sql 0 net
sql_columns :=c_r.column_name||'='||''''||to_char(SYSDATE,'yyyy-MM-dd HH:mm:ss')||'''';
ELSE
sql_columns :=c_r.column_name||'=:'||c_r.column_name;
END IF;
ELSE
sql_columns := sql_columns||c_r.column_name;
sql_columnvalues:=sql_columnvalues||''''||to_char(SYSDATE,'yyyy-MM-dd HH:mm:ss')||'''';
END IF;
ELSIF c_r.data_type = 'NUMBER' THEN
IF tableType =1 THEN -- update
IF sqlOrNet = 1 THEN --1 sql 0 net
sql_columns :=c_r.column_name||'='||0;
ELSE
sql_columns :=c_r.column_name||'=:'||c_r.column_name;
END IF;
ELSE
sql_columns := sql_columns||c_r.column_name;
sql_columnvalues:=sql_columnvalues||0;
END IF;
ELSE
IF tableType =1 THEN -- update
IF sqlOrNet = 1 THEN --1 sql 0 net
sql_columns :=c_r.column_name||'='||'''''';
ELSE
sql_columns :=c_r.column_name||'=:'||c_r.column_name;
END IF;
ELSE
sql_columns := sql_columns||c_r.column_name;
sql_columnvalues:=sql_columnvalues||'''''';
END IF;
END IF ;
END;
END IF ;
END LOOP;
--关闭游标
CLOSE c_t;
END;
END;
--0 =insert 1 =update 2=delete 3=select
--生成对于的sql
IF tableType=0 THEN
tableOutStr:='insert into '||tableName||' ('||sql_columns||') values('||sql_columnvalues||')';
ELSIF tableType=1 THEN
tableOutStr:='update '||tableName||' set '||sql_columns;
ELSE
tableOutStr:='select '||sql_columns||' from '||tableName;
END IF ;
END;