[VB6] Recuperare indice di un recordset

[vicky]

Per scrivere in una label a fianco a delle immagini estratte da un database il numero di record presenti in quel recordset e la posizione di quel record all'interno dello stesso recordset ho provato a fare:

rsTotale=rs.recordcount
llblContaRecord.caption=rs("Id_pagina").Value & " di " & rsTotale & ""

In realtà non va bene perché "AC_pagina_nome" non mi identifica la pagina nel recordset ma solo nella tabella di database.
Es.: Ho 2000 pagine, con Id= 1,2,3,4,5,...
Ne estraggo con la query solo alcune (diciamo 15) che vanno a formare il mio recordset. Sotto ogni pagina nel form voglio che ci sia scritto "pagina 1 di 15", "pagina 2 di 15", pagina 3 di 15",...fino a "pagina 15 di 15".
Come recupero quest'indice che ovviamente non può essere Id_pagina?
Ho provato con rs.absolutePosition e rs.absolutePage, sono completamente fuori strada?

[ans]

Devi creare una paginazione. Con rs.absolutePosition e rs.absolutePage non sei fuori strada, quindi guarda anche pageSize.