레코드셋 읽어서 변수 자동 생성
Sub MakeRsVar(pRs) dim obj, i : i = 0 for each obj in pRs.Fields Response.Write "Dim db_" & obj.name & "<br>" next Response.Write "<br>" for each obj in pRs.Fields Response.Write "db_" & obj.name & " = rs(" & i & ")<br>" i = i + 1 next End Sub
사용법 간단 Set rs = DBCon.Execute(쿼리문) Call MakeRsVar(rs)
출처: http://www.mungchung.com |
|
|