★如何将表中数据生成SQL文件？★

husthxd

最初由 yangtingkun 发布
[B]

如果select的时候指定了to_char，而且使用的格式是'YYYY-MM-DD HH24:MI:SS'，就不会和环境变量有关了。

用字符串表示日期，怎么使用索引，全部建立成函数索引吗？
用字符串表示日期，怎么计算两个日期中有多少天？怎么计算某个日期是星期几，不是还要转化为date去计算吗？ [/B]

偶这边也是用的char型,没有用date型.
1.查询的时候是:
column_name = '20050301'
会使用上索引.
2.诸如计算两个日期中有多少天的需求几乎没有

呵呵,一句话,怎么方便怎么用

husthxd

最初由 lwxxrq 发布
[B]强！偶一直都是用Toad做这事的。
想不到husthxd斑竹还是java行家啊 [/B]

toad/sql navigator都可以.
btw:其实java的世界也很精彩的

anzi_oracl

xzh2000 ,你好我根据你提供的代码创建存储过程后再执行时发生错误：
SQL> exec print_insert('www.gz',2);
*
ERROR 位于第1行：
ORA-00936: 缺少表达式
ORA-06512: 在"WWW.PRINT_INSERT", line 95
ORA-06512: 在line 1

请教怎么回事？

xzh2000

最初由 anzi_oracle 发布
[B]xzh2000 ,你好我根据你提供的代码创建存储过程后再执行时发生错误：
SQL> exec print_insert('www.gz',2);
*
ERROR 位于第1行：
ORA-00936: 缺少表达式
ORA-06512: 在"WWW.PRINT_INSERT", line 95
ORA-06512: 在line 1

请教怎么回事？ [/B]

你试试这个:
create or replace procedure print_insert(v_tname varchar2,v_cbatch number default 0)
/*
        v_tname  要输出sql的表名        作者:xzh2000@hotmail.com
        v_cbatch 输出commit间隔                博客:http://blog.itpub.net/xzh2000
*/
as
/* 声明动态游标变量 */
        type cur_alldata is ref cursor;
  l_alldata cur_alldata;
/* 将单行数据写入v_row*/
  v_sql varchar2(3999);
        v_row varchar2(3999);
/* 函数的前向声明 */
  function formatfield(v_tname varchar2,v_cname varchar2,v_colno number) return varchar2;
/* 格式化数据输出 */       
        function formatdata(v_tname varchar2,v_row varchar2) return varchar2
        as
                v_ldata varchar2(32765);
                v_rdata varchar2(32765);
                v_cname varchar2(3999);
                v_instr number(8);
                v_count number(6);
        begin
                v_instr := instr(v_row,'(');
                v_ldata := substr(v_row,1,v_instr);
                v_rdata := substr(v_row,v_instr+1);
                v_instr := instr(v_rdata,')');
                v_rdata := substr(v_rdata,1,v_instr-1);

                v_count := 0;
                loop
                        v_instr := instr(v_rdata,',');
                        v_count := v_count + 1;

                        exit when v_instr = 0;

                        v_cname := substr(v_rdata,1,v_instr-1);
                        v_rdata := substr(v_rdata,v_instr+1);
      
                        /* 格式化不同的数据类型 */
                        v_cname := formatfield(v_tname,v_cname,v_count);

                        /* 将处理后的字段值加入v_ldata */
                        if v_count = 1 then
                                 v_ldata := v_ldata||v_cname;
                        else
                                 v_ldata := v_ldata||','||v_cname;
                        end if;

                end loop;

                /* 添加最后一个字段的值 */
                if v_count = 1 then
                         v_ldata := v_ldata||formatfield(v_tname,v_rdata,v_count)||');';
                else
                         v_ldata := v_ldata||','||formatfield(v_tname,v_rdata,v_count)||');';
                end if;
                return v_ldata;
        end;
/* 针对不同的数据类型进行处理 */
  function formatfield(v_tname varchar2,v_cname varchar2,v_colno number) return varchar2       
        as
                v_name varchar2(3999);
          v_type varchar2(99);
  begin
                select coltype into v_type from col where tname = upper(v_tname) and colno = v_colno;
                if v_type = 'DATE' then
                        v_name := 'to_date('||''''||v_cname||''''||','||''''||'yyyy-mm-dd hh24:mi:ss'||''''||')';
                elsif v_type = 'VARCHAR2' then
                        v_name := ''''||v_cname||'''';
                else
                        v_name := v_cname;
                end if;
                return v_name;
        end;
/* 求输入表的字段列表 */
        function getfields(v_tname varchar2) return varchar2
        as
         v_fields varchar2(3999);
        begin
         for cur_fname in (select cname,coltype from col where tname = upper(v_tname) order by colno) loop
                 if v_fields is null then
                         v_fields := 'nvl('||cur_fname.cname||','||''''||'0'||''''||')';
                 else
                         v_fields := v_fields||'||'',''||'||'nvl('||cur_fname.cname||','||''''||'0'||''''||')';
                 end if;         
         end loop;
         v_fields := 'select '||''''||'insert into '||v_tname||' values('||''''||'||'||v_fields||'||'||''''||')'||''''||' from '||v_tname;
         return v_fields;
        end;
begin
        execute immediate 'alter session set nls_date_format='||''''||'yyyy-mm-dd hh24:mi:ss'||'''';
  dbms_output.put_line('  *** xzxh2000向你问好！ ***  ');

        v_sql := getfields(v_tname);
        --dbms_output.put_line(v_sql);
        open l_alldata for v_sql;
  
        loop
   fetch l_alldata into v_row;
         exit when l_alldata%notfound;
         --dbms_output.put_line(v_row);

   dbms_output.put_line(formatdata(v_tname,v_row));
         if mod(l_alldata%rowcount,v_cbatch) = 0 then
                 dbms_output.put_line('commit;');
         end if;
        end loop;

  close l_alldata;
end;

anzi_oracl

我的版本是oracle8.1.5
错误提示：
BEGIN print_insert('www.t_gz',2); END;

*
ERROR 位于第1行：
ORA-00936: 缺少表达式
ORA-06512: 在"WWW.PRINT_INSERT", line 97
ORA-06512: 在line 1