在PL/SQL/sqlplus客户端 中如何让程序暂停几秒钟

1. how to check procedure exist:

SQL> conn oper/oper123
Connected.
SQL> desc dbms_lock;
PROCEDURE ALLOCATE_UNIQUE
 Argument Name                  Type                    In/Out Default?
 ------------------------------ ----------------------- ------ --------
 LOCKNAME                       VARCHAR2                IN
 LOCKHANDLE                     VARCHAR2                OUT
 EXPIRATION_SECS                NUMBER(38)              IN     DEFAULT
FUNCTION CONVERT RETURNS NUMBER(38)
 Argument Name                  Type                    In/Out Default?
 ------------------------------ ----------------------- ------ --------
 ID                             NUMBER(38)              IN

2.

在编写PL/SQL中，有时需要程序中暂停几秒钟再继续执行，查了一下，Oracle内置有这个功能dbms_lock.sleep(10)；不过dbms_lock包需要用户自己安装，演示如下：

[sql] view plain copy print?

1. C:\Documents and Settings\andyleng>sqlplus /nolog
2. SQL*Plus: Release 11.2.0.1.0 Production on Thu Nov 10 10:04:56 2011
3. Copyright (c) 1982, 2010, Oracle.  All rights reserved.
4. SQL> conn /as sysdba　　--以SYSDBA身份登陆
5. Connected.
6. SQL> @?/rdbms/admin/dbmslock.sql　--安装系统包
7. Package created.
8. Synonym created.
9. Grant succeeded.
10. SQL> grant execute on dbms_lock to public;　--授权PUBLIC执行权限
11. Grant succeeded.
12. SQL> create table test1(id number,name varchar2(40),time date);   --创建test1临时表
13. Table created.
14. SQL> select * from test1;  --无数据
15. no rows selected
16. SQL> SET TIMING ON  --打开时间显示
17. SQL> begin  --开始执行测试脚本
18. 2    insert into test1(id,name,time) values(1,‘Andy‘,sysdate);
19. 3    DBMS_LOCK.SLEEP(10);  --让程序暂时10秒钟
20. 4    insert into test1(id,name,time) values(2,‘Shirley‘,sysdate);
21. 5    commit;
22. 6  end;
23. 7  /
24. PL/SQL procedure successfully completed.
25. Elapsed: 00:00:10.04  --程序执行时间为10.04秒
26. SQL> SELECT ID,NAME,TO_CHAR(TIME,‘YYYY/MM/DD HH24:MI:SS‘) AS TIME FROM TEST1;　--查询执行结果
27. ID NAME                                     TIME
28. ---------- ---------------------------------------- -------------------
29. 1 Andy                                     2011/11/10 10:09:03   --第一条的插入时间是09:03
30. 2 Shirley                                  2011/11/10 10:10:13   --第二条的插入时间是09:13,刚好比第一条晚了10秒钟
31. Elapsed: 00:00:00.00
32. SQL> drop table test1;
33. Table dropped.

C:\Documents and Settings\andyleng>sqlplus /nolog

SQL*Plus: Release 11.2.0.1.0 Production on Thu Nov 10 10:04:56 2011

Copyright (c) 1982, 2010, Oracle.  All rights reserved.

SQL> conn /as sysdba　　--以SYSDBA身份登陆
Connected.
SQL> @?/rdbms/admin/dbmslock.sql　--安装系统包

Package created.

Synonym created.

Grant succeeded.

SQL> grant execute on dbms_lock to public;　--授权PUBLIC执行权限

Grant succeeded.

SQL> create table test1(id number,name varchar2(40),time date);   --创建test1临时表

Table created.

SQL> select * from test1;  --无数据

no rows selected

SQL> SET TIMING ON  --打开时间显示
SQL> begin  --开始执行测试脚本
  2    insert into test1(id,name,time) values(1,‘Andy‘,sysdate);
  3    DBMS_LOCK.SLEEP(10);  --让程序暂时10秒钟
  4    insert into test1(id,name,time) values(2,‘Shirley‘,sysdate);
  5    commit;
  6  end;
  7  /

PL/SQL procedure successfully completed.

Elapsed: 00:00:10.04  --程序执行时间为10.04秒

SQL> SELECT ID,NAME,TO_CHAR(TIME,‘YYYY/MM/DD HH24:MI:SS‘) AS TIME FROM TEST1;　--查询执行结果

        ID NAME                                     TIME
---------- ---------------------------------------- -------------------
         1 Andy                                     2011/11/10 10:09:03   --第一条的插入时间是09:03
         2 Shirley                                  2011/11/10 10:10:13   --第二条的插入时间是09:13,刚好比第一条晚了10秒钟

Elapsed: 00:00:00.00

SQL> drop table test1;

Table dropped.