|
Тема |
Re: database paging [re: smiless] |
|
Автор |
Pechenia (нема лабаво ;-) |
|
Публикувано | 20.04.02 13:28 |
|
|
Решението е да се ползва собствено страниране.
Ето и алгоритъм за виждане на точно определена страница. Предполага се, че в PageN е номера на страницата /1..N/, а PageCount /1..N/ определя броя записи в страницата.
' предполагаме че имаме отворена база данни
DB.Open "connection string"
Sub ShowPage (PageN,PageCount)
Set RS=DB.Execute ("SELECT ala-bala") ' взимаме целия набор записи
On Error Resume Next
RS.Move (PageN-1)*PageCount ' отиваме на първия запис от страницата.
If Err.Number<>0 Then Exit Sub ' ако цопнем на несъществуваща страница - чао
For i=1 To PageCount ' визуализираме всеки запис от страницата
If RS.EOF Then Exit Sub ' ако няма вече записи - чао
RS.MoveNext ' взимаме следващия запис от страницата
Response.Write RS ("ala-bala") ' показваме го
Next i
End Sub
чети и дишай по-леко
|
| |
|
|
|