bork
Devart Team
Joined: 12 Mar 2010
Posts: 467
|
 Posted: Thu 15 Jul 2010 09:39 Post subject: |
 |
|
Hello
You can insert CLOB data by the following code:
| Code: | var
i: integer;
str: string;
begin
for i := 0 to 19999 do
str := str + Char(RandomRange(byte('a'), byte('z')));
SQLQuery1.SQL.Text := 'insert into btest6 (id, name, myclob) values (10, ''test clob'', EMPTY_CLOB()) ' + #13 +
'RETURNING ' + #13 +
' myclob ' + #13 +
'INTO ' + #13 +
' :myclob';
SQLQuery1.ParamByName('myclob').ParamType := ptInput;
SQLQuery1.ParamByName('myclob').DataType := ftOraClob;
SQLQuery1.ParamByName('myclob').Value := str;
SQLQuery1.ExecSQL;
end; |
The DDL script for creating this table:
| Code: | CREATE TABLE TEST_CLOB (
ID NUMBER,
NAME VARCHAR2(50),
MYCLOB CLOB,
CONSTRAINT PK_TEST_CLOB PRIMARY KEY (ID)
) |
|
|
