Well... you almost got that part :)
Look at the definition of Getstring:
string = recordsetobject.GetString (StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
You can specify the Number of rows you want to get :)
But what you really want to look into is paging, like you say, split it up into small chunks. Take a look at these URLS:
http://www.vbdotnetheaven.
http://msdn.microsoft.com/
http://msdn.microsoft.com/
Main Topics
Browse All Topics





by: amit_gPosted on 2005-05-20 at 13:30:21ID: 14048804
Try 2 things...
1) Set Response.Buffer = False at top of the page.
2) Use this sub
Call RecordsetToCSV(objRs)
sub RecordsetToCSV(ByRef oRs)
dim oField, bFirst
call oRs.MoveFirst()
if oRs.EOF then
return
end if
bFirst = true
for each oField in oRs.Fields
if (bFirst) then
call Response.Write("""" & oField.name & """")
bFirst = false
else
call Response.Write(",""" & oField.name & """")
end if
next
call Response.Write(vbCrLf)
while not oRs.EOF
bFirst = true
for each oField in oRs.Fields
if (bFirst) then
call Response.Write("""" & oField.value & """")
bFirst = false
else
call Response.Write(",""" & oField.value & """")
end if
next
call Response.Write(vbCrLf)
call oRs.MoveNext()
wend
end sub
This will be very slow for your case as the number of records is very very high to be done this way. You should be using DTS for this.