007. xfnIsRstSame

xfnIsRstSame 함수

• • 두 레코드셋의 내용이 일치하는지 비교하는 프로시저 입니다.

  • 레코드의 순서까지 같아야만 일치한다고 나타냅니다.

구문

• xfnIsRstSame(rstSrc As ADODB.Recordset, rstTgt As ADODB.Recordset) As xENM_RESULT_TFE

반환값

• • 성공 : 상수 xenlResultTFE_True 혹은 xenlResultTFE_False을 반환합니다.

  • 오류 : 상수 xenlResultTFE_Err을 반환합니다.

참고

• • 레코드의 순서가 다르면 일치하지 않는 것으로 판단합니다.

예제

코드

Dim rstSrc As ADODB.Recordset

Dim rstTgt As ADODB.Recordset

Set rstSrc = New ADODB.Recordset

Set rstTgt = New ADODB.Recordset

'같은 레코드셋 비교(순서도 같음)

rstSrc.Open "SELECT * FROM dbo.[viwSales]", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rstTgt.Open "SELECT * FROM dbo.[viwSales]", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Debug.Print xfnIsRstSame(rstSrc, rstTgt)

'---------------결과값------------------

-1

rstSrc.Close

rstTgt.Close

'레코드셋 비교(레코드의 순서가 다름)

rstSrc.Open "SELECT * FROM dbo.[viwSales]", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rstTgt.Open "SELECT * FROM dbo.[viwSales] order by SALEID DESC", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Debug.Print xfnIsRstSame(rstSrc, rstTgt)

'----------------결과값-----------------

0