如何往oracle8i的CLOB字段里一次插入多于4000个字符的长文本！

Question

REM lobdml.sql
REM Version 1.0, last updated 8/8/97
REM This file demonstrates some DML operations on internal LOBs, as described
REM in Chapter 21 of _Oracle8 PL/SQL Programming_ by Scott Urman.DECLARE
  v_CLOBlocator CLOB;
  v_BLOBlocator BLOB;
BEGIN
  -- Initializes the clob_col to the specified string, and returns the
  -- locator into v_LOBlocator.
  INSERT INTO lobdemo (key, clob_col)
    VALUES (20, 'abcdefghijklmnopqrstuvwxyz')
    RETURNING clob_col INTO v_CLOBlocator;  -- Modifies blob_col for the same row.
  UPDATE lobdemo
    SET blob_col = HEXTORAW('00FF00FF00FF')
    WHERE key = 20;  -- Retrieves the locator for the newly updated value, not the value
  -- itself.
  SELECT blob_col
    INTO v_BLOBlocator
    FROM lobdemo
    WHERE key = 20;
END;
/

Answer 1

http://expert.csdn.net/Expert/topic/1832/1832280.xml?temp=.3194849

Answer 2

Delphi写的用流操作ado连接数据库 procedure TForm1.adoButtonClick(Sender: TObject);
var sm : tstream;
begin  
  Ado.Parameters.Clear;
  Ado.SQL.Clear;
  sm := TstringStream.Create(memo1.Text+'AdoClob');
  //memo1内为操作文本  
  ado.SQL.Text := 'select b from table where a=''1234''';
  //a为表内健字段，b为clob型字段  
  ado.Open;
  ADO.Edit; 
  TblobField(ado.FieldByName('b')).LoadFromStream(SM);
  ado.post;
  ADO.Close;
  sm.Free;
end;