[답변]: [답변]: [답변]: [답변]: [답변]: ASP의 ByVal과 ByRef 특성

부모글 보이기/감추기

저기 질문 올린사람인데요 ^^; 좀 의문가는 점이 있어서요

아래 함수들은 제가 디버깅 할때 쓰는건데요. 다른거와 섰여있습니다.

두가지 상황에 따라서 결과가 틀려서요? 초보라서 잘모릅니다. 위에글 읽기도 힘들어요;; ㅠㅜ

◆참고
asp 에서 사용되는 db 핸들입니다

◆소스

- ▲함수 1
'필드명과 값만확인할대 :: 개발용
Function RunSQLReturnGR_fieldName(strSQL,maxLength)
On Error Resume Next

Dim Rs , Cmd
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Cmd = Server.CreateObject("ADODB.Command")

Cmd.ActiveConnection = Conn
Cmd.CommandText = strSQL
Cmd.CommandType = adCmdText
Cmd.Prepared = True

Rs.CursorType = adOpenForwardOnly
Rs.CursorLocation = adUseClient
Rs.LockType = adLockReadOnly
Rs.Open Cmd

Call ViewParam(Cmd,maxLength)

Set Cmd = Nothing

If Err.Number <> 0 Then
Call errorLog_write("RunSQLReturnGR_fieldName",strSQL)
End if
End function

- ▲함수 2
'레코드셋 필드명과 내용함께 출력하기(아웃풋용) :: 개발용
Sub ViewParam(byref objCmd,maxLength)
'On Error Resume Next

Redim strOutputParamName(objCmd.Parameters.Count) , execStr(objCmd.Parameters.Count)
Dim param , i , j
i = 0 : j = 0

If maxLength = true Or maxLength = false Then
If objCmd.CommandType = adCmdStoredProc Then
Response.Write "<table border=1><tr><td>속성</td><td>값</td><td>사이즈</td><td>입력타입</td><td>변수타입</td><td>정밀도</td></tr>"
For Each Param In objCmd.Parameters
If Param.Name <> "@RETURN_VALUE" Then
If (GetParameterDirectionEnum(Param.Direction) = adParamOutput) OR (GetParameterDirectionEnum(Param.Direction) = adParamInputOutput) Then
strOutputParamName(j) = Param.Name
execStr(i) = "''"
j = j + 1
Else
execStr(i) = "'"& Param.Value &"'"
Response.Write "<tr><td>"& i &"번째 "& Param.Name &"</td><td>"& Param.Value &"</td><td>"& Param.Size &"</td><td>"& GetParameterDirectionEnum(Param.Direction) &"</td><td>"& GetDataTypeEnum(Param.Type) &"</td><td>"& Param.Precision &"</td></tr>"
End if
i = i + 1
End if
Next

Response.Write "<tr><td colspan=6>아웃풋</td>"
For j = 0 To j - 1
Response.Write "<tr><td>"& j &"번째 "& strOutputParamName(j) &"</td><td>"& objCmd.Parameters(strOutputParamName(j)).Value &"</td><td>"& objCmd.Parameters(strOutputParamName(j)).Size &"</td><td>"& GetParameterDirectionEnum(objCmd.Parameters(strOutputParamName(j)).Direction) &"</td><td>"& GetDataTypeEnum(objCmd.Parameters(strOutputParamName(j)).Type) &"</td><td>"& objCmd.Parameters(strOutputParamName(j)).Precision &"</td></tr>"
Next
Response.Write "<tr><td colspan=6>프로시저 실행문</td></tr>"
Response.Write "<tr><td colspan=6>Exec "& Mid(objCmd.CommandText, Instr(objCmd.CommandText,"call ")+5 , Instr(objCmd.CommandText,"(") - (Instr(objCmd.CommandText,"call ")+5) ) &" "& arrFormat(execStr,","," ") &"</td></tr>"
Response.Write "</table> "
End if
End if

Dim Rs
Set Rs = Server.CreateObject("ADODB.RecordSet")

Rs.CursorType = adOpenForwardOnly
Rs.CursorLocation = adUseClient
Rs.LockType = adLockReadOnly
Rs.Open objCmd

Response.Write Rs_fieldName(Rs,maxLength)

If objState(Rs.State) = "adStateOpen" Then <=================== 이 부분
Rs.Close
Set Rs = Nothing
End if

If Err.Number <> 0 Then
Call errorLog_write("ViewParam",Mid(objCmd.CommandText, Instr(objCmd.CommandText,"call ")+5 , Instr(objCmd.CommandText,"(") - (Instr(objCmd.CommandText,"call ")+5) ))
Set objCmd = Nothing
Else
Set objCmd = Nothing
End if
End Sub

- ▲함수 3
'레코드셋 필드명과 내용함께 출력하기 :: 개발용
Function Rs_fieldName(objRecordSet , maxLength)
Dim Field , tempStr , i , j , k
If maxLength = false Then
Exit function
End if
tempStr = ""

Dim objRecordSet_temp
Set objRecordSet_temp = objRecordSet

Do Until objRecordSet_temp Is nothing
i = 0 : j = 0 : k = 0
tempStr = tempStr &"<table border=1><tr>"
For Each Field in objRecordSet_temp.Fields
tempStr = tempStr &"<td>"& Field.name &" "& i &"열</td>"
i = i + 1
Next
tempStr = tempStr &"</tr>"

If objState(objRecordSet_temp.State) = "adStateClosed" Then
tempStr = tempStr &"</table>"
Rs_fieldName = tempStr
Exit function
End if

If objRecordSet_temp.Eof OR objRecordSet_temp.Bof Then
tempStr = tempStr &"<tr><td colspan="& i &">결과없음</td></tr>"
Else
Do Until objRecordSet_temp.Eof
tempStr = tempStr &"<tr>"
For Each Field in objRecordSet_temp.Fields
tempStr = tempStr &"<td valign=top>"& j &"행 "& k &"열 "& Field &"</td>"
k = k + 1
next
tempStr = tempStr &"</tr>"
objRecordSet_temp.MoveNext
j = j + 1
k = 0
If isNumeric(maxLength) Then
If Cint(j) = Cint(maxLength) Then Exit do
End if
Loop
objRecordSet_temp.MoveFirst
End if
tempStr = tempStr &"</table> "

Set objRecordSet_temp = objRecordSet_temp.NextRecordset
Loop
Rs_fieldName = tempStr
End function

- ▲함수 4

'레코드셋 필드명과 내용함께 출력하기 :: 개발용
Function Rs_fieldName(byVal objRecordSet , maxLength)
Dim Field , tempStr , i , j , k
If maxLength = false Then
Exit function
End if

tempStr = "<table cellpadding=0 cellspacing=0 border=1><tr>"
i = 0 : j = 0 : k = 0
For Each Field in objRecordSet.Fields
tempStr = tempStr &"<td>"& Field.name &" "& i &"열</td>"
i = i + 1
Next
tempStr = tempStr &"</tr>"

If objRecordSet.State = 0 Then
tempStr = tempStr &"</table>"
Rs_fieldName = tempStr
Exit function
End if

If objRecordSet.Eof Then
tempStr = tempStr &"<tr><td colspan=100>자료가 없습니다</td></tr>"
Else
Do Until objRecordSet.Eof
tempStr = tempStr &"<tr>"
For Each Field in objRecordSet.Fields
tempStr = tempStr &"<td valign=top>"& j &"행 "& k &"열 "& Field &"</td>"
k = k + 1
next
tempStr = tempStr &"</tr>"
objRecordSet.MoveNext
j = j + 1
k = 0
If isNumeric(maxLength) Then
If Cint(j) = Cint(maxLength) Then Exit do
End if
Loop
objRecordSet.MoveFirst
End if
tempStr = tempStr &"</table>"

Rs_fieldName = tempStr
End function

◆요약
rs 를 제가 원하는 식으로 출력후 rs 를 원상 복귀 시키는거조 그래서야 정상적인 값이 나올테니까요

◆질문 1
함수 1을 사용해서 결과를 출력하면 잘됩니다;;

그런데 함수 3을 사용하면
ADODB.Recordset error '800a0e78'
개체가 닫혀있으면 작업이 허용되지 않습니다.
ㅌㅌㅌㅌ.asp, line 591

그래서
함수 3대신 함수 4를 쓰면
잘됩니다;; 왜 그런걸까요?

sql = sql & "ORDER BY IDX DESC "

Function rs_open(sql)
Set rs = Server.CreateObject("Adodb.Recordset")
rs.open sql, db, 1
End Function

Call rs_open(sql)

'print dbs.RunSQLReturnGR_fieldName(sql,true) <--------------- 정상 ( 이건 새로운 rs 를 생성하니 그럴수도 있다 생각은 됩니다.)
'print Rs_fieldName(rs,true) <--------------- 정상(이건 왜 그럴까요?)
response.write dbs.rs_fieldName(rs,true) <--------------- 비정상

rs.pagesize = pSize
IntArecord = rs.recordcount <------ 이부분에서 요류가 나내요
IntApage = rs.pagecount

◆질문 2
더 이상한건 함수 3의 상화에 따라서 함수 2의 개체 처리 부분이 이상합니다. 아직 개념이 안서서 ^^

If objState(Rs.State) = "adStateOpen" Then <=================== 이 부분
Rs.Close
Set Rs = Nothing
End if

' If Not(Rs is nothing) Then
' Rs.Close
' Set Rs = Nothing
' End if

두개의 처리 구문이 서로 다른 결과를 나타 냅니다.

이런 경우에는, 문제를 한꺼번에 두고 생각하시면 간섭 현상이 생기기 때문에, ... 하나씩 예제를 비교하면서 정확한 개념을 잡아가시는 것이 좋습니다.

어쨌든, 답변을 드려보면.

질문 1:
당연히 함수 1을 사용하면 잘 되겠지요. 레코드셋을 넘긴 것이 아니라, Command 개체를 넘겨서 그것을 이용해서 다시 레코드셋을 열었으니까요.

함수 3은 레코드셋을 넘긴데다, 마지막 부분에 NextRecordset을 했기 때문에 인자로 넘겨진 레코드셋 역시 마지막 null까지 옮겨지기 때문에 그렇습니다.

함수 4를 쓰면, 잘된다고 하셨는데... 이 부분에서 질문하시는 의도의 맥락이 분명하지 않습니다. 함수 3과 함수 4가 구현이 꽤 다른데, 어떤 근거로 함수 3은 안되고, 함수 4는 잘된다는 것이 이상하다는 말씀이신가요? 어쨌든, 함수 4가 안 되어야 하는 이유가 무엇인가요?

질문에서,

'print Rs_fieldName(rs,true) <--------------- 정상(이건 왜 그럴까요?)
response.write dbs.rs_fieldName(rs,true) <--------------- 비정상

라고 하셨는데, 어느 것이 함수 3이고, 어느 것이 함수 4인가요? 말씀하신 데로라면 첫 번째 것이 함수 4라는 것인데... 맞나요? 어쨌든, 위의 설명을 보시면 되고요.

질문 2
질문이 좀 모호합니다. 어떻게 다른 결과를 나타낸다는 것인지요?
함수 1에서 함수 3을 부른 후, 함수 2를 불렀는데, 보여주신 그 코드에 따라서 뭔가 결과가 달라진다는 것인가요?

[다음 글] [답변]: [답변]: [답변]: [답변]: ASP 의 ByVal 과 ByRef 특성
[이전 글] Singleton 패턴 테스트중 하나의 윈폼만 열기 오류

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

No	Writer	Date	Cnt.	Title	File(s)
1306	이상현	8/7/2014	10030	Entity 프레임웍에서 테이블만 추가로 등록하는 방법
1307	이상현	8/7/2014	10329	[답변]: 자답이네요. [1]
1305	popo	8/7/2014	11596	wpf UserControl List 바인딩 질문 입니다. [1]
1304	민경수	8/7/2014	14167	네이버 카페에 구글 스프레드 시트 삽입 [1]
1303	김동진	8/7/2014	11390	vmware환경에서 Guest IP를 192대역으로 받을 수 있는 방법은 없을까요~? [3]
1302	김문경	7/31/2014	10543	스마트클라이언트 오라클 연결 [1]
1314	이재균	8/20/2014	10592	[답변]: 스마트클라이언트 오라클 연결
1300	아로스	7/28/2014	23448	c# 인터넷 임시 파일 삭제 문의 [12]	1
1299	서동원	7/28/2014	12056	안녕하세요. 혹시 Internet_Zone과 관련된문제인가 해서 질문드립니다. [1]
1298	(non...	7/25/2014	17424	(글쓴이의 요청으로 삭제합니다.) [15]
1295	서동원	7/22/2014	13122	안녕하세요. 스마트클라이언트에 대해 질문드립니다. [2]	1
1294	(non...	7/20/2014	11507	(글쓴이의 요청으로 삭제합니다.) [2]
1293	VS20...	7/20/2014	12090	VS2013 Ultimate에 Windows Phone 프로젝트 템플릿 추가 방법 문의 [1]	2
1292	(non...	7/20/2014	10841	(글쓴이의 요청으로 삭제합니다.) [2]
1291	zino	7/16/2014	11431	chromium 배포본 만들기~ [1]
1290	(non...	7/13/2014	12599	(글쓴이의 요청으로 삭제합니다.) [3]
1288	박주만	7/8/2014	21766	C# 서비스 기반 데이터베이스(mdf) & InstallShield Limited Edition 설치 및 배포 [2]	1
1287	김용환	7/8/2014	19774	오라클 db 사용관련 문의입니다. [4]	1
1286	C#조으다	7/8/2014	10730	WebBrowser 공유기 관리 웹 페이지 인증 [3]
1285	C#조으다	7/5/2014	11075	IE DocumentComplete 이벤트가 발생되지 않습니다. [2]
1284	(non...	7/4/2014	11214	(글쓴이의 요청으로 삭제합니다.) [3]
1283	김영대	7/3/2014	14316	안녕하십니까 정성태님 죄송하지만 SmartClient 에 관한 질문이 있습니다. [9]
1282	(non...	7/2/2014	11195	(글쓴이의 요청으로 삭제합니다.) [2]
1281	(non...	7/1/2014	12291	(글쓴이의 요청으로 삭제합니다.) [4]
1280	동동이	6/25/2014	11480	안녕하세요. ocx의 비동기 또는 쓰레드에서 호출 [1]
1279	(non...	6/23/2014	11552	(글쓴이의 요청으로 삭제합니다.) [17]

AD BLOCK 해제 요청