ado向oracle存储数据时的怪问题

Question

cn.Execute strSQL
要保存的数据都没有问题。目前看来与时间有关系。单步调试时可保存的条数少，执行时保存的多，但都在6000条以下

Answer 1

不是,执行cn.Execute strSQL插入记录时出错.另外oracle也没有问题

Answer 2

On Error GoTo ErrShow
   mstrConnectString = "连接字符串"   
   Rs.MoveFirst
   
   Dim cn As ADODB.Connection, strSQL As String, i As Long
   Set cn = CreateObject("ADODB.Connection")   
   cn.Open mstrConnectString
   While Not Rs.EOF
         strSQL = "INSERT INTO bjds.InvoiceDetail (ID,INVOICEID,DATEUISSUED,AMOUNTCHARGED,RECEIVERNO,INVOICESTATE,FORGERYCODE) " _
   '                & "VALUES (0,'" & Rs!InvoiceID & "',To_Date('" & Format(Rs!DATEUISSUED, "YYYYMMDD") & "','YYYYMMDD')," & Rs!AMOUNTCHARGED & ",'" & Rs!ReceiverNo _
   '                & "'," & Rs!INVOICESTATE & ",'" & Rs!FORGERYCODE & "')"   cn.Execute strSQL
   Rs.MoveNext
  Wend
  Debug.Print Now
  cn.Close
   
   '原来使用的，速度有些慢！！
   '   With Rs
   '       .ActiveConnection = mstrConnectString '& "YY"
   '       .UpdateBatch
   '   End With
   If mblnInMTS Then mobjCTX.SetComplete    
   Exit Sub
-----------------------------------------------------------------
修改如下：
on error goto errhandle:
with cn
begintrans
execute (strsql)
committrans
end with
exit sub
errhandle:
cn.rollbacktrans
end sub

Answer 3

抱歉，我最近才回来。sys_wkq(吴克青)，我是在com+中调用的，如果这样，会出现这个错误：-2147168237无法在此会话中启动更多的事务。