Transaction controll

conOpen()
 'On Error Resume Next
 Con.BeginTrans
 
 'Transaction 1
 
 'Transaction 2
 
 'Transaction 3

 'Transaction N
 

    '
 ErrorNo1 = Con.Errors.Count                     '에러체크 해서 ErrorNo1 에 집어 넣는다.
 Con.Errors.Clear                                '다음 SQL문을 실행하기 위해서 에러 내용을 지운다.

 If abs(ErrorNo1)  = 0 then                      '받아온 ErrorsNo1 가 0 이라면 (에러가 없다면)...    
  Con.CommitTrans                             '트랜젝션 커밋  
  mesageStr = "MVP Report가 등록 되었습니다."
 Else                                            '에러가 있다면
  Con.RollbackTrans                           '트랜젝션 롤백
  mesageStr = "오류가 발생하였습니다."
 End If       
   
 'DB 연결 해제
 conClose()