페이지 이력

Sub MultiCRUDTest()

    Set mxmodule = Application.COMAddIns.Item("iMATRIXiMATRIX6.ExcelModule").Object
    mxmodule.xapi.MultiCRUD ThisWorkbook, "U1;U2;U3"
    If mxmodule.xapi.LastErrorCode <> 0 Then
        If mxmodule.xapi.LastErrorMessage = "Unknown error" Then
            mxmodule.xapi.MessageBox "DB접속 정보가 없습니다.", vbInformation, "i-MATRIX"
        Else
            mxmodule.xapi.MessageBox mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
        End If
    Else
        mxmodule.xapi.MessageBox "Complete." & vbCrLf & "Info" & mxmodule.xapi.ResponseData, vbInformation, "i-MATRIX"
    End If

End Sub