none
엑셀 VBA 실행 런타임에러 발생, 도움주시면 감사하겠습니다. RRS feed

  • 질문

  • 엑셀에서 데이터 공급자를 Provider=Microsoft.ACE.OLEDB.12.0를 이용하여 자료를 update하는데 다음과 같은 에러가 발생했습니다.

     

    반복되는 update query 문자열을 받아서 loop를 돌리는데 잘 진행하다가는 중간에 에러를 발생시킵니다.

    Microsoft Visual Basic

    '-2147467259(80004005)' 런타임 오류가 발생하였습니다:

    여러명의 사용자가 동시에 동일한 데이터를 변경하려고 했기 때문에 Microsoft Access데이터베이스 엔진에서 프로세스가 중단되었습니다.

    소스코드는 다음과 같습니다.

     해결방법을 알려주시면 갑사하겠습니다.

     

    With curSheet
               
                sql1 = "select seq,sql_text from [" & datasheet & "$] order by seq"
                Set rs2 = cn1.Execute(sql1)

                For iUpdate = 1 To rs2.RecordCount
               
               
                    If Not rs2.EOF() Then
                    

                        sqlUpdate = rs2(1)
                       
                        cn1.Execute (sqlUpdate)
                        .Range("BL1").Value = rs2(0)
                        rs2.movenext
                   
                    End If
               
                Next iUpdate
       
        End With


    2011년 4월 1일 금요일 오전 6:16