SQL语法哪里出错了。

[不訴離傷]

哪里出错了。

declare
  tname     varchar2(60);
  cname     varchar(100);
  dlength   number;
  maxlength number;
begin
  maxlength := 0;
  for idx in (select u.TABLE_NAME,
                     u.COLUMN_NAME,
                     u.DATA_LENGTH,
                     decode(mod(u.DATA_LENGTH, 2), 0, 'EVEN', 'ODD') ODD_EVEN
                from user_tab_columns u
               where u.DATA_TYPE = 'VARCHAR2'
                 and u.TABLE_NAME in
                     (select t.table_name
                        from all_tables t
                       where t.num_rows > 0
                         and t.owner = 'BXDB')) loop
    tname   := idx.TABLE_NAME;
    cname   := idx.COLUMN_NAME;
    dlength := idx.DATA_LENGTH;
    execute immediate 'select max(lengthb(' || cname || ')) from ' || tname
      into maxlength;
    if (1.5 * maxlength) > dlength then
      if idx.odd_even = 'ODD' then
        dbms_output.put_line('alter table ' || tname || ' modify ' ||

                             cname || 'varchar2(' || 2 * maxlength || ');');
      else
        dbms_output.put_line('alter table ' || tname || ' modify ' ||
                             cname || 'varchar2(' || 1.5 * maxlength || ');');
      end if;
    end if;
  end loop;
end;

[不訴離傷]

这样是能实现output输出到屏幕上，但是能否在PLSQL程式里，用spool导出结果到SQL脚本呢？

[hanzs]

错误贴出来看下啊

[opps_zhou]

'select max(lengthb(' || cname || ')) from ' || tname

这一段代码， cname 前后需要加单引号
或者你使用绑定变量 execute immediate 后接 using

[opps_zhou]

[Quote=引用 2 楼 opps_zhou 的回复:]
SQL code


'select max(lengthb(' || cname || ')) from ' || tname



这一段代码， cname 前后需要加单引号
或者你使用绑定变量 execute immediate 后接 using
[/Quote]

不对，我看错了。。。

[caoleione]

cname || '这里加空格varchar2(' || 2 * maxlength || ');');
其它测试执行没有语法错误

[不訴離傷]

全部搞定了。。。上面只是缓存不够。

[caoleione]

如果有错误 把错误贴出来看一下

[caoleione]

应该是output输出的的太多 缓存不够造成的吧

[不訴離傷]

对对，却是这样的。还有里面alter语句'alter table ' || tname || ' modify ' ||
cname || 'varchar2(' || 1.5 * dlength || ');'); 该应是dlength ，我写错了，不过这个是业务问题。谢谢你。caoleione 的回复:]

应该是output输出的的太多 缓存不够造成的吧
[/Quote]

[Rotel-刘志东]

实际的物理内存不够造成缓存不够用造成的吧。

[cr75608859]

学习学习！

[BenChiM888]

--测试了一下没问题，你想直接spool的话，可以将拼出的直接按照下面的方法执行
declare
  tname     varchar2(60);
  cname     varchar(100);
  dlength   number;
  maxlength number;
begin
  maxlength := 0;
  for idx in (select u.TABLE_NAME,
                     u.COLUMN_NAME,
                     u.DATA_LENGTH,
                     decode(mod(u.DATA_LENGTH, 2), 0, 'EVEN', 'ODD') ODD_EVEN
                from user_tab_columns u
               where u.DATA_TYPE = 'VARCHAR2'
                 and u.TABLE_NAME in
                     (select t.table_name
                        from all_tables t
                       where t.num_rows > 0
                         and t.owner = 'BXDB')) loop
    tname   := idx.TABLE_NAME;
    cname   := idx.COLUMN_NAME;
    dlength := idx.DATA_LENGTH;
    execute immediate 'select max(lengthb(' || cname || ')) from ' || tname
      into maxlength;
    if (1.5 * maxlength) > dlength then
      if idx.odd_even = 'ODD' then
        dbms_output.put_line('alter table ' || tname || ' modify ' ||
                             
                             cname || 'varchar2(' || 2 * maxlength || ');');
      else
       -- dbms_output.put_line('alter table ' || tname || ' modify ' ||
       --                      cname || 'varchar2(' || 1.5 * maxlength || ');');
       execute immediate 'alter table ' || tname || ' modify ' ||
                             cname || 'varchar2(' || 1.5 * maxlength ); --这里直接执行就完了呗
      end if;
    end if;
  end loop;
end;

[nmyangmz]

路过！学习学习！

[Alessandro_]

学习学习。