亚洲性猛交XXXX,久久久无码精品亚洲日韩软件,亚洲丁香色婷婷综合欲色啪

Function怎么�q�回一个数据集�Q?

konhon 优华 — Tue, 29 Nov 2005 02:09:00 GMT

1.CREATE OR REPLACE PACKAGE ROME AS　　
　　AS
　　TYPE RefCursor IS REF CURSOR;
　　Function GetCompany(key IN char) return RefCursor;
　　END;
　　/
　　CREATE OR REPLACE PACKAGE BODY ROME IS
　　IS
　　Function GetCompany(key IN char) return RefCursor
　　Is
　　v_temp RefCursor;
　　BEGIN
　　OPEN v_temp FOR
　　SELECT * FROM Company WHERE com_ID =key;
　　return v_temp;
　　END GetCompany;
　　END;
　　
　　2.(适用于PLSQL�c�d��)
　　
　　Type shifts_ty is RECORD(
　　comp_code　　varchar2(10),
　　SHIFT_CODE　　varchar2(10),
　　sft_flg　　　　varchar2(10),
　　beg_tm　　　　number,
　　end_tm　　　　number,
　　skills　　　　varchar2(10)) ;
　　Type shifts is Table of shifts_ty index by binary_integer;
　　
　　FUNCTION test_proc(test varchar2)
　　
　　return shifts is
　　shiftspkg SHIFTS;　 --表变量shiftspkg
　　
　　cursor q1 is select
　　shifts.comp_code,shifts.shift_code,shifts.WRK_BEG_TM,shifts.WRK_end_TM,
　　shifts.skills from str_shifts shifts where comp_code ='TSI';　--str_shifts是与表变量shiftspkg�l�构完全相同的真实表
　　qty q1%rowtype;
　　begin
　　
　　open q1;
　　loop
　　fetch q1 into qty;
　　exit when q1%notfound;
　　
　　for iCount in 1.. qty.skills.count
　　loop
　　shiftspkg(icount).comp_code:= qty.comp_code;
　　shiftspkg(icount).SHIFT_CODE:= qty.shift_code;
　　shiftspkg(icount).sft_flg:= 'SLOTS';
　　shiftspkg(icount).beg_tm:= qty.wrk_beg_tm;
　　shiftspkg(icount).end_tm:= qty.wrk_end_tm;
　　shiftspkg(icount).skills:= qty.skills(icount);
　　end loop;
　　end loop;
　　return　　shiftspkg;
　　end;
　　end;
　　
　　3.使用于SQL�c�d��
　　
　　create or replace type myScalarType as object
　　( comp_code varchar2(10),
　　shift_code varchar2(10),
　　sft_flg　　　　varchar2(10),
　　beg_tm　　　　number,
　　end_tm　　　　number,
　　skills　　　　varchar2(10)
　　)
　　
　　create or replace type myArrayType as table of myScalarType
　　
　　FUNCTION test_proc(test varchar2) return myArrayType
　　is
　　l_data　myArrayType := myArrayType()　;
　　begin
　　for i in 1 .. 5
　　loop
　　l_data.extend;
　　l_data( l_data.count ) := myScalarType( 'cc-'||i,
　　'sc-'||i,
　　'flg-'||i,
　　i,
　　i,
　　test||i );
　　end loop;
　　
　　return l_data;
　　end;
　　
　　end;
　　
　　select *
　　from THE ( select cast( pkg_test.test_proc('hello') as myArrayType )
　　from dual ) a
　　�?BR>　　select *
　　from table ( cast( my_function() as mytabletype　 ) )
　　order by seq

konhon 优华 2005-11-29 10:09 发表评论

PL/SQL�~�程�l�验��结

konhon 优华 — Tue, 29 Nov 2005 02:06:00 GMT

�q�x��在PL/SQL中的�~�程中遇��C��些问题，�q�里以问�{�的形式来进行把它们�ȝ��下来�Q�以供大家分享�?　
　　
　　1、当需要向表中装蝲大量的数据流或者需要处理大量的数据��的时候，能否使用��道提高处理效率�Q?BR>　　
　　��道函数对于改善�q�行查询的性能非常方便�Q�它加快往表中加蝲数据的速度。管道函数的使用�ȝ��如下两点�Q?BR>　　
　　每当在查询里使用PL/SQL函数�Ӟ��该查询将被序列化�Q�即一个处理器只能�q�行一个查询实例，那么在这�U�情况下不可能��用�ƈ行查询（比如在数据仓库中要经�怋�用这��Ҏ��术）。因此，��Z��使用�q�行查询��必��M��用管道函敎ͼ��q�样也就加快了执行的速度�?BR>　　
　　��道函数的输入参数必��L��一个引用记录集�c�d��Q�即ref cursor�Q�，而返回的是嵌套表�c�d��Q�其表中每一行对应每一个引用记录）。在使用��道函数之前�Q�必��d��在程序头写上PARALLEL_ENABLE�Q�这��h��能在查询语句中��用管道函数来处理了�?BR>　　
　　2�Q?如何使PL/SQL�E�序�{�待一�D�|��间执行？
　　
　　�Ҏ��是使用DBMS_LOCK包的SLEEP函数�Q�可以进行精��定�Ӟ��其语法�ؓ�Q?BR>　　
　　DBMS_LOCK.SLEEP (seconds IN NUMBER);
　　
　　3�Q�需要在一张表插入一条记录之后等若干�U�后再执行另外一个操作，如何在PL/SQL�E�序里进行定时操作？
　　
　　一般的做法是用循环作�g�q�，利用 DBMS_UTILITY的gettime函数来检��当前的旉��Q�程序代码如下：
　　
　　DECLARE
　　v_delaytime CONSTANT INTEGER := 100;
　　v_starttime INTEGER ;
　　v_endtime INTEGER ;
　　BEGIN
　　V_starttime := DBMS_UTILITY.get_time;
　　V_endtime := DBMS_UTILITY.get_time;
　　While abs(V_endtime- V_starttime)< v_delaytime loop
　　/*�I��@环或者简单的耗时执行语句*/
　　End loop;
　　END;
　　/
　　
　　另外如果是不同会话（session�Q�之间的定时�Q�就必须使用DBMS_PIPE包的函数来实��C��话间的消息传递�?BR>　　
　　4�Q�当PL/SQL�q�回一个数据集的时候，该��用集合还是游标？
　　
　　一般情况下�Q�有以下两点作�ؓ依据�Q?BR>　　
　　1) 如果PL/SQL�E�序�q�回多多行数据给另外一个PL/SQL�E�序的话�Q�这里就��使用集合�Q�因��样可以利用集合的�Ҏ��集（bulk collection�Q�来提高从数据库提取数据的速度�?BR>　　
　　2) 如果需要在PL/SQL�E�序的环境中把数据返回到宿主语言环境中（如Sql*plus,c,delphi�{�）�Q�这时应该��用游标变量来�q�回�q�些数据�Q�因为几乎所有的宿主语言都支持游标变量，但不是所有的宿主语言都支持集合。这样可以增强程序的可移植性�?BR>　　
　　5�Q�如何更有效的在PL/SQL中��用游标？
　　
　　游标是PL/SQL中一个非帔R��要的概念�Q�对数据库的��索主要依靠游标来操作。在PL/SQL中有两类游标�Q�一�c�L��隐式游标�Q�如select clno into v_clno from table_detail.另外一�c�L��昑ּ�游标�Q�如cursor v_cur is select clno from table_detail。对于游标的使用�q�里�l�出以下几点��Q?BR>　　
　　1) ��可能的使用bulk collection。它能够较大的提高运行性能�Q�在Oracl9i的第二版�Q�甚臛_��以��用bulk collection来直接将数据写入到记录表
　　
　　2) ��量使用昑ּ�游标来处理，因�ؓ相对于隐式游标来��_��昑ּ�游标的速度更快一些�?BR>　　
　　3) 如果查询的表很小或者是静态的�Q�可以把该表�~�存��C��个包�U�的集合里。这��P��你的查询函数��q��接从集合里（卌��E�全局区，PGA cache�Q�，而不是从�pȝ��全局区（SGA�Q�来取数据，�q�样的处理速度会提升很多�?img src ="http://m.tkk7.com/konhon/aggbug/21780.html" width = "1" height = "1" />

konhon 优华 2005-11-29 10:06 发表评论

ORACLE里取随机数的�Ҏ��

konhon 优华 — Tue, 29 Nov 2005 02:05:00 GMT

在你的工作中是否会�ؓ了某个活动要随机取出一些符合条件的EMAIL或者手机号码用��P��来颁发获奖通知或其它消息？
　　
　　如果是的话，可以用oracle里生成随机数的PL/SQL, 目录文�g名在�Q?ORACLE_HOME/rdbms/admin/dbmsrand.sql�?BR>　　
　　用之前先要在sys用户下编�?
　　
　　SQL>@/ORACLE_HOME/rdbms/admin/dbmsrand.sql
　　
　　它实际是在sys用户下生成一个dbms_random�E�序包，同时生成公有同义词，�q�授权给所有数据库用户有执行的权限�?BR>　　
　　使用dbms_random�E�序�? 取出随机数据的方法：
　　
　　1. 先创��Z��个唯一增长的序列号tmp_id
　　
　　create sequence tmp_id increment by 1 start with 1 maxvalue 9999999 nocycle nocache;
　　
　　2. 然后创徏一个��时表tmp_1�Q�把�W�合本次�z�d��条�g的记录全部取出来�?/B>
　　
　　create table tmp_1 as select tmp_id.nextval as id,email,mobileno from 表名 where 条�g;
　　
　　扑ֈ�最大的id��P��
　　
　　select max(id) from tmp_1;
　　
　　假设�?000
　　
　　3. 讑֮�一个生成随机数的种�?/B>
　　
　　execute dbms_random.seed(12345678);
　　
　　或�?BR>　　
　　execute dbms_random.seed(TO_CHAR(SYSDATE,'MM-DD-YYYY HH24:MI:SS'));
　　
　　4. 调用随机数生成函数dbms_random.value生成临时表tmp_2
　　
　　假设随机�?00�?BR>　　
　　create table tmp_2 as select trunc(dbms_random.value(1,5000)) as id from tmp_1 where rownum<201;
　　
　　[ 说明�Q�dbms_random.value(1,5000)是取1�?000间的随机敎ͼ�会有��数,
　　trunc函数寚w��机数字取��_��才能和��时表的整数ID字段相对应�?BR>　　
　　注意�Q�如果tmp_1记录比较�?10万条以上)�Q�也可以找一个约大于两百行的�?假如是tmp_3)来生成tmp_2
　　
　　create table tmp_2 as select trunc(dbms_random.value(1,5000)) as id from tmp_3 where rownum<201; ]
　　
　　5. tmp_1和tmp_2相关联取得符合条件的200用户
　　
　　select t1.mobileno,t1.email from tmp_1 t1,tmp_2 t2 where t1.id=t2.id;
　　
　　[ 注意�Q�如果tmp_1记录比较�?10万条以上)�Q�需要在id字段上徏索引。]
　　
　　也可以输出到文本文�g�Q?BR>　　
　　set pagesize 300;
　　spool /tmp/200.txt;
　　select t1.mobileno,t1.email from tmp_1 t1,tmp_2 t2 where t1.id=t2.id order by t1.mobileno;
　　spool off;
　　
　　6. 用完后，删除临时表tmp_1、tmp_2和序列号tmp_id�?/B>

konhon 优华 2005-11-29 10:05 发表评论

PL/SQL的一些语�?

konhon 优华 — Tue, 29 Nov 2005 02:03:00 GMT

　　写一些关于PL/SQL的语法，免得�{�到用到的时候还要去��q��?BR>　　�Q�。控制流�E?if,while)
　　�Q�。��@�?for)
　　�Q�。游�?cursor)
　　�Q�。异常处�?exception�Q?BR>　　
　　1。控制流�E�（�Q?/B>
　　
　　A.条�g语句
　　IF THEN
　　PL/SQL
　　END IF;
　　
　　IF THEN
　　PL/SQL
　　ELSE
　　PL/SQL
　　END IF;
　　
　　IF THEN
　　PL/SQL
　　ELSIF THEN
　　PL/SQL
　　END IF;
　　
　　2。��@�?/B>
　　
　　A.simple loop
　　LOOP
　　SQL
　　EXIT WHEN ;
　　END LOOP;
　　
　　LOOP
　　SQL
　　IF THEN
　　EXIT;
　　END IF;
　　END LOOP;
　　
　　B.While loop
　　WHILE　 LOOP
　　SQL
　　END LOOP;
　　
　　C.For loop
　　FOR $counter in $low .. $high LOOP
　　SQL
　　END LOOP
　　
　　3。游�?/B>
　　
　　在PL/SQL�E�序中定义的游标叫做昑ּ�游标�?BR>　　
　　A.昑ּ�游标的处理由四个部分�l�成�Q?BR>　　cursor $cursorname is $Query;　　　--定义游标
　　open $cursorname;　　　　　　　　　--打开游标
　　fetch $cursorname into $othervariable　　--把游标中的东西取�?BR>　　close $cursorname　　--关闭游标
　　
　　B.游标属�?BR>　　%found　　　　布尔型属性，当最�q�一�ơ读�U�录成功�Ӟ��为true.
　　%nofound　　　　　　　　　　　　　　　　��p�|�Ӟ��为false.
　　%isopen
　　%rowcount　　　�q�回已从游标中读取的记录数�?BR>　　
　　C.参数化游�?BR>　　
　　所有的SQL语句在上下文区内部都是可执行的，因此都有一个游标指向上下文区，此游标就是所谓的SQL游标�?BR>　　
　　与显式游标不同，SQL游标不被�E�序打开和关闭�?BR>　　
　　4.异常处理概念
　　
　　异常处理是用来处理正常执行过�E�中未预料的事�g。如果PL/SQL�E�序块一旦��生异常而又没有指出如何处理�Ӟ��E�序会自动终止�?BR>　　
　　异常处理部分攑֜�PL/SQL的后半部分，�l�构为：
　　
　　EXCEPTION
　　WHEN first_exception THEN 　　WHEN second_exception THEN 　　WHEN OTHERS THEN 　--OTHERS必须攑֜�最�?BR>　　　　异常分�ؓ预定义和用户定义两种�?BR>　　　　用户定义的异常是通过昑ּ�使用RAISE语句来引发。如　　　　DECLARE 　　e_TooManyStudents EXCEPTION;　-- �c�d��为Exception�Q�用于指�C�错误条�?BR>　　v_CurrentStudents NUMBER(3);　-- HIS-101学生注册当前�?BR>　　v_MaxStudents NUMBER(3);　　　-- HIS-101学生注册允许的最大号　　　　BEGIN 　　/* 扑և�注册学生当前号和允许的最大号 */ 　　　　SELECT current_students, max_students 　　　　INTO v_CurrentStudents, v_MaxStudents 　　　　FROM classes 　　　　WHERE department = 'HIS' AND course = 101; 　　　　/* ��查学生的�?*/ 　　　　IF v_CurrentStudents > v_MaxStudents THEN 　　　　/* 太多的学生注册，则触发例外处�?*/ 　　　　RAISE e_TooManyStudents; 　　　　END IF; 　　　　EXCEPTION 　　　　WHEN e_TooManyStudents THEN 　　　　/* 当太多的学生注册�Q�就插入信息解释发生�q�错�?*/ 　　　　INSERT INTO log_table (info) VALUES ('History 101 has ' || v_CurrentStudents || 　　　　'students: max allowed is ' || v_MaxStudents); 　　　　END; 　　　　END; 　　　　用户定义的的异常处理　　　　可以使用RAISE_APPLICATION_ERROR来创��q��错误处理�Q?BR>　　　　RAISE_APPLICATION_ERROR(error_number,error_message,[keep_errors]); 　　　　其中error_number是从-20000�?20999之间的参敎ͼ�error_message是相应的提示信息�Q�小�?12字节。如�Q?BR>　　　　CREATE OR REPLACE PROCEDURE Register ( 　　p_StudentID IN students.id%TYPE, 　　p_Department IN classes.department%TYPE, 　　p_Course IN classes.course%TYPE) AS 　　v_CurrentStudents NUMBER;　-- 班上学生的当前号　　v_MaxStudents NUMBER;　　　-- 班上学生的最大号　　　　BEGIN 　　/* 扑և�学生的当前号和最大号 */ 　　SELECT current_students, max_students 　　INTO v_CurrentStudents, v_MaxStudents 　　FROM classes 　　WHERE course = p_Course 　　AND department = p_Department; 　　　　/* ��认另外的学生是否有��_��的教�?/ 　　IF v_CurrentStudents + 1 > v_MaxStudents THEN 　　RAISE_APPLICATION_ERROR(-20000, 'Can''t add more students to ' || 　　p_Department || ' ' || p_Course); 　　END IF; 　　　　/* 加一个学生在本班 */ 　　ClassPackage.AddStudent(p_StudentID, p_Department, p_Course); 　　　　EXCEPTION 　　WHEN NO_DATA_FOUND THEN 　　RAISE_APPLICATION_ERROR(-20001, p_Department || ' ' || p_Course || 　　' doesn''t exist!'); 　　END Register;

konhon 优华 2005-11-29 10:03 发表评论

Useful SQL reference

konhon 优华 — Tue, 29 Nov 2005 02:01:00 GMT
     一些有用的SQL�Q�都是oracle manage常用的�?BR>　　
　　列在�q�里做参考，因�ؓ太难��C��?BR>　　
　　时时更新�?BR>　　
　　1。监控当前数据库谁在�q�行什么SQL 语句
　　
　　SELECT osuser, username, sql_text from v$session a, v$sqltext b
　　where a.sql_address =b.address order by address, piece;
　　
　　2。查看碎片程度高的表
　　
　　SELECT segment_name table_name , COUNT(*) extents
　　FROM dba_segments WHERE owner NOT IN ('SYS', 'SYSTEM') GROUP BY segment_name
　　HAVING COUNT(*) = (SELECT MAX( COUNT(*) ) FROM dba_segments GROUP BY segment_name);
　　
　　3。表�I�间使用状�?BR>　　
　　select a.file_id "FileNo",a.tablespace_name "Tablespace_name",
　　round(a.bytes/1024/1024,4) "Total MB",
　　round((a.bytes-sum(nvl(b.bytes,0)))/1024/1024,4) "Used MB",
　　round(sum(nvl(b.bytes,0))/1024/1024,4) "Free MB",
　　round(sum(nvl(b.bytes,0))/a.bytes*100,4) "%Free"
　　from dba_data_files a, dba_free_space b
　　where a.file_id=b.file_id(+)
　　group by a.tablespace_name,
　　a.file_id,a.bytes order by a.tablespace_name
　　
　　4。查看USER
　　
　　SELECT OSUSER,SERIAL#
　　FROM V$SESSION, V$SQL
　　WHERE
　　V$SESSION.SQL_ADDRESS=V$SQL.ADDRESS AND
　　V$SESSION.STATUS = 'ACTIVE';
　　
　　5。监�?SGA 的命中率
　　
　　select a.value + b.value "logical_reads", c.value "phys_reads",
　　round(100 * ((a.value+b.value)-c.value) / (a.value+b.value)) "BUFFER HIT RATIO"
　　from v$sysstat a, v$sysstat b, v$sysstat c
　　where a.statistic# = 38 and b.statistic# = 39
　　and c.statistic# = 40;
　　
　　6。监�?SGA 中字典缓冲区的命中率
　　
　　select parameter, gets,Getmisses , getmisses/(gets+getmisses)*100 "miss ratio",
　　(1-(sum(getmisses)/ (sum(gets)+sum(getmisses))))*100 "Hit ratio"
　　from v$rowcache
　　where gets+getmisses <>0
　　group by parameter, gets, getmisses;
　　
　　7。监�?SGA 中共享缓存区的命中率�Q�应该小�?%
　　
　　select sum(pinhits-reloads)/sum(pins) "hit radio",sum(reloads)/sum(pins) "reload percent"
　　from v$librarycache;
　　
　　8。监控内存和��盘的排序比率，最好��它小�?.10�Q�增�?sort_area_size
　　
　　SELECT name, value FROM v$sysstat WHERE name IN ('sorts (memory)', 'sorts (disk)');
　　
　　9。哪�{�數據正在被人update�Q�而且是被誰正在update
　　
　　select a.os_user_name, a.oracle_username,a.object_id,c.object_name,c.object_type
　　from v$locked_object a, dba_objects c
　　where a.object_id=c.object_id

konhon 优华 2005-11-29 10:01 发表评论

SQL PLUS�~�辑器的一些常用设�|?

konhon 优华 — Tue, 29 Nov 2005 02:00:00 GMT

　　set linedize 150　 //每行昄��的字�W?BR>　　set time on　　　　//在提�C�符前显�C�系�l�时�?BR>　　SQL> set time on
　　12:25:08 SQL>
　　
　　set serveroutput on/off　　//输出昄��
　　set long 200　　　//每字�D�|��C�的字符长度�Q�如某列的值显�C�Z��完，调次�?BR>　　col column_name format a10　//昄��列的宽度
　　
　　set linedize 150　 //每行昄��的字�W?BR>　　set time on　　　　//在提�C�符前显�C�系�l�时�?BR>　　SQL> set time on
　　12:25:08 SQL>
　　
　　set serveroutput on/off　　//输出昄��
　　set long 200　　　//每字�D�|��C�的字符长度�Q�如某列的值显�C�Z��完，调次�?BR>　　col column_name format a10　//昄��列的宽度
　　col ename heading 雇员　　//别名昄��
　　
　　spool d:\temp\sqlout.txt　//输出为文�?BR>　　spool off
　　
　　SQL> alter session set NLS_LANGUAGE='AMERICAN'; 改变session的语�a�昄��
　　SQL> alter session set NLS_LANGUAGE='SIMPLIFIED CHINESE';
　　
　　SQL> set timi on //昄��提示SQL语句执行所��q��旉��

konhon 优华 2005-11-29 10:00 发表评论

konhon 优华 — Thu, 10 Nov 2005 00:14:00 GMT

摘录,非本人原�?/STRONG>

1. 执行一个SQL脚本文�g
SQL>start file_name
SQL>@ file_name
我们可以��多条sql语句保存在一个文本文件中�Q�这样当要执行这个文件中的所有的sql语句�Ӟ��用上面的��M��命��o卛_��Q�这�c�M��于dos中的批处理�?

2. 对当前的输入�q�行�~�辑
SQL>edit

3. 重新�q�行上一�ơ运行的sql语句
SQL>/

4. ��显�C�的内容输出到指定文�?
SQL> SPOOL file_name
   在屏�q�上的所有内定w��包含在该文�g中，包括你输入的sql语句�?

5. 关闭spool输出
SQL> SPOOL OFF
   只有关闭spool输出�Q�才会在输出文�g中看到输出的内容�?

6�Q�显�C�Z��个表的结�?
SQL> desc table_name

7. COL命��o�Q?
主要格式化列的显�C��Ş式�?
该命令有许多选项�Q�具体如下：
COL[UMN] [{ column|expr} [ option ...]]
Option选项可以是如下的子句:
ALI[AS] alias
CLE[AR]
FOLD_A[FTER]
FOLD_B[EFORE]
FOR[MAT] format
HEA[DING] text
JUS[TIFY] {L[EFT]|C[ENTER]|C[ENTRE]|R[IGHT]}
LIKE { expr|alias}
NEWL[INE]
NEW_V[ALUE] variable
NOPRI[NT]|PRI[NT]
NUL[L] text
OLD_V[ALUE] variable
ON|OFF
WRA[PPED]|WOR[D_WRAPPED]|TRU[NCATED]

1). 改变�~�省的列标题
COLUMN column_name HEADING column_heading
For example:
Sql>select * from dept;
     DEPTNO DNAME                        LOC
---------- ---------------------------- ---------
         10 ACCOUNTING                   NEW YORK
sql>col LOC heading location
sql>select * from dept;
    DEPTNO DNAME                        location
--------- ---------------------------- -----------
        10 ACCOUNTING                   NEW YORK

2). ��列名ENAME改�ؓ新列名EMPLOYEE NAME�q�将新列名放在两行上�Q?
Sql>select * from emp
Department name           Salary
---------- ---------- ----------
         10 aaa                11
SQL> COLUMN ENAME HEADING ’Employee|Name�?
Sql>select * from emp
            Employee
Department name           Salary
---------- ---------- ----------
         10 aaa                11
note: the col heading turn into two lines from one line.

3). 改变列的昄��长度�Q?
FOR[MAT] format
Sql>select empno,ename,job from emp;
      EMPNO ENAME      JOB
---------- ----------     ---------
       7369 SMITH      CLERK
       7499 ALLEN      SALESMAN
7521 WARD       SALESMAN
Sql> col ename format a40
      EMPNO ENAME                                    JOB
----------   ----------------------------------------         ---------
       7369 SMITH                                    CLERK
       7499 ALLEN                                    SALESMAN
       7521 WARD                                    SALESMAN

4). 讄��列标题的寚w��方式
JUS[TIFY] {L[EFT]|C[ENTER]|C[ENTRE]|R[IGHT]}
SQL> col ename justify center
SQL> /
      EMPNO           ENAME                   JOB
----------   ----------------------------------------       ---------
       7369 SMITH                                    CLERK
       7499 ALLEN                                    SALESMAN
7521 WARD                                     SALESMAN
对于NUMBER型的列，列标题缺省在双��Q�其它类型的列标题缺省在左边

5). 不让一个列昄��在屏�q�上
NOPRI[NT]|PRI[NT]
SQL> col job noprint
SQL> /
      EMPNO           ENAME
----------     ----------------------------------------
       7369 SMITH
       7499 ALLEN
7521 WARD

6). 格式化NUMBER�c�d��列的昄��Q?
SQL> COLUMN SAL FORMAT $99,990
SQL> /
Employee
Department Name        Salary    Commission
---------- ---------- --------- ----------
30          ALLEN        $1,600    300

7). 昄��列值时�Q�如果列��gؓNULL��|��用text��g��替NULL�?
COMM NUL[L] text
SQL>COL COMM NUL[L] text

8). 讄��一个列的回�l�方�?
WRA[PPED]|WOR[D_WRAPPED]|TRU[NCATED]
        COL1
--------------------
HOW ARE YOU?

SQL>COL COL1 FORMAT A5
SQL>COL COL1 WRAPPED
COL1
-----
HOW A
RE YO
U?

SQL> COL COL1 WORD_WRAPPED
COL1
-----
HOW
ARE
YOU?

SQL> COL COL1 WORD_WRAPPED
COL1
-----
HOW A

9). 昄��列的当前的显�C�属性�?
SQL> COLUMN column_name

10). ��所有列的显�C�属性设为缺省�?
SQL> CLEAR COLUMNS

8. 屏蔽掉一个列中显�C�的相同的�?
BREAK ON break_column
SQL> BREAK ON DEPTNO
SQL> SELECT DEPTNO, ENAME, SAL
FROM EMP
WHERE SAL < 2500
ORDER BY DEPTNO;
DEPTNO      ENAME         SAL
---------- ----------- ---------
10           CLARK        2450
MILLER      1300
20            SMITH       800
ADAMS       1100

9. 在上面屏蔽掉一个列中显�C�的相同的值的昄��中，每当列值变化时在值变化之前插入n个空行�?
BREAK ON break_column SKIP n

SQL> BREAK ON DEPTNO SKIP 1
SQL> /
DEPTNO ENAME SAL
---------- ----------- ---------
10 CLARK 2450
MILLER 1300

20 SMITH 800
ADAMS 1100

10. 昄��对BREAK的设�|?
SQL> BREAK

11. 删除6�?的设�|?
SQL> CLEAR BREAKS

12. Set 命��o�Q?
该命令包含许多子命��o�Q?
SET system_variable value
system_variable value 可以是如下的子句之一�Q?
APPI[NFO]{ON|OFF|text}
ARRAY[SIZE] {15|n}
AUTO[COMMIT]{ON|OFF|IMM[EDIATE]|n}
AUTOP[RINT] {ON|OFF}
AUTORECOVERY [ON|OFF]
AUTOT[RACE] {ON|OFF|TRACE[ONLY]} [EXP[LAIN]] [STAT[ISTICS]]
BLO[CKTERMINATOR] {.|c}
CMDS[EP] {;|c|ON|OFF}
COLSEP {_|text}
COM[PATIBILITY]{V7|V8|NATIVE}
CON[CAT] {.|c|ON|OFF}
COPYC[OMMIT] {0|n}
COPYTYPECHECK {ON|OFF}
DEF[INE] {&|c|ON|OFF}
DESCRIBE [DEPTH {1|n|ALL}][LINENUM {ON|OFF}][INDENT {ON|OFF}]
ECHO {ON|OFF}
EDITF[ILE] file_name[.ext]
EMB[EDDED] {ON|OFF}
ESC[APE] {|c|ON|OFF}
FEED[BACK] {6|n|ON|OFF}
FLAGGER {OFF|ENTRY |INTERMED[IATE]|FULL}
FLU[SH] {ON|OFF}
HEA[DING] {ON|OFF}
HEADS[EP] {||c|ON|OFF}
INSTANCE [instance_path|LOCAL]
LIN[ESIZE] {80|n}
LOBOF[FSET] {n|1}
LOGSOURCE [pathname]
LONG {80|n}
LONGC[HUNKSIZE] {80|n}
MARK[UP] HTML [ON|OFF] [HEAD text] [BODY text] [ENTMAP {ON|OFF}] [SPOOL
{ON|OFF}] [PRE[FORMAT] {ON|OFF}]
NEWP[AGE] {1|n|NONE}
NULL text
NUMF[ORMAT] format
NUM[WIDTH] {10|n}
PAGES[IZE] {24|n}
PAU[SE] {ON|OFF|text}
RECSEP {WR[APPED]|EA[CH]|OFF}
RECSEPCHAR {_|c}
SERVEROUT[PUT] {ON|OFF} [SIZE n] [FOR[MAT] {WRA[PPED]|WOR[D_
WRAPPED]|TRU[NCATED]}]
SHIFT[INOUT] {VIS[IBLE]|INV[ISIBLE]}
SHOW[MODE] {ON|OFF}
SQLBL[ANKLINES] {ON|OFF}
SQLC[ASE] {MIX[ED]|LO[WER]|UP[PER]}
SQLCO[NTINUE] {> |text}
SQLN[UMBER] {ON|OFF}
SQLPRE[FIX] {#|c}
SQLP[ROMPT] {SQL>|text}
SQLT[ERMINATOR] {;|c|ON|OFF}
SUF[FIX] {SQL|text}
TAB {ON|OFF}
TERM[OUT] {ON|OFF}
TI[ME] {ON|OFF}
TIMI[NG] {ON|OFF}
TRIM[OUT] {ON|OFF}
TRIMS[POOL] {ON|OFF}
UND[ERLINE] {-|c|ON|OFF}
VER[IFY] {ON|OFF}
WRA[P] {ON|OFF}

1). 讄��当前session是否对修改的数据�q�行自动提交
SQL>SET AUTO[COMMIT] {ON|OFF|IMM[EDIATE]| n}

2)�Q�在用start命��o执行一个sql脚本�Ӟ��是否昄��脚本中正在执行的SQL语句
SQL> SET ECHO {ON|OFF}

3).是否昄��当前sql语句查询或修改的行数
SQL> SET FEED[BACK] {6|n|ON|OFF}
   默认只有�l�果大于6行时才显�C�结果的行数。如果set feedback 1 �Q�则不管查询到多��行都返回。当为off �Ӟ��一律不昄��查询的行�?

4).是否昄��列标�?
SQL> SET HEA[DING] {ON|OFF}
当set heading off �Ӟ��在每��늚�上面不显�C�列标题�Q�而是以空白行代替

5).讄��一行可以容�U�的字符�?
SQL> SET LIN[ESIZE] {80|n}
   如果一行的输出内容大于讄��的一行可容纳的字�W�数�Q�则折行昄��?

6).讄��与��之间的分隔
SQL> SET NEWP[AGE] {1|n|NONE}
当set newpage 0 �Ӟ��会在每页的开头有一个小的黑�Ҏ��?
当set newpage n �Ӟ��会在��和��之间隔着n个空行�?
当set newpage none �Ӟ��会在��和��之间没有�Q何间隔�?

7).昄��Ӟ��用text��g��替NULL�?
SQL> SET NULL text

8).讄��一��|��多少行数
SQL> SET PAGES[IZE] {24|n}
如果设�ؓ0�Q�则所有的输出内容��Z��ƈ且不昄��列标�?

9).是否昄��用DBMS_OUTPUT.PUT_LINE包进行输出的信息�?
SQL> SET SERVEROUT[PUT] {ON|OFF}
在编写存储过�E�时�Q�我们有时会用dbms_output.put_line��必要的信息输出�Q�以便对存储�q�程�q�行调试�Q�只有将serveroutput变量设�ؓon后，信息才能昄��在屏�q�上�?

10).当SQL语句的长度大于LINESIZE�Ӟ��是否在显�C�时截取SQL语句�?
SQL> SET WRA[P] {ON|OFF}
   当输出的行的长度大于讄��的行的长度时�Q�用set linesize n命��o讄��Q�，当set wrap on�Ӟ��输出行的多于的字�W�会另�v一行显�C�，否则�Q�会��输��的多于字�W�切除，不予昄��?

11).是否在屏�q�上昄��输出的内容，主要用与SPOOL�l�合使用�?
SQL> SET TERM[OUT] {ON|OFF}
   在用spool命��o��一个大表中的内容输出到一个文件中�Ӟ��内容输出在屏幕上会耗费大量的时��_��讄��set termspool off后，则输出的内容只会保存在输出文件中�Q�不会显�C�在屏幕上，极大的提高了spool的速度�?

12).��SPOOL输出中每行后面多余的�I�格��L��
SQL> SET TRIMS[OUT] {ON|OFF}

13)昄��每个sql语句��p��的执行时�?
set TIMING {ON|OFF}

14�Q�修改sql buffer中的当前行中�Q�第一个出现的字符�?
C[HANGE] /old_value/new_value
SQL> l
   1* select * from dept
SQL> c/dept/emp
   1* select * from emp

15�Q�编辑sql buffer中的sql语句
EDI[T]

16�Q�显�C�sql buffer中的sql语句�Q�list n昄��sql buffer中的�W�n行，�q��ɽW�n行成为当前行
L[IST] [n]

17�Q�在sql buffer的当前行下面加一行或多行
I[NPUT]

18�Q�将指定的文本加到sql buffer的当前行后面
A[PPEND]
SQL> select deptno,
   2 dname
   3 from dept;
     DEPTNO DNAME
---------- --------------
         10 ACCOUNTING
         20 RESEARCH
         30 SALES
         40 OPERATIONS

SQL> L 2
   2* dname
SQL> a ,loc
   2* dname,loc
SQL> L
   1 select deptno,
   2 dname,loc
   3* from dept
SQL> /

     DEPTNO DNAME          LOC
---------- -------------- -------------
         10 ACCOUNTING     NEW YORK
         20 RESEARCH       DALLAS
         30 SALES          CHICAGO
         40 OPERATIONS     BOSTON

19�Q�将sql buffer中的sql语句保存��C��个文件中
SAVE file_name

20�Q�将一个文件中的sql语句导入到sql buffer�?
GET file_name

21�Q�再�ơ执行刚才已�l�执行的sql语句
RUN
or
/

22�Q�执行一个存储过�E?
EXECUTE procedure_name

23�Q�在sql*plus中连接到指定的数据库
CONNECT user_name/passwd@db_alias

24�Q�设�|�每个报表的�剙��标题
TTITLE

25�Q�设�|�每个报表的��N��标题
BTITLE

26�Q�写一个注�?
REMARK [text]

27�Q�将指定的信息或一个空行输出到屏幕�?
PROMPT [text]

28�Q�将执行的过�E�暂停，�{�待用户响应后��l�执�?
PAUSE [text]

Sql>PAUSE Adjust paper and press RETURN to continue.

29�Q�将一个数据库中的一些数据拷贝到另外一个数据库�Q�如��一个表的数据拷贝到另一个数据库�Q?
COPY {FROM database | TO database | FROM database TO database}
{APPEND|CREATE|INSERT|REPLACE} destination_table
[(column, column, column, ...)] USING query

sql>COPY FROM SCOTT/TIGER@HQ TO JOHN/CHROME@WEST
create emp_temp
USING SELECT * FROM EMP

30�Q�不退出sql*plus�Q�在sql*plus中执行一个操作系�l�命令：
HOST

Sql> host hostname
该命令在windows下可能被支持�?

31�Q�在sql*plus中，切换到操作系�l�命令提�C�符下，�q�行操作�pȝ��命��o后，可以再次切换回sql*plus�Q?
!

sql>!
$hostname
$exit
sql>

该命令在windows下不被支持�?

32�Q�显�C�sql*plus命��o的帮�?
HELP
如何安装帮助文�g�Q?
Sql>@ ?sqlplusadminhelphlpbld.sql ?sqlplusadminhelphelpus.sql
Sql>help index

33�Q�显�C�sql*plus�pȝ��变量的值或sql*plus环境变量的�?
Syntax
SHO[W] option
where option represents one of the following terms or clauses:
system_variable
ALL
BTI[TLE]
ERR[ORS] [{FUNCTION|PROCEDURE|PACKAGE|PACKAGE BODY|
TRIGGER|VIEW|TYPE|TYPE BODY} [schema.]name]
LNO
PARAMETERS [parameter_name]
PNO
REL[EASE]
REPF[OOTER]
REPH[EADER]
SGA
SPOO[L]
SQLCODE
TTI[TLE]
USER

1) . 昄��当前环境变量的��|��
Show all

2) . 昄��当前在创建函数、存储过�E�、触发器、包�{�对象的错误信息
Show error
当创��Z��个函数、存储过�E�等出错�Ӟ��变可以用该命令查看在那个地方出错及相应的出错信息�Q�进行修改后再次�q�行�~�译�?

3) . 昄��初始化参数的��|��
show PARAMETERS [parameter_name]

4) . 昄��数据库的版本�Q?
show REL[EASE]

5) . 昄��SGA的大��?
show SGA

6). 昄��当前的用户名
show user

konhon 优华 2005-11-10 08:14 发表评论

konhon 优华 — Mon, 24 Oct 2005 03:10:00 GMT
目前不管是国内的ERP软�g�Q�还是国外的ERP软�g�Q�发展得都比较成熟。它们对于企业业务流�E�的大致��程都能满��Q�要想��自��n的ERP软�g在市��Z��h��独特的市��Z��额，��q��软�g是否能解军_��L��个性化的需求。但对于ERP软�g部分重要的基��功能设计��会影响到客��h��作能否方�ѝ��灵�z�R��易懂。本文章��对ERP软�g中物料（或料品）单位�Q�从�pȝ��适用性和集成�{�方面做一全面的叙�q��?BR>
    一、在ERP软�g中单位的�U�类

    在ERP软�g中，单位涉及的比较多�Q�如�Q�库存单位、销售单位、采购单位、重量单位、基本单位、辅助量单位�{�。目前许多��Y件中都有销售单位、库存单位以及采购单位，�q�也是��Y件本�w�最基本的需求，对于后面的几�U�单位强调的不是太多�Q�但它却能满��_��L��一些特�D�的需求�?BR>
    二、在ERP软�g中单位之间的关系

    在企业的实际�q�用中，一个物料在不同的阶�D�它的单位往往是不同的�Q�如�Q�螺母在生��使用�q�程中的单位是“个”，在采购时是“盒”，在库存中的单位是“KG”，他们之间的关�p�d��软�g中又是如何体现的呢？目前在国内许多��Y件中�Q�物料的单位信息在不同的�H�口中进行维护，他们之间的关�p�M��是在相应的模块中得到体现。可能出��C��下几�U�不理想的情况：
    单位的字�D�通过手工输入的方法实玎ͼ��q�样对于一个同��L��单位如“KG”，在实际维护中不同的部门可能会产生多种情况�Q�如“kg”、“千克”等�Q?BR>    在物料清单（BOM�Q�设计中�Q�以“库存单位”作为参照，可如果客��L��规模比较大情况下中，设计�U�（负责BOM的设计）往往无法知道“库存单位”，�q�样在操作方面，无疑有许多困难；
    如果在物料基本信息中��“库存单位”、“销售单位”、“采购单位”之间的换算关系�l�护成固定的比例关系�Q�这也会引�v许多问题。如�Q�采购单位从“盒”变成了“箱”，则要��系�l�中所有物料的换算关系都要�q�行改变�Q�如果不通过后台数据库的扚w��修改�Q�在实际操作中，不推荐客户从后台修改�Q�可能造成误操作。）�Q�则无疑增大了工作量�Q�而且可能出项遗漏的现象；
    至于辅助量单位，在许多��Y件中都虚拟的存在�Q�可在实际运用中存在许多问题。如�Q�以“米”作��Z��单位�Q�以“KG”作��助量单位�Q�在�_�略�l�计�Ӟ��往往仅考虑一下以辅助量做单位的数量即可。如�Q�线�c�M�品，不同长度的线�Q�往往可以用不同的“物料号”加以表达，可在�_�略考虑它的库存数量�Ӟ��仅用辅助量来考虑��p��了。可如何实现一个物料用多种辅助量来控制呢？在许多��Y件中�Q�在物料基本信息中，有“是否辅助量”控制的字段�Q�如果需要，��必��输入“辅助量单位”，在以后的模块中，无法�Ҏ��q�行修改�?BR>
    三、解军_��位引��L��问题�{�略分析

    �Ҏ��我参与设计ERP软�g�Q�以及客��L��使用效果和经验，针对于上�q�的问题可以通过以下�Ҏ��解决�Q?BR>    �l�物料设计一个各部门��p��的单位——“基本单位”，所有的单位都以此�ؓ参照�Q��ƈ通过“单位代码”和“单位名�U�”来实现单位长度的限�Ӟ��在国内许多��Y件中�Q�往往无法实现复合单位的维护，如，KG/�c�I��
    设计“单位字典”，��所有的单位�l�一��理�Q��ƈ�l�一口径输入�Q�在其他相应使用地方�Q�通过“下拉框”�Ş式实现单位的�l�护�Q?BR>    设计“单位组”字典，实现单位之间的换��关�p�，在维护物料基本信息时�Q�选择“单位组”和“单位”；在单位组中设计一个默认的基本单位�Q�其他单位同它设�|�固定的换算关系�Q�这样可以方便维护，在其他单位的�l�护中，仅显�C�此物料“单位组”下的各�U�单位�?BR>    通过专门的窗口维护单位之间的换算关系�Q�解决了如果换单位而引��L��换算关系全部需要更新的情况�Q�仅在单位组字段中，�Ҏ��比例更新即可�?BR>    ��M��Q�物料单位是ERP软�g的一个基本的重要信息�Q�如果设计不要，��会�l�操作灵�z�L��和�pȝ��集成斚w��带来许多问题。我�Ҏ��提出一些看法，希望大家提出宝贵意见�?BR>

konhon 优华 2005-10-24 11:10 发表评论

konhon 优华 — Mon, 17 Oct 2005 10:58:00 GMT
---- ORACLE数据库作为大型数据库��理�pȝ��Q�近�q�来一直占有世界上高端数据库的最大䆾额，其强大而完善的数据库管理功能，以及ORACLE公司推陈出新的不断努力，一直成为IT业界瞩目的焦炏V��岭��x��늫�的数据库�q�_��采用了ORACLE7.3作�ؓ后端�q�_��Q�前端选择了ORACLE公司的DEVELOPER 2000 及DESIGNER 2000作�ؓ开发工��P��采用了目前流行的CLIENT/SERVER模式。本人在ORACLE�pȝ��的开发中�Q�就ORACLE的整套开发工��h��Z��些自��q��体会�Q�供同行参考�?

---- 一. ORACLE SQL PLUS 使用技�?

---- ①查��N��复记�?

SELECT DRAWING,DSNO FROM EM5_PIPE_PREFAB
WHERE ROWID!=(SELECT MAX(ROWID) FROM EM5
_PIPE_PREFAB D
WHERE EM5_PIPE_PREFAB.DRAWING=D.DRAWING AND
EM5_PIPE_PREFAB.DSNO=D.DSNO);
---- 执行上述SQL语句后就可以昄��所有DRAWING和DSNO相同且重复的记录�?
---- 删除重复记录:

DELETE FROM EM5_PIPE_PREFAB
WHERE ROWID!=(SELECT MAX(ROWID) FROM EM5
_PIPE_PREFAB D
WHERE EM5_PIPE_PREFAB.DRAWING=D.DRAWING AND
EM5_PIPE_PREFAB.DSNO=D.DSNO);
---- 执行上述SQL语句后就可以刪除所有DRAWING和DSNO相同且重复的记录�?
---- �?快速编译所有视�?

---- 当在把数据库倒入到新的服务器上后(数据库重�?�Q�需要将视图重新�~�译一遍，因�ؓ该表�I�间视图到其它表�I�间的表的连接会出现问题�Q�可以利用PL/SQL的语�a��Ҏ��，快速编译�?

SQL >SPOOL ON.SQL
SQL >SELECT ‘ALTER VIEW ‘||TNAME||�?BR>COMPILE;�?FROM TAB;
SQL >SPOOL OFF
然后执行ON.SQL卛_��?BR>SQL >@ON.SQL
当然�Q�授权和创徏同义词也可以快速进行，如：
SQL >SELECT ‘GRANT SELECT ON �?BR>||TNAME||�?TO USERNAME;�?FROM TAB;
SQL >SELECT ‘CREATE SYNONYM
‘||TNAME||�?FOR USERNAME.’||TNAME||�?�?FROM TAB;

�?用外联接提高表连接的查询速度
在作表连�?常用于视�?�Ӟ��怋�用以下方法来查询数据:
SELECT PAY_NO, PROJECT_NAME
FROM A
WHERE A.PAY_NO NOT IN (SELECT PAY_
NO FROM B WHERE VALUE >=120000);
---- 但是若表A�?0000条记录，表B�?0000条记录，则要用掉30分钟才能查完�Q�主要因为NOT IN要进行一条一条的比较�Q�共需�?0000*10000�ơ比较后�Q�才能得到结果。该用外联接后，可以�~�短�?分左右的旉��:
SELECT PAY_NO,PROJECT_NAME
FROM A,B
WHERE A.PAY_NO=B.PAY_NO(+)
AND B.PAY_NO IS NULL
AND B.VALUE >=12000;
---- �?怎样��d��文本型操作系�l�文�?
---- 在PL/SQL 3.3以上的版本中�Q�UTL_FILE包允许用户通过PL/SQL��d��操作�pȝ��文�g。如下：

DECALRE
FILE_HANDLE UTL_FILE.FILE_TYPE;
BEGIN
FILE_HANDLE:=UTL_FILE.FOPEN(
‘C:\�?’TEST.TXT�?’A�?;
UTL_FILE.PUT_LINE(FILE_HANDLE,�?BR>HELLO,IT’S A TEST TXT FILE�?;
UTL_FILE.FCLOSE(FILE_HANDLE);
END;
---- 相关UTL_FILE数据库包详细信息可以参见相关资料�?/FONT>
---- �?怎样在数据库触发器中使用列的新��g��旧�?

---- 在数据库触发器中几乎��L��要��用触发器��的列��|��如果某条语句需要某列修改前的��|��使用:OLD��可以了�Q��用某列修改后的新��|��?NEW��可以了。如:OLD.DEPT_NO,:NEW.DEPT_NO�?

---- �?ORACLE DEVELOPER 2000使用技巧：

---- �?改变FORM(FMX模块)�q�行时的Runform4.5的题�?

---- DEVELOPER2000中FMX默认题头为：Developer/2000 Forms Runtime for Windows 95 / NT 你可以改��己定义的标题,

---- 1. 在Form�U�触发器中添加触发WHEN-NEW-FORM-INSTANCE

---- 2. 在此触发器中写如下代码：

set_window_property(FORMS_MDI_WINDOW,TITLE,'POINT
SYSTEM �Ƣ迎使用');
---- �?如何隐藏菜单中的window选项:
---- 在创��q��菜单�Ӟ��最后选项��L��window��，下面介绍如何��L��?

---- 1. 创徏一个Menu

---- 2. 在Menu中徏立一个Item,命名为WINDOW�?

---- 3. 讄��该Item属性如�?

----

Menu Item Type:Magic
Command Type:Null
Magic Item:Window
Lable:为空

---- �?怎样创徏动态下拉列表List
---- Developer 2000 中的列表是通过讄��相关属性而完成数据项的列表设�|�的�Q�但那只是静态的�Q�有时你惌��某项成�ؓ动态的列表�Q�随输入数据的改变而改变，��需要动手去�~�个��程序。下面详�l�介�l�怎样��d��:

---- 有块EBOP_CABLE_ACCOUNT�Q�下有SPECIFICATION数据��，当一�q�入该模块时�Q�就��SPECIFICATION��在数据库中存储的值动态显�C�出来，先在Form4.5中徏立一个PRCEDURE�Q�命名�ؓDYN_LIST:

PROCEDURE DYN_LIST IS
CURSOR C1 IS
SELECT DISTINCT(SPECIFICATION)
FROM EBOP_CABLE_ACCOUNT;
CNT NUMBER;
i NUMBER;
TNAME EBOP_CABLE_
ACCOUNT.SPECIFICATION%TYPE;
BEGIN
CLEAR_LIST('EBOP_CABLE_
ACCOUNT.SPECIFICATION');
SELECT COUNT(DISTINCT
(SPECIFICATION)) INTO CNT FROM EBOP
_CABLE_ACCOUNT;
open C1;
FOR i IN 1..CNT LOOP
FETCH C1 INTO TNAME;
EXIT WHEN C1%NOTFOUND
OR C1%NOTFOUND IS NULL;
ADD_LIST_ELEMENT
('EBOP_CABLE_ACCOUNT
.SPECIFICATION',i,TNAME,TNAME);
END LOOP;
DELETE_LIST_ELEMENT
('EBOP_CABLE_ACCOUNT.SPECIFICATION',CNT+1);
CLOSE C1;
END;
然后在FORM的WHEN-NEW
-FORM-INSTANCE触发子中加入一行：
DYN_LIST;
---- �q�样一�q�入该FMX�Q�就会动态刷新该列表。除此之外，SPECIFICATION数据��Ҏ��为列表项�?
---- �?当显�C�多条记录且数据��特别多�Ӟ��如何�l�织录入及显�C�界�?

---- 如上图所�C�，PRN代码及设备代码在��d��1(CONTENT�?上，其它数据��在��d��2(STACK�?上，所有数据项��Z��个表的列或一个块的数据项。在拉动水��^滚动条时或用TAB或敲回�R键时�Q�将看到全部数据��V��这�U�排布方法适用于数据项特别多又��x��C�多条记录时用。主要制作顺序�ؓ�Q�先建立两个��d��Q�画�?(CONTENT�?�Q�画�?(STACK�?�Q�然后徏立块�Q�选画布时用画�?�Q�这��h��有项都显�C�在��d��1上，然后选中除PRN代码及设备代码之外的所有数据项�Q�选TOOLS菜单下的PROPERTIES选项�Q�将�q�些数据��的CANVAS属性选�ؓ��d��2(STACK�?�Q�然后调整整体位�|�就可以了�?

---- �?如何在FORM的受限触发子中提交保存数�?

---- 在FORM中很多触发子是不能用COMMIT WORK语句的，当你在该触发子中使用了UPDATE�Q�DELETE�{�操作�ƈ想立卛_��盘时�Q�就需要COMMIT WORK语句了。首先在服务器端建立DB_SQL_COMMIT�q�个�q�程(采用ORACLE7.3数据�?�Q?

PROCEDURE DB_SQL_COMMIT IS
source_cursor integer;
ignore integer;
V7 NUMBER :=2;
BEGIN
source_cursor:=dbms_sql.open_cursor;
dbms_sql.parse(source_cursor,'COMMIT WORK',V7);
ignore:=dbms_sql.execute(source_cursor);
DBMS_SQL.CLOSE_CURSOR(source_cursor);
END;
---- 然后在FORM中该触发子中调用�q�程DB_SQL_COMMIT;��可以了�Q�当然你可以�Ҏ��自己需要将该过�E�加入参敎ͼ��q�样通过参数可以得到执行DML语句的权限�?BR>

- �?如何在FORM中实现某数据��自动按记录序号加一操作

---- 讑֝�名�ؓVO,要操作的数据��ؓVO_ID,在该块中建立块��触发子WHEN-CREATE- RECORD�Q�加入如下代码：

:VO_ID:=:System.Trigger_Record;
---- �q�样每当生成新记录时VO_ID��׃��自动加一了�?
---- �?如何在一个FORM中调用另一个FORM�Q�或在一个块中调用另一个块时显�C�特定的记录有时用户会要求在调用另一个FORM�Ӟ��只显�C�相关的记录�Q��D例如下，在一个FORM的块中有一个按钮，在按钮触发子中加入如下代码：

DECLARE
PM
PARAMLIST;
BEGIN
PM:=GET_PARAMETER_LIST('PM');
IF NOT ID_NULL(PM) THEN
DESTROY_PARAMETER_LIST('PM');
END IF;
PM:=CREATE_PARAMETER_LIST('PM');
......................
ADD_PARAMETER(PM,'THE_WHERE',
TEXT_PARAMETER,'EM_NAME=''EM4''
AND EM_PROJECT_NAME=''支架预制''');
OPEN_FORM('PAYMENT',ACTIVATE,SESSION,PM);
END�Q?BR>---- 其中EM_NAME�Q�EM_PROJECT_NAME为本FORM某块的数据项�Q�PAYMENT��调用的FORM模块。这样通过传递参数列表就可以得到惌��的结果。在FORM PAYMENT.FMB中，建立一参数THE_WHERE�Q�CHAR型，�?000�Q�然后在PAYMENT.FMB中徏立FORM�U�触发子WHEN-NEW-FORM-INSTANCE�Q�在该触发子中加入以下语句：
IF :PARAMETER.THE_WHERE IS NOT NULL THEN
SET_BLOCK_PROPERTY('PAYMENT',
DEFAULT_WHERE,:PARAMETER.THE_WHERE);
END IF;
---- 其中PAYMENT��昄��的块�Q�这样通过参数传递就得到惌��的某些特定条件的数据了�?
---- �?在FORM中当有主从块�Ӟ��q�箋输入记录如何避免被不断的提示保存�Q?

---- 每输入一条主记录和若�q�条该主记录的从记录后，此时再导航到��d��输下一条记录，FORM��׃��提示你是否要保存记录�Q�而你�q�不希望FORM提示�Q�让它自动保存，此时你可以到Program Units中找到过�E�PROCEDURE Clear_All_Master_Details�Q�然后在�q�个�q�程中找到语�?

Clear_Block(ASK_COMMIT);
---- ��其改�ؓClear_Block(DO_COMMIT);��可以了�?
---- �?在Report开始时选择排序��?

---- 在报表开始的Parameter Form中选择报表按哪个数据项排序�Q?

---- 1. 先在USER PARAMETER 中创建SORT参数�Q��ؓ字符型，�?0�?

---- 2. 初始值选’责��L��?然后��这四个��D��入到DATA SELECTION中，形成列表�?

---- 3. 然后处理QUERY中的SQL语句:

select CHARGER,FCO_NO,EM_NAME,FCO
_NO,DESCRIPTION, FCR_POINT
from FCR_MAIN
ORDER BY DECODE(:SORT,'责�Q�?,CHARGER,'FCO�?,
FCO_NO,'FCR�?,FCR_NO,'FCR�?,EM_NAME)

---- �?在Developer 2000中如何读写操作系�l�文�?
---- 在用Developer 2000的开发工具开发应用程序时�Q�经常碰到需要读写外部文件的问题�Q�可以用ORACLE 带的包TEXT_IO来完成这��w��求。例�?

DECLARE
IN_FILE TEXT_IO.FILE_TYPE;
OUT_FILE TEXT_IO.FILE_TYPE;
LINE_BUFER VARCHAR2(80);
/*若不用IN_FILE,可以��各字段联接在一赯��值给此变�?/
BEGIN
IN_FILE:=TEXT_IO.FOPEN
(‘C:\TEMP\TEST1.TXT�?’r�?;
OUT_FILE:=TEXT_IO.FOPEN
(‘C:\TEMP\TEST2.TXT�?’w+�?;
LOOP
TEXT_IO.GET_LINE(IN_FILE,LINE_BUFER);
TEXT_IO.PUT(LINE_BUFER);
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE(OUT_FILE,LINE_BUFER);
END LOOP;
EXCEPTION
WHEN no_data_found THEN
TEXT_IO.PUT_LINE(‘CLOSING THE FILE ,PLEASE WAITING....�?;
TEXT_IO.FCLOSE(IN_FILE);
TEXT_IO.FCLOSE(OUT_FILE);
END;
---- �?数据库管�?

---- �?在删除一个表中的全部数据�Ӟ��M��用TRUNCATE TABLE 表名;因�ؓ用DROP TABLE�Q�DELETE * FROM 表名�Ӟ��TABLESPACE表空间该表的占用�I�间�q�未释放�Q�反复几�ơDROP�Q�DELETE操作后，该TABLESPACE上百兆的�I�间��p��耗光了�?

---- �?数据库文件的�U�d��Ҏ��

---- 当想��数据库文�g�U�d��到另外一个目录下�Ӟ��可以用ALTER DATABASE命��o来移�?比ALTER TABLESPACE适用性强)�Q?

---- 1. 使用SERVER MANAGER关闭实例.

SVRMGR > connect internal;
SVRMGR > shutdown;
SVRMGR >exit;
---- 2. 使用操作�pȝ��命��o来移动数据库文�g位置(假设�q�里操作�pȝ��为SOLARIS 2.6). 在UNIX中用 mv命��o可以把文件移动到新的位置�Q?

#mv /ora13/orarun/document.dbf /ora12/orarun
---- 3. 装蝲数据库�ƈ用alter database命��o来改变数据库中的文�g�?
SVRMGR > connect internal;
SVRMGR > startup mount RUN73;
SVRMGR > alter database rename file
> �? ora13/orarun/document.dbf�?BR>> �? ora12/orarun/document.dbf�?
---- 4. 启动实例.

SVRMGR > alter database open;

konhon 优华 2005-10-17 18:58 发表评论

konhon 优华 — Mon, 17 Oct 2005 10:58:00 GMT
---- ORACLE数据库作为大型数据库��理�pȝ��Q�近�q�来一直占有世界上高端数据库的最大䆾额，其强大而完善的数据库管理功能，以及ORACLE公司推陈出新的不断努力，一直成为IT业界瞩目的焦炏V��岭��x��늫�的数据库�q�_��采用了ORACLE7.3作�ؓ后端�q�_��Q�前端选择了ORACLE公司的DEVELOPER 2000 及DESIGNER 2000作�ؓ开发工��P��采用了目前流行的CLIENT/SERVER模式。本人在ORACLE�pȝ��的开发中�Q�就ORACLE的整套开发工��h��Z��些自��q��体会�Q�供同行参考�?

---- 一. ORACLE SQL PLUS 使用技�?

---- ①查��N��复记�?

SELECT DRAWING,DSNO FROM EM5_PIPE_PREFAB
WHERE ROWID!=(SELECT MAX(ROWID) FROM EM5
_PIPE_PREFAB D
WHERE EM5_PIPE_PREFAB.DRAWING=D.DRAWING AND
EM5_PIPE_PREFAB.DSNO=D.DSNO);
---- 执行上述SQL语句后就可以昄��所有DRAWING和DSNO相同且重复的记录�?
---- 删除重复记录:

DELETE FROM EM5_PIPE_PREFAB
WHERE ROWID!=(SELECT MAX(ROWID) FROM EM5
_PIPE_PREFAB D
WHERE EM5_PIPE_PREFAB.DRAWING=D.DRAWING AND
EM5_PIPE_PREFAB.DSNO=D.DSNO);
---- 执行上述SQL语句后就可以刪除所有DRAWING和DSNO相同且重复的记录�?
---- �?快速编译所有视�?

---- 当在把数据库倒入到新的服务器上后(数据库重�?�Q�需要将视图重新�~�译一遍，因�ؓ该表�I�间视图到其它表�I�间的表的连接会出现问题�Q�可以利用PL/SQL的语�a��Ҏ��，快速编译�?

SQL >SPOOL ON.SQL
SQL >SELECT ‘ALTER VIEW ‘||TNAME||�?BR>COMPILE;�?FROM TAB;
SQL >SPOOL OFF
然后执行ON.SQL卛_��?BR>SQL >@ON.SQL
当然�Q�授权和创徏同义词也可以快速进行，如：
SQL >SELECT ‘GRANT SELECT ON �?BR>||TNAME||�?TO USERNAME;�?FROM TAB;
SQL >SELECT ‘CREATE SYNONYM
‘||TNAME||�?FOR USERNAME.’||TNAME||�?�?FROM TAB;

�?用外联接提高表连接的查询速度
在作表连�?常用于视�?�Ӟ��怋�用以下方法来查询数据:
SELECT PAY_NO, PROJECT_NAME
FROM A
WHERE A.PAY_NO NOT IN (SELECT PAY_
NO FROM B WHERE VALUE >=120000);
---- 但是若表A�?0000条记录，表B�?0000条记录，则要用掉30分钟才能查完�Q�主要因为NOT IN要进行一条一条的比较�Q�共需�?0000*10000�ơ比较后�Q�才能得到结果。该用外联接后，可以�~�短�?分左右的旉��:
SELECT PAY_NO,PROJECT_NAME
FROM A,B
WHERE A.PAY_NO=B.PAY_NO(+)
AND B.PAY_NO IS NULL
AND B.VALUE >=12000;
---- �?怎样��d��文本型操作系�l�文�?
---- 在PL/SQL 3.3以上的版本中�Q�UTL_FILE包允许用户通过PL/SQL��d��操作�pȝ��文�g。如下：

DECALRE
FILE_HANDLE UTL_FILE.FILE_TYPE;
BEGIN
FILE_HANDLE:=UTL_FILE.FOPEN(
‘C:\�?’TEST.TXT�?’A�?;
UTL_FILE.PUT_LINE(FILE_HANDLE,�?BR>HELLO,IT’S A TEST TXT FILE�?;
UTL_FILE.FCLOSE(FILE_HANDLE);
END;
---- 相关UTL_FILE数据库包详细信息可以参见相关资料�?/FONT>
---- �?怎样在数据库触发器中使用列的新��g��旧�?

---- 在数据库触发器中几乎��L��要��用触发器��的列��|��如果某条语句需要某列修改前的��|��使用:OLD��可以了�Q��用某列修改后的新��|��?NEW��可以了。如:OLD.DEPT_NO,:NEW.DEPT_NO�?

---- �?ORACLE DEVELOPER 2000使用技巧：

---- �?改变FORM(FMX模块)�q�行时的Runform4.5的题�?

---- DEVELOPER2000中FMX默认题头为：Developer/2000 Forms Runtime for Windows 95 / NT 你可以改��己定义的标题,

---- 1. 在Form�U�触发器中添加触发WHEN-NEW-FORM-INSTANCE

---- 2. 在此触发器中写如下代码：

set_window_property(FORMS_MDI_WINDOW,TITLE,'POINT
SYSTEM �Ƣ迎使用');
---- �?如何隐藏菜单中的window选项:
---- 在创��q��菜单�Ӟ��最后选项��L��window��，下面介绍如何��L��?

---- 1. 创徏一个Menu

---- 2. 在Menu中徏立一个Item,命名为WINDOW�?

---- 3. 讄��该Item属性如�?

----

Menu Item Type:Magic
Command Type:Null
Magic Item:Window
Lable:为空

---- �?怎样创徏动态下拉列表List
---- Developer 2000 中的列表是通过讄��相关属性而完成数据项的列表设�|�的�Q�但那只是静态的�Q�有时你惌��某项成�ؓ动态的列表�Q�随输入数据的改变而改变，��需要动手去�~�个��程序。下面详�l�介�l�怎样��d��:

---- 有块EBOP_CABLE_ACCOUNT�Q�下有SPECIFICATION数据��，当一�q�入该模块时�Q�就��SPECIFICATION��在数据库中存储的值动态显�C�出来，先在Form4.5中徏立一个PRCEDURE�Q�命名�ؓDYN_LIST:

PROCEDURE DYN_LIST IS
CURSOR C1 IS
SELECT DISTINCT(SPECIFICATION)
FROM EBOP_CABLE_ACCOUNT;
CNT NUMBER;
i NUMBER;
TNAME EBOP_CABLE_
ACCOUNT.SPECIFICATION%TYPE;
BEGIN
CLEAR_LIST('EBOP_CABLE_
ACCOUNT.SPECIFICATION');
SELECT COUNT(DISTINCT
(SPECIFICATION)) INTO CNT FROM EBOP
_CABLE_ACCOUNT;
open C1;
FOR i IN 1..CNT LOOP
FETCH C1 INTO TNAME;
EXIT WHEN C1%NOTFOUND
OR C1%NOTFOUND IS NULL;
ADD_LIST_ELEMENT
('EBOP_CABLE_ACCOUNT
.SPECIFICATION',i,TNAME,TNAME);
END LOOP;
DELETE_LIST_ELEMENT
('EBOP_CABLE_ACCOUNT.SPECIFICATION',CNT+1);
CLOSE C1;
END;
然后在FORM的WHEN-NEW
-FORM-INSTANCE触发子中加入一行：
DYN_LIST;
---- �q�样一�q�入该FMX�Q�就会动态刷新该列表。除此之外，SPECIFICATION数据��Ҏ��为列表项�?
---- �?当显�C�多条记录且数据��特别多�Ӟ��如何�l�织录入及显�C�界�?

---- 如上图所�C�，PRN代码及设备代码在��d��1(CONTENT�?上，其它数据��在��d��2(STACK�?上，所有数据项��Z��个表的列或一个块的数据项。在拉动水��^滚动条时或用TAB或敲回�R键时�Q�将看到全部数据��V��这�U�排布方法适用于数据项特别多又��x��C�多条记录时用。主要制作顺序�ؓ�Q�先建立两个��d��Q�画�?(CONTENT�?�Q�画�?(STACK�?�Q�然后徏立块�Q�选画布时用画�?�Q�这��h��有项都显�C�在��d��1上，然后选中除PRN代码及设备代码之外的所有数据项�Q�选TOOLS菜单下的PROPERTIES选项�Q�将�q�些数据��的CANVAS属性选�ؓ��d��2(STACK�?�Q�然后调整整体位�|�就可以了�?

---- �?如何在FORM的受限触发子中提交保存数�?

---- 在FORM中很多触发子是不能用COMMIT WORK语句的，当你在该触发子中使用了UPDATE�Q�DELETE�{�操作�ƈ想立卛_��盘时�Q�就需要COMMIT WORK语句了。首先在服务器端建立DB_SQL_COMMIT�q�个�q�程(采用ORACLE7.3数据�?�Q?

PROCEDURE DB_SQL_COMMIT IS
source_cursor integer;
ignore integer;
V7 NUMBER :=2;
BEGIN
source_cursor:=dbms_sql.open_cursor;
dbms_sql.parse(source_cursor,'COMMIT WORK',V7);
ignore:=dbms_sql.execute(source_cursor);
DBMS_SQL.CLOSE_CURSOR(source_cursor);
END;
---- 然后在FORM中该触发子中调用�q�程DB_SQL_COMMIT;��可以了�Q�当然你可以�Ҏ��自己需要将该过�E�加入参敎ͼ��q�样通过参数可以得到执行DML语句的权限�?BR>

- �?如何在FORM中实现某数据��自动按记录序号加一操作

---- 讑֝�名�ؓVO,要操作的数据��ؓVO_ID,在该块中建立块��触发子WHEN-CREATE- RECORD�Q�加入如下代码：

:VO_ID:=:System.Trigger_Record;
---- �q�样每当生成新记录时VO_ID��׃��自动加一了�?
---- �?如何在一个FORM中调用另一个FORM�Q�或在一个块中调用另一个块时显�C�特定的记录有时用户会要求在调用另一个FORM�Ӟ��只显�C�相关的记录�Q��D例如下，在一个FORM的块中有一个按钮，在按钮触发子中加入如下代码：

DECLARE
PM
PARAMLIST;
BEGIN
PM:=GET_PARAMETER_LIST('PM');
IF NOT ID_NULL(PM) THEN
DESTROY_PARAMETER_LIST('PM');
END IF;
PM:=CREATE_PARAMETER_LIST('PM');
......................
ADD_PARAMETER(PM,'THE_WHERE',
TEXT_PARAMETER,'EM_NAME=''EM4''
AND EM_PROJECT_NAME=''支架预制''');
OPEN_FORM('PAYMENT',ACTIVATE,SESSION,PM);
END�Q?BR>---- 其中EM_NAME�Q�EM_PROJECT_NAME为本FORM某块的数据项�Q�PAYMENT��调用的FORM模块。这样通过传递参数列表就可以得到惌��的结果。在FORM PAYMENT.FMB中，建立一参数THE_WHERE�Q�CHAR型，�?000�Q�然后在PAYMENT.FMB中徏立FORM�U�触发子WHEN-NEW-FORM-INSTANCE�Q�在该触发子中加入以下语句：
IF :PARAMETER.THE_WHERE IS NOT NULL THEN
SET_BLOCK_PROPERTY('PAYMENT',
DEFAULT_WHERE,:PARAMETER.THE_WHERE);
END IF;
---- 其中PAYMENT��昄��的块�Q�这样通过参数传递就得到惌��的某些特定条件的数据了�?
---- �?在FORM中当有主从块�Ӟ��q�箋输入记录如何避免被不断的提示保存�Q?

---- 每输入一条主记录和若�q�条该主记录的从记录后，此时再导航到��d��输下一条记录，FORM��׃��提示你是否要保存记录�Q�而你�q�不希望FORM提示�Q�让它自动保存，此时你可以到Program Units中找到过�E�PROCEDURE Clear_All_Master_Details�Q�然后在�q�个�q�程中找到语�?

Clear_Block(ASK_COMMIT);
---- ��其改�ؓClear_Block(DO_COMMIT);��可以了�?
---- �?在Report开始时选择排序��?

---- 在报表开始的Parameter Form中选择报表按哪个数据项排序�Q?

---- 1. 先在USER PARAMETER 中创建SORT参数�Q��ؓ字符型，�?0�?

---- 2. 初始值选’责��L��?然后��这四个��D��入到DATA SELECTION中，形成列表�?

---- 3. 然后处理QUERY中的SQL语句:

select CHARGER,FCO_NO,EM_NAME,FCO
_NO,DESCRIPTION, FCR_POINT
from FCR_MAIN
ORDER BY DECODE(:SORT,'责�Q�?,CHARGER,'FCO�?,
FCO_NO,'FCR�?,FCR_NO,'FCR�?,EM_NAME)

---- �?在Developer 2000中如何读写操作系�l�文�?
---- 在用Developer 2000的开发工具开发应用程序时�Q�经常碰到需要读写外部文件的问题�Q�可以用ORACLE 带的包TEXT_IO来完成这��w��求。例�?

DECLARE
IN_FILE TEXT_IO.FILE_TYPE;
OUT_FILE TEXT_IO.FILE_TYPE;
LINE_BUFER VARCHAR2(80);
/*若不用IN_FILE,可以��各字段联接在一赯��值给此变�?/
BEGIN
IN_FILE:=TEXT_IO.FOPEN
(‘C:\TEMP\TEST1.TXT�?’r�?;
OUT_FILE:=TEXT_IO.FOPEN
(‘C:\TEMP\TEST2.TXT�?’w+�?;
LOOP
TEXT_IO.GET_LINE(IN_FILE,LINE_BUFER);
TEXT_IO.PUT(LINE_BUFER);
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE(OUT_FILE,LINE_BUFER);
END LOOP;
EXCEPTION
WHEN no_data_found THEN
TEXT_IO.PUT_LINE(‘CLOSING THE FILE ,PLEASE WAITING....�?;
TEXT_IO.FCLOSE(IN_FILE);
TEXT_IO.FCLOSE(OUT_FILE);
END;
---- �?数据库管�?

---- �?在删除一个表中的全部数据�Ӟ��M��用TRUNCATE TABLE 表名;因�ؓ用DROP TABLE�Q�DELETE * FROM 表名�Ӟ��TABLESPACE表空间该表的占用�I�间�q�未释放�Q�反复几�ơDROP�Q�DELETE操作后，该TABLESPACE上百兆的�I�间��p��耗光了�?

---- �?数据库文件的�U�d��Ҏ��

---- 当想��数据库文�g�U�d��到另外一个目录下�Ӟ��可以用ALTER DATABASE命��o来移�?比ALTER TABLESPACE适用性强)�Q?

---- 1. 使用SERVER MANAGER关闭实例.

SVRMGR > connect internal;
SVRMGR > shutdown;
SVRMGR >exit;
---- 2. 使用操作�pȝ��命��o来移动数据库文�g位置(假设�q�里操作�pȝ��为SOLARIS 2.6). 在UNIX中用 mv命��o可以把文件移动到新的位置�Q?

#mv /ora13/orarun/document.dbf /ora12/orarun
---- 3. 装蝲数据库�ƈ用alter database命��o来改变数据库中的文�g�?
SVRMGR > connect internal;
SVRMGR > startup mount RUN73;
SVRMGR > alter database rename file
> �? ora13/orarun/document.dbf�?BR>> �? ora12/orarun/document.dbf�?
---- 4. 启动实例.

SVRMGR > alter database open;

konhon 优华 2005-10-17 18:58 发表评论

也许你还不知�?- sqlplus的小�U�密(4)

konhon 优华 — Mon, 17 Oct 2005 10:53:00 GMT

也许你还不知�?- sqlplus的小�U�密(4)

�q�个也许不算什么秘�? 很多人大概都知道, 不过用过的�h也许不多.

�?.1.7版本(也许�?16? 不太��定)以后, sql*plus中有一个set markup html的命�? 可以��sql*plus的输��Z��html格式展现.

scott@O9I.US.ORACLE.COM> set markup html on spool on
">scott@O9I.US.ORACLE.COM>; select empno, ename from emp where rownum<3;

EMPNO

ENAME

7369

SMITH

7499

ALLEN

">scott@O9I.US.ORACLE.COM>;

注意其中的spool on, 当在屏幕上输出的时�? 我们看不��Z��不加spool on有什么区�? 但是当我们��用spool filename 输出到文件的时�? 会看到spool文�g中出��C��{�tag.

">scott@O9I.US.ORACLE.COM>; spool c:emp.htm

">scott@O9I.US.ORACLE.COM>; /

......此处省略
">scott@O9I.US.ORACLE.COM>; spool off

查看生成的emp.htm文�g的内�?

SQL*Plus Report

">scott@O9I.US.ORACLE.COM>; /

EMPNO

ENAME

7369

SMITH

7499

ALLEN

">scott@O9I.US.ORACLE.COM>; spool off

用ie打开emp.htm文�g后的样式如下:

现在看看spool off的情况下:

">scott@O9I.US.ORACLE.COM>; set markup html on spool off

">scott@O9I.US.ORACLE.COM>; spool c:emp2.htm

">scott@O9I.US.ORACLE.COM>; /

EMPNO

ENAME

7369

SMITH

7499

ALLEN

">scott@O9I.US.ORACLE.COM>; spool off

�׃��q�段代码中没有html文�g�? 所以我们可以直接作为内�Ҏ��入到�|�页�? 现在我们��可以把�q�段代码攑ֈ�下面作�ؓ�C�Z��:

EMPNO ENAME

7369 SMITH

7499 ALLEN

�ȝ��: 如果要生成一个完整的html文�g, ��׃��用spool on选项, 如果只是要内定w��?用来��d��C��个现有的�|�页�?, 那么��׃��用spool off选项.

另外, set markup html�q�有很多选项可以用来定制生成的html的各个部�? 例如head, body, table�{? �q�里不再逐一说明, 详细信息可以参考SQL*Plus User's Guide and Reference.

适用场景: 当需要定时更��C��个从数据库中获取内容的静态页面时, �q�种�Ҏ��l�对是快��L��q�且�Ҏ��实现�?

konhon 优华 2005-10-17 18:53 发表评论

也许你还不知�?- sqlplus的小�U�密(3)

konhon 优华 — Mon, 17 Oct 2005 10:52:00 GMT

有没有过�q�样的经�? 在sql*plus中敲了很长的命��o�? �H�然发现想不��h��个列的名字了, 如果取消当前的命�?待查询后再重�? 那太痛苦�? 当然你可以另开一个sql*plus�H�口�q�行查询, 但这里提供的�Ҏ��更简�?

比如�? 你想查工资大�?000的员工的信息, 输入了下面的语句:

scott@O9I.US.ORACLE.COM> select deptno, 2 empno, 3 ename 4 from emp 5 where

�q�时, 你发��C��想不��h��工资的列名是什么了.

�q�种情况�? 只要在下一行以#开�? ��可以执行一条sql*plus命��o, 执行完后, 刚才的语句可以��l�输�?

scott@O9I.US.ORACLE.COM> select deptno, 2 empno, 3 ename 4 from emp 5 where 6 #desc emp
Name Null? Type ----------------------------------------- -------- -------------- EMPNO NOT NULL NUMBER(4) ENAME VARCHAR2(10) JOB VARCHAR2(9) MGR NUMBER(4) HIREDATE DATE SAL NUMBER(7,2) COMM NUMBER(7,2) DEPTNO NUMBER(2) 6 sal > 4000; DEPTNO EMPNO ENAME ---------- ---------- ---------- 10 7839 KING

konhon 优华 2005-10-17 18:52 发表评论

也许你还不知�?- sqlplus的小�U�密(2)

konhon 优华 — Mon, 17 Oct 2005 10:48:00 GMT

Sql*plus�? 不允许sql语句中间有空�? �q�在从其它地�Ҏ��贝脚本到sql*plus中执行时很麻�? 比如下面的脚�?

select deptno, empno, ename from emp where empno = '7788';

如果拯��到sql*plus中执�? ��׃��出现错误:

scott@O9I.US.ORACLE.COM> select deptno, empno, ename 2 from emp 3 where empno = '7788'; SP2-0734: unknown command beginning "where empn..." - rest of line ignored.

原因是sqlplus遇到�I��p��为是语句�l�束�?
其实要改变这�U�现�? 只要使用SQLBLANKLINES参数��可以了.

scott@O9I.US.ORACLE.COM> SET SQLBLANKLINES ON scott@O9I.US.ORACLE.COM> scott@O9I.US.ORACLE.COM> select deptno, empno, ename 2 from emp 3 4 where empno = '7788'; DEPTNO EMPNO ENAME ---------- ---------- ---------- 20 7788 SCOTT

konhon 优华 2005-10-17 18:48 发表评论

也许你还不知�?- sqlplus的小�U�密(1)

konhon 优华 — Mon, 17 Oct 2005 10:47:00 GMT

有没有�ؓ了dbms_output.put_line�?吃掉"最前面的空��D��苦�?

scott@O9I.US.ORACLE.COM> set serveroutput on scott@O9I.US.ORACLE.COM> exec dbms_output.put_line(' abc'); abc PL/SQL procedure successfully completed.

(��Z��前曾�l�很苦恼��Z��保留�I�格, ��试了加".", 加不可见字符�{�办�? 不过�l�究觉得不自�?
实际�? 只要在set serveroutput on后加上format wrapped参数, ��可以避免这个问�?/P>
scott@O9I.US.ORACLE.COM> set serveroutput on format wrapped scott@O9I.US.ORACLE.COM> exec dbms_output.put_line(' abc'); abc PL/SQL procedure successfully completed.

konhon 优华 2005-10-17 18:47 发表评论

konhon 优华 — Mon, 17 Oct 2005 10:20:00 GMT
扚w��删除��量数据通常都是很复杂及�~�慢的，�Ҏ��也很多，但是通常的概忉|��:分批删除�Q�逐次提交�?BR>下面是我的删除过�E�，我的数据表可以通过主键删除�Q�测试过Delete和For all两种�Ҏ��Q�for all在这里�ƈ没有带来性能提高�Q�所以仍焉��择了批量直接删除�?BR>
首先创徏一下过�E�，使用自制事务�q�行处理�Q?BR>
create or replace procedure delBigTab
(
p_TableName       in    varchar2,
p_Condition       in    varchar2,
p_Count        in    varchar2
)
as
pragma autonomous_transaction;
n_delete number:=0;
begin
while 1=1 loop
EXECUTE IMMEDIATE
'delete from '||p_TableName||' where '||p_Condition||' and rownum <= :rn'
USING p_Count;
if SQL%NOTFOUND then
exit;
else
n_delete:=n_delete + SQL%ROWCOUNT;
end if;
commit;
end loop;
commit;
DBMS_OUTPUT.PUT_LINE('Finished!');
DBMS_OUTPUT.PUT_LINE('Totally '||to_char(n_delete)||' records deleted!');
end;

以下是删除过�E�及旉��:
SQL> create or replace procedure delBigTab
2 (
3    p_TableName       in    varchar2,
4    p_Condition       in    varchar2,
5    p_Count        in    varchar2
6 )
7 as
8   pragma autonomous_transaction;
9   n_delete number:=0;
10 begin
11   while 1=1 loop
12     EXECUTE IMMEDIATE
13       'delete from '||p_TableName||' where '||p_Condition||' and rownum <= :rn'
14     USING p_Count;
15     if SQL%NOTFOUND then
16        exit;
17     else
18              n_delete:=n_delete + SQL%ROWCOUNT;
19     end if;
20     commit;
21   end loop;
22   commit;
23   DBMS_OUTPUT.PUT_LINE('Finished!');
24   DBMS_OUTPUT.PUT_LINE('Totally '||to_char(n_delete)||' records deleted!');
25 end;
26 /

Procedure created.

SQL> set timing on
SQL> select min(NUMDLFLOGGUID) from HS_DLF_DOWNLOG_HISTORY;

MIN(NUMDLFLOGGUID)
------------------
          11000000

Elapsed: 00:00:00.23
SQL> exec delBigTab('HS_DLF_DOWNLOG_HISTORY','NUMDLFLOGGUID < 11100000','10000');

PL/SQL procedure successfully completed.

Elapsed: 00:00:18.54
SQL> select min(NUMDLFLOGGUID) from HS_DLF_DOWNLOG_HISTORY;

MIN(NUMDLFLOGGUID)
------------------
          11100000

Elapsed: 00:00:00.18
SQL> set serveroutput on
SQL> exec delBigTab('HS_DLF_DOWNLOG_HISTORY','NUMDLFLOGGUID < 11200000','10000');
Finished!
Totally 96936 records deleted!

PL/SQL procedure successfully completed.

Elapsed: 00:00:18.61
10万记录大�U?9s

SQL> exec delBigTab('HS_DLF_DOWNLOG_HISTORY','NUMDLFLOGGUID < 11300000','10000');
Finished!
Totally 100000 records deleted!

PL/SQL procedure successfully completed.

Elapsed: 00:00:18.62
SQL> exec delBigTab('HS_DLF_DOWNLOG_HISTORY','NUMDLFLOGGUID < 11400000','10000');
Finished!
Totally 100000 records deleted!

PL/SQL procedure successfully completed.

Elapsed: 00:00:18.85
SQL>
SQL> exec delBigTab('HS_DLF_DOWNLOG_HISTORY','NUMDLFLOGGUID < 13000000','10000');
Finished!
Totally 1000000 records deleted!

PL/SQL procedure successfully completed.

Elapsed: 00:03:13.87

100万记录大�U?分钟
SQL> exec delBigTab('HS_DLF_DOWNLOG_HISTORY','NUMDLFLOGGUID < 20000000','10000');

Finished!
Totally 6999977 records deleted!

PL/SQL procedure successfully completed.

Elapsed: 00:27:24.69
700万大�U?7分钟

konhon 优华 2005-10-17 18:20 发表评论

konhon 优华 — Mon, 17 Oct 2005 07:45:00 GMT

用户自定义的数据库备�?/FONT>

备䆾�c�d��

备䆾�Ҏ��

�C�Z��

数据文�g

操作�pȝ��命��o或工�?/SPAN>

C:\COPY datafile1.ora datafile.bak

归档重做日志文�g

操作�pȝ��命��o或工�?/SPAN>

C:\COPY log_01_23.arc log_01_23.bak

控制文�g

SQL命��o

SQL>ALTER DATABASE BACKUP CONTROLFILE TO confile.bak;

初始化参数文�?/SPAN>

SQL命��o

SQL>CREATE PFILE=SIDinit.ora FROM SPFILE;

�|�络配置与口令文�?/SPAN>

操作�pȝ��命��o

C:\COPY tnsnames.ora tnsnames.bak

数据库逻辑对象�Q�表、烦引、存储过�E�等�Q?/SPAN>

Export工具

C:\EXPORT system/manager TABLE

=hr.employees file=emp.dmp

如果数据库运行在不归档模式下�Q�可以对数据库进行不一致的完全备䆾�Q�或者对某个表空间或数据文�g�q�行单独的备份�?/FONT>

如果数据库运行在不归档模式下�Q�只能在关闭状态下�Ҏ��据库�q�行一致的完全备䆾

一�?SPAN style="FONT: 7pt 'Times New Roman'">             表空间或数据文�g的脱机备�?/SPAN>

    如果数据库运行在归档模式下，可以在打开状态下�Ҏ��据库中处于脱机状态的表空间或数据文�g�q�行备䆾。在备䆾期间数据库中其它的表�I�间或数据文件仍然可以被用户使用�?/SPAN>

SQL>ALTER TABLESPACE users OFFLINE NORMAL;

C:\COPY E:\oracle\oradata\users01.dbf F:\backup\users01.bak

SQL>ALTER TABLESPACE users ONLINE;

SQL>ALTER SYSTEM ARCHIVE LOG CURRENT;

二�?SPAN style="FONT: 7pt 'Times New Roman'">             表空间或数据文�g的联机备�?/SPAN>

如果数据库运行在归档模式下，可以在打开状态下�Ҏ��据库中处于联机状态的表空间或数据文�g�q�行备䆾。在备䆾期间�q�些表空间或数据文�g仍然可以被用户��用�?/FONT>

SQL>ALTER TABLESPACE users BEGIN BACKUP;

C:\COPY E:\oracle\oradata\users01.dbf F:\backup\users01.bak

SQL>ALTER TABLESPACE users END BACKUP;

SQL>ALTER SYSTEM ARCHIVE LOG CURRENT;

三�?SPAN style="FONT: 7pt 'Times New Roman'">             处理备䆾故障

如果在备份过�E�中发生故障�Q�导致备份突然中断，那么在下一�ơ启动数据库时备份表�I�间的数据文件将会仍然处于备份模式下�Q�因�?/SPAN>ORACLE会要求进行数据库恢复�?/SPAN>

1�?SPAN style="FONT: 7pt 'Times New Roman'"> 利用ALTER DATABASE END BACKUP语句退出备份模�?/SPAN>

SQL>STARTUP MOUNT

SQL>SELECT * FROM V$BACKUP WHERE STATUS=’ACTIVE�?/FONT>

(查询哪些数据文�g处于备䆾模式)

SQL>ALTER DATABASE END BACKUP;

SQL>ALTER DATABASE OPEN;

2�?SPAN style="FONT: 7pt 'Times New Roman'"> 利用RECOVER命��o退出备份模�?/SPAN>

   SQL>STARTUP MOUNT

   SQL>RECOVER DATABASE

   SQL>ALTER DATABASE OPEN;

四�?SPAN style="FONT: 7pt 'Times New Roman'">             控制文�g备䆾��Z��q�制文�g

SQL>ALTER DATABASE BACKUP CONTROLFILE TO

‘E:\backup\cfile.bak�?SPAN style="mso-spacerun: yes"> REUSE;

五�?SPAN style="FONT: 7pt 'Times New Roman'">             控制文�g备䆾到跟�t�文件中

SQL>ALTER DATABASE BACKUP CONTROLFILE TO TRACE;
�Q�数据库处于加蝲状态时�Q�利用上面语句可以将控制文�g备䆾到跟�t�文件中�Q?/SPAN>

konhon 优华 2005-10-17 15:45 发表评论

SQLServer和Oracle常用函数�Ҏ��

konhon 优华 — Thu, 13 Oct 2005 12:14:00 GMT
数学函数
　　1.�l�对�?nbsp;
　　S:select abs(-1) value
　　O:select abs(-1) value from dual

　　2.取整(�?
　　S:select ceiling(-1.001) value
　　O:select ceil(-1.001) value from dual

　　3.取整�Q�小�Q?nbsp;
　　S:select floor(-1.001) value
　　O:select floor(-1.001) value from dual

　　4.取整�Q�截取）
　　S:select cast(-1.002 as int) value
　　O:select trunc(-1.002) value from dual

　　5.四舍五入
　　S:select round(1.23456,4) value 1.23460
　　O:select round(1.23456,4) value from dual 1.2346

　　6.e为底的幂
　　S:select Exp(1) value 2.7182818284590451
　　O:select Exp(1) value from dual 2.71828182

　　7.取e为底的对�?nbsp;
　　S:select log(2.7182818284590451) value 1
　　O:select ln(2.7182818284590451) value from dual; 1

　　8.�?0为底�Ҏ��
　　S:select log10(10) value 1
　　O:select log(10,10) value from dual; 1

　　9.取��^�?nbsp;
　　S:select SQUARE(4) value 16
　　O:select power(4,2) value from dual 16

　　10.取��^�Ҏ��
　　S:select SQRT(4) value 2
　　O:select SQRT(4) value from dual 2

　　11.求�Q意数为底的幂
　　S:select power(3,4) value 81
　　O:select power(3,4) value from dual 81

　　12.取随机数
　　S:select rand() value
　　O:select sys.dbms_random.value(0,1) value from dual;

　　13.取符�?nbsp;
　　S:select sign(-8) value -1
　　O:select sign(-8) value from dual -1

　　14.圆周�?nbsp;
　　S:SELECT PI() value 3.1415926535897931
　　O:不知�?nbsp;

　　15.sin,cos,tan 参数都以弧度为单�?nbsp;
　　例如�Q�select sin(PI()/2) value 得到1�Q�SQLServer�Q?nbsp;

　　16.Asin,Acos,Atan,Atan2 �q�回弧度

　　17.弧度角度互换(SQLServer�Q�Oracle不知�?
　　DEGREES�Q�弧�?〉角�?nbsp;
　　RADIANS�Q�角�?〉弧�?nbsp;

数值间比较

　　18. 求集合最大�?nbsp;
　　S:select max(value) value from
　　(select 1 value
　　union
　　select -2 value
　　union
　　select 4 value
　　union
　　select 3 value)a

　　O:select greatest(1,-2,4,3) value from dual

　　19. 求集合最��?nbsp;
　　S:select min(value) value from
　　(select 1 value
　　union
　　select -2 value
　　union
　　select 4 value
　　union
　　select 3 value)a

　　O:select least(1,-2,4,3) value from dual

　　20.如何处理null�?F2中的null�?0代替)
　　S:select F1,IsNull(F2,10) value from Tbl
　　O:select F1,nvl(F2,10) value from Tbl

　　21.求字�W�序�?nbsp;
　　S:select ascii('a') value
　　O:select ascii('a') value from dual

　　22.从序��h��字符
　　S:select char(97) value
　　O:select chr(97) value from dual

　　23.�q�接
　　S:select '11'+'22'+'33' value
　　O:select CONCAT('11','22')　　33 value from dual

23.子串位置 --�q�回3
　　S:select CHARINDEX('s','sdsq',2) value
　　O:select INSTR('sdsq','s',2) value from dual

　　23.模糊子串的位�|?nbsp;--�q�回2,参数��L��中间%则返�?
　　S:select patindex('%d%q%','sdsfasdqe') value
　　O:oracle没发玎ͼ�但是instr可以通过�W�四个参数控制出现次�?nbsp;
　　select INSTR('sdsfasdqe','sd',1,2) value from dual �q�回6

　　24.求子�?nbsp;
　　S:select substring('abcd',2,2) value
　　O:select substr('abcd',2,2) value from dual

　　25.子串代替 �q�回aijklmnef
　　S:SELECT STUFF('abcdef', 2, 3, 'ijklmn') value
　　O:SELECT Replace('abcdef', 'bcd', 'ijklmn') value from dual

　　26.子串全部替换
　　S:没发�?nbsp;
　　O:select Translate('fasdbfasegas','fa','�? ) value from dual

　　27.长度
　　S:len,datalength
　　O:length

　　28.大小写�{�?nbsp;lower,upper

　　29.单词首字母大�?nbsp;
　　S:没发�?nbsp;
　　O:select INITCAP('abcd dsaf df') value from dual

　　30.左补�I�格�Q�LPAD的第一个参��Cؓ�I�格则同space函数�Q?nbsp;
　　S:select space(10)+'abcd' value
　　O:select LPAD('abcd',14) value from dual

　　31.双��I�格�Q�RPAD的第一个参��Cؓ�I�格则同space函数�Q?nbsp;
　　S:select 'abcd'+space(10) value
　　O:select RPAD('abcd',14) value from dual

　　32.删除�I�格
　　S:ltrim,rtrim
　　O:ltrim,rtrim,trim

　　33. 重复字符�?nbsp;
　　S:select REPLICATE('abcd',2) value
　　O:没发�?nbsp;

　　34.发音�怼�性比�?�q�两个单词返回��g��P��发音相同)
　　S:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe')
　　O:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe') from dual
　　SQLServer中用SELECT DIFFERENCE('Smithers', 'Smythers') 比较soundex的差
　　�q�回0-4�Q?为同韻I��1最�?nbsp;

日期函数
　　35.�pȝ��旉��
　　S:select getdate() value
　　O:select sysdate value from dual

　　36.前后几日
　　直接与整数相加减

　　37.求日�?nbsp;
　　S:select convert(char(10),getdate(),20) value
　　O:select trunc(sysdate) value from dual
　　select to_char(sysdate,'yyyy-mm-dd') value from dual

　　38.求时�?nbsp;
　　S:select convert(char(8),getdate(),108) value
　　O:select to_char(sysdate,'hh24:mm:ss') value from dual

39.取日期时间的其他部分
　　S:DATEPART �?nbsp;DATENAME 函数 �Q�第一个参数决定）
　　O:to_char函数 �W�二个参数决�?nbsp;

　　参数---------------------------------下表需要补�?nbsp;
　　year yy, yyyy
　　quarter qq, q (季度)
　　month mm, m (m O无效)
　　dayofyear dy, y (O表星�?
　　day dd, d (d O无效)
　　week wk, ww (wk O无效)
　　weekday dw (O不清�?
　　Hour hh,hh12,hh24 (hh12,hh24 S无效)
　　minute mi, n (n O无效)
　　second ss, s (s O无效)
　　millisecond ms (O无效)
　　----------------------------------------------

　　40.当月最后一�?nbsp;
　　S:不知�?nbsp;
　　O:select LAST_DAY(sysdate) value from dual

　　41.本星期的某一天（比如星期日）
　　S:不知�?nbsp;
　　O:SELECT Next_day(sysdate,7) vaule FROM DUAL;

　　42.字符串�{旉��
　　S:可以直接转或者select cast('2004-09-08'as datetime) value
　　O:SELECT To_date('2004-01-05 22:09:38','yyyy-mm-dd hh24-mi-ss') vaule FROM DUAL;

　　43.求两日期某一部分的差�Q�比如秒�Q?nbsp;
　　S:select datediff(ss,getdate(),getdate()+12.3) value
　　O:直接用两个日期相减（比如d1-d2=12.3�Q?nbsp;
　　SELECT (d1-d2)*24*60*60 vaule FROM DUAL;

　　44.�Ҏ��差值求新的日期�Q�比如分钟）
　　S:select dateadd(mi,8,getdate()) value
　　O:SELECT sysdate+8/60/24 vaule FROM DUAL;

　　45.求不同时区时�?nbsp;
　　S:不知�?nbsp;
　　O:SELECT New_time(sysdate,'ydt','gmt' ) vaule FROM DUAL;

　　-----时区参数,北京在东8区应该是Ydt-------
　　AST ADT 大西�z�标准时�?nbsp;
　　BST BDT 白��o��h��准时�?nbsp;
　　CST CDT 中部标准旉��
　　EST EDT 东部标准旉��
　　GMT 格林��治标准旉��
　　HST HDT 阿拉斯加?夏威��h��准时�?nbsp;
　　MST MDT 山区标准旉��
　　NST �U�芬兰标准时�?nbsp;
　　PST PDT 太��^�z�标准时�?nbsp;
　　YST YDT YUKON标准旉��

konhon 优华 2005-10-13 20:14 发表评论

oracle入门知识

konhon 优华 — Thu, 06 Oct 2005 08:38:00 GMT
oracle入门知识

一个表�I�间只能属于一个数据库
每个数据库最��有一个控制文�Ӟ��3个，分别攑֜�不同的磁盘上�Q?nbsp;
每个数据库最��有一个表�I�间�Q�SYSTEM表空��_��
建立SYSTEM表空间的目的是尽量将目的相同的表存放在一��P��以提高��用效率，只应存放数据字典

每个数据库最��有两个联机日志�l�，每组最��一个联机日志文�?nbsp;

一个数据文件只能属于一个表�I�间
一个数据文件一旦被加入��C��个表�I�间中，��׃��能再从这个表�I�间中移赎ͼ�也不能再加入到其他表�I�间�?nbsp;

建立新的表空间需要徏立新的数据文�?nbsp;

COMMIT后，数据不一定立卛_��盘（数据文�g�Q?nbsp;

一个事务即使不被提交，也会被写入到重做日志中�?nbsp;

oracle server可以同时启动多个数据�?nbsp;

一套操作系�l�上可以安装多个版本的ORACLE数据库系�l�（UNIX可以�Q�NT不可以）

一套ORACLE数据库系�l�中可以有多个ORACLE数据库及其相对应的实�?

konhon 优华 2005-10-06 16:38 发表评论

亚洲性猛交XXXX,久久久无码精品亚洲日韩软件,亚洲丁香色婷婷综合欲色啪

Function怎么�q�回一个数据集�Q?

PL/SQL�~�程�l�验���结

ORACLE里取随机数的�Ҏ��

PL/SQL的一些语�?

Useful SQL reference

SQL PLUS�~�辑器的一些常用设�|?

也许你还不知�?- sqlplus的小�U�密(4)

也许你还不知�?- sqlplus的小�U�密(3)

也许你还不知�?- sqlplus的小�U�密(2)

也许你还不知�?- sqlplus的小�U�密(1)

SQLServer和Oracle常用函数�Ҏ��

oracle入门知识

PL/SQL�~�程�l�验��结