007. xfnIsRstSame
xfnIsRstSame 함수
두 레코드셋의 내용이 일치하는지 비교하는 프로시저 입니다.
레코드의 순서까지 같아야만 일치한다고 나타냅니다.
구문
xfnIsRstSame(rstSrc As ADODB.Recordset, rstTgt As ADODB.Recordset) As xENM_RESULT_TFE
구성요소
rstSrc
rstTgt
설 명
원본 레코드셋
비교대상 레코드셋
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