Getrows()_Function

' This code makes only 3 calls to database, no matter how many rows!

 

strSQL = "SELECT ID, Name FROM users;"

Set objRS = Conn.Execute(strSQL) ' 1 call here

If Not objRS.EOF Then arrRS = objRS.GetRows() ' 2 calls here

Set objRS = Nothing

If IsArray(arrRS) Then

    For i = LBound(arrRS, 2) To UBound(arrRS, 2)

        ID = arrRS(0, i)

        Name = arrRS(1, i)

        Response.Write("<p>" & Name & " (" & ID & ")</p>" & vbCrLf)

    Next

    Erase arrRS

End If

출처: http://aspdotnet.tistory.com/446 [심재운 블로그]

Function GetRSArray(strSQL)

    Set objRS = Conn.Execute(strSQL)

    If Not objRS.EOF Then arrRS = objRS.GetRows()

    Set objRS = Nothing

    GetRSArray = arrRS

End Function

 

' Example usage

arrRS = GetRSArray("SELECT ID, Name FROM users;")

 

If IsArray(arrRS) Then

    For i = LBound(arrRS, 2) To UBound(arrRS, 2)

        ID = arrRS(0, i)

        Name = arrRS(1, i)

        Response.Write("<p>" & Name & " (" & ID & ")</p>" & vbCrLf)

    Next

    Erase arrRS

End If

출처: http://aspdotnet.tistory.com/446 [심재운 블로그]