[ASP] CLOB insert, select하기

CLOB 데이터 넣기(INSERT)

'저장할 시퀀스를 가져온다.
sql = "select 시퀀스 이름.nextval as no from dual"

Set rs = cn.Execute(sql)
no = rs("no")
rs.Close
Set rs = Nothing

'CLOB 데이터에 empty 값을 삽입한다.
sql = "insert into 테이블 이름(no,content) values(?,empty_clob())"
Set cmd = Server.CreateObject("ADODB.Command")

With cmd
    .ActiveConnection = connectString
    .CommandType = adCmdText
    .CommandText = sql
    .Parameters.Append .CreateParameter("@no", adInteger, adParamInput, ,no)
    .Execute
End With

'실제 값을 삽입한다.
sql = "update 테이블이름 set content=? where no=?"
set ocmd = Server.CreateObject("ADODB.Command")
With ocmd
    .ActiveConnection = cn
    .CommandType = adCmdText
    .CommandText = sql
    
    .Parameters.Append .CreateParameter("@content", adLongVarWChar, adParamInput, 10000,content) 
    .Parameters.Append .CreateParameter("@no", adInteger, adParamInput, ,no)
    .Execute
End With

CLOB 데이터 읽기(SELECT)

dim  ClobLength
 
sql ="select dbms_lob.getlength(content) as CLOBLength from 테이블 이름 where no="&no
Set rs = cn.Execute(sql)
ClobLength = rs(0)

'CLOB 데이터 길이를 ClobLength값에 넣는다.
sql ="select dbms_lob.substr(content,"& ClobLength &",1) as content from 테이블이름 where no="&no
Set rs = cn.Execute(sql)

출처: http://blog.daum.net/c_oracle/5