您现在正在浏览：站长之家 >> 数据库 >> 详细内容

ORACLE应用经验（1）

时间:2007-11-09 来源:不详作者:迈克DB

TEXT_IO.PUT_LINE
USING TEXT_IO CONSTRUCTS
----------------------------
Declare
Out_file Text_io.file_type;
L Varchar2(100);
L1 Varchar2(100);
L2 Varchar2(100);
Begin
Out_file :=text_io.fopen('c:lllogin.txt','r');
If text_io.is_open(Out_file) then
text_io.get_line(Out_file,L);
text_io.get_line(Out_file,L1);
text_io.get_line(Out_file,L2);
Else
Null;
End if;
End;
---清除全局变量
erase('global.var_name');
---隐藏'WINDOW','VIEW','MENU'
HIDE_WINDOW|VIEW|MENU(WINDOW|VIEW|MENU_name);
--- 增加参数add_parameter
Declare
pl_id ParamList;
BEGIN
pl_id:=Get_Parameter_List('tempdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List(pl_id);
END IF;
pl_id:=Create_Parameter_List('tempdata');
Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS');
Run_Product(REPORTS,'empreport',SYNCHRONOUS,RUNTIME,
FILESYSTEM,pl_id,NULL);
END;
---
DECLARE
lArgs OLE2.LIST_TYPE;
BEGIN copyright dedecms
word.hApp:=OLE2.CREATE_OBJ('Word.Basic');
lArgs:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(lArgs,:ole.word_doc);
OLE2.INVOKE(Word.hApp,'fileopen',lArgs);
OLE2.DESTROY_ARGLIST(lArgs);
END;
***********************删除重复记录**************
Delete from emp e
where e.rowid >
(select min(f.rowid) from emp f
4 where f.empno=e.empno);