반응형
1. 단순 SQL 쿼리를 이용한 RecordSet
- case 1
<%
sql = "select * from member where userid='kkk' "
Set Rs = dbConn.Execute(sql)
Do until Rs.eof
~~~
Rs.movenext
Loop
Rs.close
%>
- case 2
<object RUNAT="SERVER" PROGID="ADODB.Recordset" ID="objRs"></object>
<%
sql = "select * from member where userid='kkk' "
objRs.open sql, dbConn
Do Until objRs.eof
~~~
objRs.movenext
Loop
objRs.close
%>
2. 배열 (GetRows) 처리 방식.
- case1
sql = "select * from member where userid='kkk' "
Set adoRs = Server.CreateObject("ADODB.Recordset")
adoRs.Open sql, dbConn
if not adoRs.eof or not adoRs.bof then
rstData1 = adoRs(0)
rstData2 = adoRs(1)
end if
adoRs.close
- case 2
sql = "select * from member where userid='kkk' "
'sql = "exec usp_member_info '"& userid &"' "
Set adoRs = Server.CreateObject("ADODB.Recordset")
adoRs.Open sql, dbConn, adOpenForwardOnly, adLockReadOnly '-- type library 설정 해야됨.
'adoRs.Open sql, dbConn, 1, 1
if adoRs.eof or adoRs.bof Then
rstData = "no"
else
rstData = "yes"
arrData = adoRs.GetRows
end if
adoRs.close
if rstData = "yes" then
for intNum = 0 to Ubound(arrData) -1
response.write arrData(0,intNum) &"<br>"
response.write arrData(0,intNum) &"<br>"
Next
else
response.write "no data"
end if
else
response.write "no data"
end if
3. command 객체 사용. (추후 업데이트 예정)
반응형