如何执行包体的初始化
这个初始化是记录当前用户的用户名和在此会话中程序包开始执行的时间的SQL语句。create or replace package body book_management
as
USER_NAME VARCHAR2(20);
ENTRY_DATE DATE;
FUNCTION .........
.............
PROCEDURE ..........
...............................
BEGIN
SELECT User,Sysdate into USER_NAME,ENTRY_DATE FROM DAULT;
END book_management;
程序包体就是这样。
不知道如何去执行这个用户和时间呢？ 显示出来？ 书上没有说，不知道如何去执行。试了多个办法
谢谢了。 create or replace package body BDUSERALL
AS
USER_NAME VARCHAR2(30);
ENTRY_DATE DATE;
procedure p_wt(mycs out mytype)
as
begin
open mycs for select * from BDUSER;
end p_wt;
function f_get(str varchar2)
return varchar2
as
str_temp varchar2(200):='good luck.';
begin
str_temp :=str_temp || str;
return str_temp;
end f_get;
BEGIN
SELECT User,Sysdate into USER_NAME,ENTRY_DATE FROM DUAL;
DBMS_OUTPUT.PUT_LINE(USER_NAME);
end BDUSERALL;
页:
[1]