그렇죠. 말씀하신 내용이 정석이죠.
사실 이 문제가 C# 이라던가 .NET 언어였다면 저도 지금처럼 혼란스럽지는 않았을 텐데요. ^_^
너무 오랜만에 VBScript 를 다루려니 무척 혼란스럽습니다.

그럼 제가 이해한 바를 정리해본다면...

1. ByVal 키워드가 동작하여 Recordset 개체 자체는 의도한 바 그대로 복사본이 넘어갔다.
2. 그러나 Recordset 개체 내부의 Connection 개체 참조는 여전히 원본 개체와 동일한 참조를 가리킨다.
3. 따라서 사본 Recordset 의 Connection 개체를 닫으면 원본 Connection 개체도 닫히게 된다.

입니다. 맞게 이해했는지 모르겠네요.

사실 이 문제의 원질문은 다음의 경로에 있습니다.
제가 질문을 외곡하게 될까 두렵기도 하고, 이 토론 아닌 토론에 도움이 될까해서 첨부합니다. ^_^;;;

http://www.egocube.pe.kr/cubeboard/contentview.asp?tablename=asp&number=1630

여기에서 문제가 되는 Function 을 살펴보면 사실 Recordset 을 Close 하는 것이 아니라 (이미 벌써 한 번 왜곡했군요.) NextRecordset 메서드를 호출하는 것이 문제인데요. 이 상황에서도 설명해주신 것과 같은 패턴으로 이해할 수 있을까요? 이 부분이 대단히 애매하네요.

---------------------------------------------------------------

그리고 같은 이슈, 비슷한 유형의 질문이 하나 더 생겼습니다. ^_^;;; 제가 지금은 집에서 이 글을 작성하고 있는데요. 마침 어제 그제 OS 를 2003 서버로 다시 설치하고 아직 IIS 를 설치하지 않았습니다. 그래서 테스트로 다음과 같은 코드를 VBS 파일로 작성해 봤습니다.

Set objRS = CreateObject("ADODB.RecordSet")
MsgBox "1 : " & (objRS is Nothing)

TestA(objRS)
MsgBox "2 : " & (objRS is Nothing)

TestB(objRS)
MsgBox "3 : " & (objRS is Nothing)

Set objRS = Nothing
MsgBox "4 : " & (objRS is Nothing)


Sub TestA(ByVal objArg)
	Set objArg = Nothing
End Sub

Sub TestB(ByRef objArg)
	Set objArg = Nothing
End Sub

제 예상으로는 1, 2 번 메시지 박스에는 False 가 3, 4 번 메시지 박스에는 True 가 나타날 것으로 예상을 했는데요. 제 예상과는 달리 1, 2, 3 번 메시지 박스에서 False 가 나타나는 군요.

제 논리상 헛점이 어디에 있는지 혹시 의견을 구합니다. ^_^

P.S 간만에 등장해서 이상한 질문을 드려 죄송스럽습니다. ^_^;;;

이해하신 것을 정리한 것을 다시 따져 보겠습니다. ^^

ByVal 키워드가 동작하여 Recordset 개체 자체는 의도한 바 그대로 복사본이 넘어갔다.
그러나 Recordset 개체 내부의 Connection 개체 참조는 여전히 원본 개체와 동일한 참조를 가리킨다.
따라서 사본 Recordset의 Connection 개체를 닫으면 원본 Connection 개체도 닫히게 된다.

Recordset 자체가 복사본이 넘어간 것이 아닙니다. 메모리에는 이미 Recordset에 대한 개체가 있고, 그 개체를 가리키는 포인터 변수가 있는 상황에서, byval로 넘기면 포인터 변수의 내용이 복사되어 스택에 전달되는 것이고, byref로 넘기면 해당 포인터 변수 자체의 주소가 복사되어 스택에 전달되는 것입니다. 그러니까, 둘다 동일한 RecordSet 개체를 가리키고 있는 것입니다.

---

질문하신 내용중에는 2번째는 해결하셨으니, 첫 번째 문제를 살펴보면.

1) Set objRecordSet_temp = objRecordSet
2) Set objRecordSet_temp = objRecordSet_temp.NextRecordset 

위에서의 문제를 역시 동일하게 바라보시면 될 것 같습니다. Set으로 인한 할당은 엄밀히 IUnknown::QueryInterface를 호출해서 내부적으로 해당 COM 개체에 대한 ref 카운트를 증가시키고 인터페이스 포인터 값의 복사본을 넘겨주는 것뿐입니다.

따라서, 첫 번째 Set 문의 경우에는 (.NET과 비교하자면) 단지 shallow copy 된 또 다른 별도의 "변수"가 추가된 것일 뿐, "원본 개체를 복사"해서 그 복사된 개체에 대한 인터페이스 포인터를 반환하는 것이 아닙니다.

그 후에 2번과 같은 과정을 거치니, 당연히 원본 Recordset 개체가 NextRecordset으로 되었으므로 Closed 상태로 되어 버리고, temp 변수의 경우에는 (현재 다음 레코드셋이 없는 것으로 보이므로) null 값을 보관하고 있게 되는 것입니다.

---

[이 토픽에 대해서 여러분들과 의견을 공유하고 싶습니다. 틀리거나 미흡한 부분 또는 의문 사항이 있으시면 언제든 댓글 남겨주십시오.]

[최초 등록일: 5/16/2007]
[최종 수정일: 6/26/2021]