Devart Forums

Code: Select all

CREATE TABLE SCOTT.T_CLOB (
  F_ID   NUMBER(10, 0),
  F_CLOB CLOB,
  CONSTRAINT PK_T_CLOB PRIMARY KEY (F_ID));
/
INSERT INTO SCOTT.T_CLOB(F_ID) VALUES(1);
/

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, DB, Ora;

var
  OraSession: TOraSession;
  OraQuery: TOraQuery;
  OraUpdateSQL: TOraUpdateSQL;

begin
  OraSession := TOraSession.Create(nil, 'scott/tiger@orcl');
  try
    OraQuery := TOraQuery.Create(nil);
    try
      OraQuery.Session := OraSession;
      OraQuery.SQL.Text := 'select * from t_clob';
      OraUpdateSQL := TOraUpdateSQL.Create(nil);
      try
        OraQuery.UpdateObject := OraUpdateSQL;
        OraUpdateSQL.SQL[ukModify].Text := 'update t_clob set f_clob = EMPTY_CLOB() where 1<>1 returning f_clob into :f_clob';
        OraQuery.Open;
        OraQuery.Edit;
        OraQuery.Fields[0].AsInteger := OraQuery.Fields[0].AsInteger + 1;
        try
          OraQuery.Post;
          WriteLn('Error')
        except
          on E: Exception do
            WriteLn('OK')
        end;
      finally
        OraUpdateSQL.free;
      end;
    finally
      OraQuery.Free;
    end;
  finally
    OraSession.Free;
    readln;
  end;
end.