SQL SERVER 中image数据导入oracle数据库中的问题！

knightzhou 2002-02-04 09:40:55

SQL SERVER中有1表Report
定义如下
id int 类型，月份 smallint类型
内容，计算公式，校验公式，内容1, 内容2,内容3, 内容4,计算公式1,
计算公式2,计算公式3,计算公式4
为image 类型
其中 image 类型中存储文本
oracle中除image类型改为BLOB,Smallint 改为number(3) 外其他定义相同，现想
把SQL SERVER中有1表Report导入oracle表Report 中
在VB中写一小程序如下：
dim SqlCn as new adodb.connection
dim OraCn as new adodb.connection
sqlCn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
";User ID=" & UserID & _
";Initial Catalog=" & Database & ";" & _
"Password=" & Password & _
";Data Source=" & Server
sqlCn.open
OraCn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=" & Password & _
";Persist Security Info=True;User ID=" & UserID & _
";Data Source=" & Server
OraCn.open
dim Rs as new adodb.recordset
dim OraRs as new adodb.recordset
Rs.Open "select * from Report", SqlCn, adOpenDynamic, adLockOptimistic
OraRs.Open "select * from Report", OraCn, adOpenStatic, adLockBatchOptimistic

If Not Rs.EOF Or Rs.BOF Then Rs.MoveFirst
While Not Rs.EOF
OraRs.AddNew
OraRs!月份 = Rs!月份
OraRs!内容 = IIf(IsNull(Rs!内容), Null, Rs!内容)
OraRs!计算公式 = IIf(IsNull(Rs!计算公式), Null, Rs!计算公式)
OraRs!校验公式 = IIf(IsNull(Rs!校验公式), Null, Rs!校验公式)
OraRs!内容1 = IIf(IsNull(Rs!内容1), Null, Rs!内容1)
OraRs!内容2 = IIf(IsNull(Rs!内容2), Null, Rs!内容2)
OraRs!内容3 = IIf(IsNull(Rs!内容3), Null, Rs!内容3)
OraRs!内容4 = IIf(IsNull(Rs!内容4), Null, Rs!内容4)
OraRs!计算公式1 = IIf(IsNull(Rs!计算公式1), Null, Rs!计算公式1)
OraRs!计算公式2 = IIf(IsNull(Rs!计算公式2), Null, Rs!计算公式2)
OraRs!计算公式3 = IIf(IsNull(Rs!计算公式3), Null, Rs!计算公式3)
OraRs!计算公式4 = IIf(IsNull(Rs!计算公式4), Null, Rs!计算公式4)
'ID字段通过触发器自动增加
OraRs.Update
Rs.MoveNext
Wend
Rs.close
set Rs =Nothing
OraRs.close
Set OraRs=Nothing
执行到OraRs.Update时提示“多步操作产生错误，请检查每一不的状态”，不知为什么？

...全文