그렇죠. 말씀하신 내용이 정석이죠.
사실 이 문제가 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 간만에 등장해서 이상한 질문을 드려 죄송스럽습니다. ^_^;;;