Oracle操作特集-服务器专区

Oracle操作特集

作者：网络　佚名编辑： IT168 2005-08-24 00:00

    【IT168　服务器学院】 Developer/2000中，可以用Text_IO读写操作系统文件。
如下：
DECALRE
  in_file  Text_IO.File_Type;
  out_file Text_IO.File_Type;
BEGIN
  in_file:=Text_IO.Fopen(''文件名'', ''R'');
  Text_IO.Get_Line(in_file,linebuf);
  Text_IO.Fclose(in_file);

  out_file:=Text_IO.Fopen(''文件名'', ''W'');
  Text_IO.Put_Line(out_file,''写入信息'');
  Text_IO.Fclose(out_file);
END;

--常用TEXT_IO
Declare
out_file text_io.file_type; --定义
Begin
out_file:=text_io.fopen(''prn'',''w''); --打开文件prn
text_io.new_line(out_file,'' ''); --新建一行
text_io.put_line(out_file,'' '') --写入一行
text_io.fclose(out_file); --关闭文件
End;

---文本输入输出
   TEXT_IO
   TEXT_IO.PACKAGE
   TEXT_IO.FCLOSE
   TEXT_IO.FILE_TYPE
   TEXT_IO.FOPEN
   TEXT_IO.IS_OPEN
   TEXT_IO.GET_LINE
   TEXT_IO.NEW_LINE
   TEXT_IO.PUT
   TEXT_IO.PUTF
   TEXT_IO.PUT_LINE
Declare
     Out_file     Text_io.file_type;
     L            Varchar2(100);
     L1           Varchar2(100);
     L2           Varchar2(100);
Begin
    Out_file :=text_io.fopen(''c:\ll\login.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;

     FORM中如何存取图象？如何把图象从一个表中导到另一个表中？
    1、SQL*Plus中
SQL> create table t_photo1(photo1 long raw);
SQL> create table t_photo2(photo2 long raw);
    2、硬盘上c:\下有一个图象文件tmp.bmp
    3、打开FORM 新建两个块：t_photo1、t_photo2
t_photo1块是数据库块，连接的表是数据库中的一个表t_photo1
t_photo2块也是数据库块，连接的表是数据库中的另一个表t_photo2（备份表）
t_photo1块上新建一个图象项，名为photo1，对应的是即表t_photo1中的photo1列
t_photo2块上也新建一个图象项，名为photo2，对应的是即表t_photo2中的photo2列
    新建一按钮1，输入以下程序，这个按钮实现读入图象到表里，即录入图象到表里
BEGIN
  GO_BLOCK(''t_photo1'');--到块1
  READ_IMAGE_FILE(''c:\tmp.bmp'',''bmp'',''t_photo1.photo1'');
  --读入外部图象文件tmp.bmp（图象类型为BMP）到t_photo1块的photo1项，也就是到了t_photo1表里
  COMMIT;--存盘
END;
新建一按钮2，输入以下程序，这个按钮实现图象的倒表（t_photo1到t_photo2）
BEGIN
  GO_BLOCK(''t_photo1'');--到块1
  execute_query;
  --查询出表中的图象，这时，表中的图象到了FORM中的图象项上
  WRITE_IMAGE_FILE(''c:\tmp.bmp'',''bmp'',''t_photo1.photo1'');
  --把图象项中图象写入外部图象文件tmp.bmp
  GO_BLOCK(''t_photo2'');--到块2
  READ_IMAGE_FILE(''c:\tmp.bmp'',''bmp'',''t_photo2.photo2'');
  --把外部图象文件tmp.bmp读入到t_photo2块的photo2项，也就是到了t_photo2表里
  COMMIT;--存盘
END;

运行此程序，点击此按钮观察效果。

注释：t_photo1.photo1是正式图片表中的图象项（数据库项）（t_photo1块photo项1）
t_photo2.photo2是备份图片表中的图象项（数据库项）（t_photo2块photo项2）

关注我们