看看这个能满足你的要求吗? declare cursor c_emp is select * from user_tab_columns where column_name=upper('code'); temptableName varchar2(100); begin open c_emp; fetch c_emp into temptableName; exit when c_emp%notfound; execute immediate 'update '||temptableName||' set code='||myvalue||''; close c_emp; end;
declare cursor c_emp is select * from user_tab_columns where column_name=upper('code'); temptableName varchar2(100); begin open c_emp; loop fetch c_emp into temptableName; exit when c_emp%notfound; execute immediate 'update '||temptableName||' set code='||myvalue||''; end loop; close c_emp; end;
1.以internal用户名登录Oracle数据库,并创建一测试表。
SQL>CREATE TABLE SCOTT.TEST AS SELECT EMPNO,ENAME FROM SCOTT.EMP;
SQL>DESC SCOTT.TEST
Name Type Nullable Default Comments
------- ------------ -------
EMPNO NUMBER(4) Y
ENAME VARCHAR2(10) Y
下面我们要把SCOTT.TEST表中EMPNO和ENAME两列调换顺序,并把ENAME列更名为EMP_NAME,EMPNO改为EMP_NO。
2.查询表中列的实际存储位置或表。
SQL>SET LONG 9999
由于TEXT列是LONG类型,只有“SET”之后才能完全显示。
SQL>SELECT TEXT FROM ALL_VIEWS WHERE VIEW_NAME = ‘USER_TAB_COLUMNS’;
数据字典视图USER_TAB_COLUMNS中存储有表列的定义信息,从该语句的查询结果可以看出,列定义信息是存储在表SYS.COL$中的,即如果修改表中列的定义,应该在SYS.COL$表中修改。
3.从数据字典视图ALL_OBJECTS中查找对象SCOTT.TEST对象ID。
SQL> SELECT * FROM ALL_OBJECTS WHERE OWNER =‘SCOTT’ AND OBJECT_NAME=‘TEST’;
4.根据SCOTT.TEST对象的ID,从SYS.COL$检索出表中列的定义信息。
SQL> SELECT OBJ#,COL#,NAME FROM SYS.COL$ WHERE OBJ# =13888;
OBJ# COL# NAME
---------- ---------- -------
13888 1 EMPNO
13888 2 ENAME
5.使用Update语句来进行修改。
UPDATE SYS.COL$ SET COL# = 2,NAME=‘EMP_NO’ WHERE OBJ# = 13888 AND NAME=‘EMPNO’;
UPDATE SYS.COL$ SET COL# = 1,NAME=‘EMP_NAME’ WHERE OBJ# = 13888 AND NAME =‘ENAME’;
COMMIT;
6. 重启数据库服务。
由于数据字典是在数据库启动时加载到SQL中的,所以修改了它之后,如果使用“SELECT * FROM SCOTT.TEST; ”,会发现好像并没有修改。因此,修改完成之后,还需要重启数据库服务。
SQL>SHUTDOWN
SQL>STARTUP
这时,再查看,就会发现修改已经成功。
SQL> SELECT * FROM SCOTT.TEST;
EMP_NAME EMP_NO
---------- ------
SMITH 7369
ALLEN 7499
WARD 7521
……
这种方法直接从数据库中进行表列定义的修改,存在一定风险,但它对于数据量特别大的表是非常有用的。充分利用数据字典功能,往往能够完成日常很难完成的工作。下面笔者写了一段简单的存储过程,可实现表中列的重命名。读者可直接调用此过程来完成列的重命名:
SQL>exec altercolname(‘模式名称’,‘表名称’,‘原列名称’,‘新列名称’);
create or replace procedure sys.altercolname
(schmaname in varchar2,
tabname in varchar2,
oldcolname in varchar2,
newcolname in varchar2) is
n_schmaname varchar2(30); --模式名称
n_tablename varchar2(30); --表名称
n_oldcolname varchar2(30); --原来列名称
n_newcolname varchar2(30); --新的列名称
n_objnum number;
begin
n_schmaname := upper(schmaname);
n_tablename := upper(tabname);
n_oldcolname := upper(oldcolname);
n_newcolname := upper(newcolname);
SELECT OBJECT_ID INTO n_objnum
FROM ALL_OBJECTS
WHERE OWNER = n_schmaname
AND OBJECT_NAME=n_tablename;
UPDATE SYS.COL$
SET NAME=n_newcolname
WHERE OBJ# = n_objnum AND
NAME=n_oldcolname;
COMMIT;
end altercolname;
declare
cursor c_emp is select * from user_tab_columns where column_name=upper('code');
temptableName varchar2(100);
begin
open c_emp;
fetch c_emp into temptableName;
exit when c_emp%notfound;
execute immediate 'update '||temptableName||' set code='||myvalue||'';
close c_emp;
end;
cursor c_emp is select * from user_tab_columns where column_name=upper('code');
temptableName varchar2(100);
begin
open c_emp;
loop
fetch c_emp into temptableName;
exit when c_emp%notfound;
execute immediate 'update '||temptableName||' set code='||myvalue||'';
end loop;
close c_emp;
end;