'打开数据库,打开test数据表以Rs为记录集
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("autop","system/manager",0)
Set rs=OraDatabase.CreateDynaset("select * from test order by id desc",0)
rs.Edit
rs.Fields("content").DbAppendChunk(content)
'更新记录集
rs.Update
rs.close
Set rs=Nothing
Set OraSession=Nothing