ORACLE中用存储过程生成SQL代码.pdfVIP

ORACLE 中用存储过程生成增删改查的 SQL 代码的方法 在我们日常软件开发过程中， 经常需要跟数据库打交道， 比如基本的存、 取 数据都需要对表进行 INSERT、SELECT 操作，由于这类操作的语法格式基本相 同，但是每个表的字段又不一样，如果手工去写这些 SQL 语句，不仅效率较低， 而且容易出错，为此，本文开发了一种简易的 SQL 代码生成方法。本方法的优 点在于：不需要安装任何工具， 而是通过直接在数据库新增一个存储过程， 只需 在数据库运行下列代码，就可以看到存储过程多了一个 AA_GENDML，如图： 然后就可以使用该存储过程来生成各种基本操作的 SQL 代码了，在 PL DEVELOPER 中打开 SQL WINDOW ，输入如下语句 点击执行后在 OUTPUT 页面里就可以看到生成的 SQL 代码了，想要那一段，就 拷到你的程序里吧，够简单吧 ：) 存储过程代码： CREATE OR REPLACE PROCEDURE AA_GENDML(IV_NAME IN VARCHAR2) AS /************************************************ *********** * 建立日期：2011 年08 月15 日 * 作者：LYJ * 功能描述：生成基于表的增删改查的 SQL代码, SELECT 可以从INSERT 语句中摘取 , UPDATE 可以从MERGE语句中摘取 * 输入参数： IV_NAME- 表名 * 输出参数： * 备注：使用方法 - 在sql widow 中用BEGIN AA_GENDML(T_A); END; 执行后看OUTPUT里生成的代码 * * 修改历史 * 修改原因@日期 BY ************************************************* ************/ V_NAME VARCHAR2( 50 ); -- 表名 V_STR_COLUMN VARCHAR2( 4000 ); -- 表中各列用 ， 拼接成的 字符串，每 5列一行 V_STR_ACOLUMNVARCHAR2( 4000 ); -- 表中各列用 ， 拼接成的 字符串，列名前面加 A. ，每5 列一行 V_STR_SET VARCHAR2( 4000 ); --UPDATE 中的set 部分字符串 V_STR_INSERT VARCHAR2( 4000 ); -- 插入表的语句 V_STR_MERGE VARCHAR2( 4000 ); --MERGE 表的语句 V_COUNT NUMBER; V_N NUMBER; BEGIN V_NAME := UPPER( TRIM (IV_NAME)); V_STR_COLUMN := NULL; V_STR_ACOLUMN := NULL; V_STR_SET := NULL; V_COUNT := 1; /* 用游标取出该表的各个字段，按顺序组成各字符串 */ FOR V_CUR IN ( SELECT CNAME FROM COL WHERE TNAME=V_NAME ORDER BY COLNO) LOOP