生成数据库SQL语句

sql 代码

1. --前提是utl_file_dir不能为空，必需修改initsid.ora文件然后重启数据库   
2. CREATE OR REPLACE PROCEDURE genins_file(   
3. p_table  IN varchar2,   
4. p_output_folder IN VARCHAR2,   
5. p_output_file   INVARCHAR2)   
6. IS  
7.   --   
8.  l_column_list   VARCHAR2(32767);   
9.  l_value_list    VARCHAR2(32767);   
10.  l_query         VARCHAR2(32767);   
11.  l_cursor        NUMBER;   
12.   ignore  NUMBER;   
13.  l_insertline1   varchar2(32767);   
14.  l_insertline2   varchar2(32767);    
15.  cmn_file_handle      UTL_FILE.file_type;   
16.   --   
17.   FUNCTION get_cols(p_table VARCHAR2)   
18.   RETURN VARCHAR2   
19.   IS  
20.     l_colsVARCHAR2(32767);   
21.     CURSORl_col_cur(c_table VARCHAR2) IS  
22.            SELECT column_name   
23.            FROM   user_tab_columns   
24.            WHERE  table_name = upper(c_table)   
25.            ORDER BY column_id;   
26.   BEGIN  
27.     l_cols :=null;   
28.     FOR rec INl_col_cur(p_table)   
29.     LOOP   
30.      l_cols := l_cols || rec.column_name || ',';   
31.     ENDLOOP;   
32.     RETURNsubstr(l_cols,1,length(l_cols)-1);   
33.   END;   
34.   --   
35.   FUNCTION get_query(p_table IN VARCHAR2)   
36.   RETURN VARCHAR2   
37.   IS  
38.     l_queryVARCHAR2(32767);   
39.      CURSOR l_query_cur(c_table VARCHAR2) IS  
40.        SELECT 'decode('||column_name||',null,''null'','||   
41.               decode(data_type,'VARCHAR2','''''''''||'||column_name||'||'''''''''   
42.               ,'DATE','''''''''||to_char('||column_name||',''YYYY-MM-DDHH24:MI:SS'')||'''''''''   
43.               ,column_name   
44.               ) || ')' column_query   
45.          FROM user_tab_columns   
46.         WHERE table_name = upper(c_table)   
47.        ORDER BY column_id;   
48.   BEGIN  
49.     l_query :='SELECT ';   
50.     FOR rec INl_query_cur(p_table)   
51.     LOOP   
52.      l_query := l_query || rec.column_query || '||'',''||';   
53.     ENDLOOP;   
54.     l_query :=substr(l_query,1,length(l_query)-7);   
55.     RETURNl_query || ' FROM ' || p_table;   
56.   END;   
57.   --   
58. BEGIN  
59.   l_column_list  :=get_cols(p_table);   
60.  l_query       := get_query(p_table);   
61.   l_cursor := dbms_sql.open_cursor;   
62.   DBMS_SQL.PARSE(l_cursor, l_query,DBMS_SQL.native);   
63.   DBMS_SQL.DEFINE_COLUMN(l_cursor, 1,l_value_list, 32767);   
64.   ignore := DBMS_SQL.EXECUTE(l_cursor);   
65.   --   
66.   IF NOT UTL_FILE.IS_OPEN(cmn_file_handle)THEN  
67.        cmn_file_handle := UTL_FILE.FOPEN (p_output_folder, p_output_file,'a',32767);   
68.   END IF;   
69.     
70.   LOOP   
71.     IFDBMS_SQL.FETCH_ROWS(l_cursor)>0 THEN  
72.      DBMS_SQL.COLUMN_VALUE(l_cursor, 1, l_value_list);   
73.      l_insertline1:='INSERT INTO '||p_table||'('||l_column_list||')';   
74.      l_insertline2:=' VALUES ('||l_value_list||');';   
75.      UTL_FILE.put_line (cmn_file_handle, l_insertline1);   
76.      UTL_FILE.put_line (cmn_file_handle, l_insertline2);   
77.     ELSE  
78.      EXIT;   
79.     ENDIF;   
80.   END LOOP;   
81.   IF NOT UTL_FILE.IS_OPEN(cmn_file_handle)THEN  
82.     UTL_FILE.FCLOSE (cmn_file_handle);   
83.   ENDIF;     
84. END;   
85. /