RS.clone問題

Question

Dim Sign As Boolean, Times As Integer
            Set RsClone = New ADODB.Recordset
            Set RsClone = Rs21.Clone
            If RsClone.RecordCount > 0 Then RsClone.MoveFirst
'            On Error Resume Next
            Do While Not RsClone.EOF
                If Trim(RsClone!AddAmt & "") = "" And Trim(RsClone!SUBAMT & "") = "" Then
                    RsClone.Delete adAffectCurrent
                End If
                RsClone.MoveNext
            Loop
這段代碼生成exe在客戶那運行時出現runtime error '- 2147217885(8004e23)'這樣的錯誤,但在我這不會,婁據庫都一樣的,大家認為是??

Answer 1

客户的机器上装了和你调用的版本一致的ADO了吗？

Answer 2

都一樣, Set RsClone = Rs21.Clone這會不會出現問題?

Answer 3

那你这样试试看吧
Dim Sign As Boolean, Times As Integer
Set RsClone = New ADODB.Recordset
Set RsClone = Rs21.Clone
'On Error Resume Next
Do While Not RsClone.EOF
  If Trim(RsClone!AddAmt & "") = "" And Trim(RsClone!SUBAMT & "") = "" Then
    RsClone.Delete adAffectCurrent
    RsClone.MoveFirst
  End If
  RsClone.MoveNext
Loop