002. xfnTransExecArr

xfnTransExecArr 함수

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

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

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

구문

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

반환값

• • 성공 : True

  • 오류 : False

참고

• • 유사한 함수

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

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

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

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

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

예제

코드

'Connection 객체를 파라미터로 사용하지 않고 함수 사용.

Dim strSQL As String

Dim strSQLs() As String

Dim conn As ADODB.Connection

strSQL = "SELECT * FROM xtCodes"

strSQLs(0) = strSQL

strSQL = "SELECT * FROM tWorkParticulars"

strSQLs(1) = strSQL

If Not xfnTransExecArr(strSQLs) Then

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

End If

'Connection 객체를 파라미터로 사용

Dim strSQL As String

Dim strSQLs() As String

Dim conn As ADODB.Connection

Set conn = CurrentProject.Connection

strSQL = "SELECT * FROM xtCodes"

strSQLs(0) = strSQL

strSQL = "SELECT * FROM tWorkParticulars"

strSQLs(1) = strSQL

If Not xfnTransExecArr(strSQLs,conn) Then

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

End If