〓〓青云超人性化oracle工具〓〓

whpukay · 发表于 2010-9-3 23:11

佩服

qingyun · 发表于 2010-9-10 12:02

呵呵，好久不更新了，这个工具其实很多地方都开放的，内部所用到的所有sql和plsql都放在info.mdb里；
有些数据字典的实现，可以自己修改的；

很久前，我就想做一个更加表，视图，函数，过程的名字，能够制作各种自己想要的脚本；

比如：sqlserver有自增长字段；oracle没有，但是可以变通的获取,方法是：建主键，建序列，建触发器；
最好用脚本，所以我这个工具的脚本是：

/* 功能点: 对自增长主键字段进行自动设置(主键,序列,触发器)*/
DECLARE
V_OWNER VARCHAR2(30) := :OWNER;
V_OBJECT_NAME VARCHAR2(30) := :OBJECT_NAME;
V_OBECT_TYPE VARCHAR2(30) := :OBECT_TYPE ;
V_FIRST_COLUMN VARCHAR2(50);
V_SCRIPT CLOB;
TYPE TREC IS RECORD(
sSql VARCHAR2(400),
sHint VARCHAR2(40));
TYPE TArrayRec IS TABLE OF TREC INDEX BY BINARY_INTEGER;
ArrayRec TArrayRec;
BEGIN
--得到第一个字段
BEGIN
SELECT COLUMN_NAME
INTO V_FIRST_COLUMN
from dba_tab_columns
where owner = V_OWNER
AND TABLE_NAME = V_OBJECT_NAME
AND COLUMN_ID = 1;
EXCEPTION
WHEN NO_DATA_FOUND THEN
:SCRIPT:='用户['||V_OWNER||']下不存在表['||V_OBJECT_NAME||']';
END;
/*1.创建主键*/
ArrayRec(1).sSql := 'ALTER TABLE ' || V_OBJECT_NAME ||
' ADD CONSTRAINT PK_' || V_OBJECT_NAME ||
' PRIMARY KEY (' || V_FIRST_COLUMN || ') ';
ArrayRec(1).sHint := '创建主键';
/*2.创建序列*/
ArrayRec(2).sSql := 'CREATE SEQUENCE ' || V_FIRST_COLUMN || '_SEQ ' ||
CHR(13) || CHR(10) || 'INCREMENT BY 1 ' ||
'START WITH 1 ' || CHR(13) || CHR(10) ||
'NOMAXVALUE ' || 'NOMINVALUE ' || 'NOCYCLE ' ||
CHR(13) || CHR(10) || 'CACHE 20 ' || 'ORDER ';
ArrayRec(2).sHint := '创建序列';
/*3.创建触发器*/
ArrayRec(3).sSql := 'CREATE TRIGGER ' || V_OBJECT_NAME || '_TR ' ||
CHR(13) || CHR(10) || ' BEFORE INSERT ' || CHR(13) ||
CHR(10) || ' ON ' || V_OBJECT_NAME || CHR(13) ||
CHR(10) || ' REFERENCING OLD AS OLD NEW AS NEW ' ||
CHR(13) || CHR(10) || ' FOR EACH ROW ' || CHR(13) ||
CHR(10) || ' BEGIN SELECT ' || V_FIRST_COLUMN ||
'_SEQ.NEXTVAL INTO :NEW.' || V_FIRST_COLUMN ||
CHR(13) || CHR(10) || ' FROM DUAL; ' || CHR(13) ||
CHR(10) || 'END ';
ArrayRec(3).sHint := '创建触发器';
FOR i IN 1 .. ArrayRec.COUNT
LOOP
BEGIN
V_SCRIPT := V_SCRIPT || '--' || ArrayRec(i).sHint || CHR(13) ||
CHR(10);
V_SCRIPT := V_SCRIPT || ArrayRec(i).sSql ||';'|| CHR(13) || CHR(10);
END;
END LOOP;
:SCRIPT:=V_SCRIPT;
END;

复制代码

程序上传上去了，老地方：
http://www.daizhicun.com/myworks/OracleDbTools.rar

aoxiangdeyin · 发表于 2010-9-10 21:11

工具挺好用的，但是只能取得本地的Oracle的表，如果连接远程的就会报表或者是视图不存在，但是同样的用户可以通过PL/SQL Developer连接，请问是什么原因？谢谢

qingyun · 发表于 2010-9-10 21:54

原帖由 aoxiangdeyin 于 2010-9-10 21:11 发表
工具挺好用的，但是只能取得本地的Oracle的表，如果连接远程的就会报表或者是视图不存在，但是同样的用户可以通过PL/SQL Developer连接，请问是什么原因？谢谢

理论上是可以的，或者多试几次
我连互联网上的oracle数据库都是可以的。具体报错信息发到我的信箱里：daizhicun@126.com；
如果只是本地的话，那么就走的ipc模式，没有通过监听；也就是登陆的时候不输入serverName；

--
也许是作为客户端，登录到服务器上的用户名权限不够，我开发的时候为了得到些更丰富的字典信息，都是一很高权限做的；所以以后我完善的时候，要考虑到权限不足的情况

[ 本帖最后由 qingyun 于 2010-9-11 00:02 编辑 ]

u_seas · 发表于 2010-9-13 14:19

强悍

bollwarm · 发表于 2010-9-13 17:46

支持青云，很不错的工具

cage318 · 发表于 2010-9-13 23:08

支持一下

sha659258510 · 发表于 2010-9-14 13:06

DDDDDDDDDDDDDDDDDDDDDDDDDDDDD

扶程星云 · 发表于 2010-9-16 14:07

可以登录，但是表出不来，提示 ORA-00942:TABLE OR VIEW DOES NOT EXIST ，表是该用户创建的。

qingyun · 发表于 2010-9-17 07:14

原帖由 扶程星云 于 2010-9-16 14:07 发表
可以登录，但是表出不来，提示 ORA-00942:TABLE OR VIEW DOES NOT EXIST ，表是该用户创建的。

当oracle数据库在安装 catproc.sql 包时出现问题,导致catproc.sql 包安装不完全也会出现此中错误!
解决办法: sqlplus sqlplus “/as sysdba” 然后重新执行$ORACLE_HOME/rdbms/admin/catproc.sql 脚本
这样就修复了ora-00942 的错误!

你执行一下：

SELECT A.TABLE_NAME,A.COMMENTS,B.NUM_ROWS,B.AVG_ROW_LEN,
B.BLOCKS,B.BUFFER_POOL,B.CACHE,B.LAST_ANALYZED
FROM SYS.DBA_TAB_COMMENTS A,SYS.DBA_TABLES B
WHERE A.TABLE_NAME=B.TABLE_NAME
AND A.OWNER='xxx' AND B.OWNER='xxx'

我的打开表的sql就是上面这个。

[ 本帖最后由 qingyun 于 2010-9-17 07:21 编辑 ]

[第三方工具] 〓〓青云超人性化oracle工具〓〓

可以登录，但是表出不来

浏览过的版块