003. xfnTransExecColl

xfnTransExecColl 함수

• • 트랜잭션이 필요한 여러 SQL문 실행하는 함수입니다.

  • 여러 SQL문은 xProperties의 형태로 저장되어야 합니다.

  • 처음 SQL문이 실행될 때 트랜잭션이 시작되며, 마지막 SQL문이 끝난 후 트랜잭션을 마칩니다.

구문

• xfnTransExecColl(objCollections As xProperties, Optional conn As ADODB.Connection) As Boolean

반환값

• • 성공 : True를 반환합니다.

  • 오류 : False를 반환합니다.

참고

• • 유사한 함수

    • xfnTransExecVar(ByVal strSQL As String, Optional conn As ADODB.Connection) As Boolean

      • 트랜잭션이 필요한 단일 SQL문을 실행하는 함수입니다.

    • xfnTransExecArr(strSQLs() As String, Optional conn As ADODB.Connection) As Boolean

    • 트랜잭션이 필요한 여러 SQL문을 실행하는 함수입니다.

    • 파라미터로 Array 타입을 사용합니다.

예제

코드

'Connection 객체 없이 트랜잭션이 필요한 여러 SQL 실행

Dim strSQL As String

Dim strSQLs As xProperties

Dim conn As ADODB.Connection

Set strSQLs = xbasCalls.xfnNew_xProperties

strSQL = "SELECT * FROM xtCodes"

strSQLs.AddWithoutName strSQL

strSQL = "SELECT * FROM tWorkParticulars"

strSQLs.AddWithoutName strSQL

If Not xfnTransExecColl(strSQLs) Then

    xsbErrMsg "데이터 처리에 실패했습니다."

End If

'Connection 객체 포함하여 실행

Dim strSQL As String

Dim strSQLs As xProperties

Dim conn As ADODB.Connection

Set strSQLs = xbasCalls.xfnNew_xProperties

Set conn = CurrentProject.Connection

strSQL = "SELECT * FROM xtCodes"

strSQLs.AddWithoutName strSQL

strSQL = "SELECT * FROM tWorkParticulars"

strSQLs.AddWithoutName strSQL

If Not xfnTransExecColl(strSQLs, conn) Then

    xsbErrMsg "데이터 처리에 실패했습니다."

End If