[VB6] scorrere record

[Rossella_75]

Ciao a tutti, pultroppo pensavo di aver risolto ma non va ancora


allora io ho bisogno di scorrere il database cosi:

esempio: ho 10 record ed un tasto avanti ed uno indietro

clicco su avanti e scorro 1,2,3,4,5,6,7,8,9,10, poi deve tornare a 1,2, ecc... al contrario se clicco su indietro deve andare cosi 3,2,1, poi 10,9,8, ecc..

io ho fatto cosi:

            Case "sfogliaavanti"
            
                If Data.Recordset.EOF Then
                    Data.Recordset.MoveFirst
                
                Else
                
                id = (Data.Recordset.Fields("id"))
                autore = (Data.Recordset.Fields("autore"))
                descrizione = (Data.Recordset.Fields("descrizione"))
                url = (Data.Recordset.Fields("url"))
                foto = (Data.Recordset.Fields("foto"))

                Data.Recordset.MoveNext
                
                End If

            Case "sfogliaindietro"

              If Data.Recordset.BOF Then
                    Data.Recordset.MoveLast
                    
                Else
                    
                id = (Data.Recordset.Fields("id"))
                autore = (Data.Recordset.Fields("autore"))
                descrizione = (Data.Recordset.Fields("descrizione"))
                url = (Data.Recordset.Fields("url"))
                foto = (Data.Recordset.Fields("foto"))

                
                Data.Recordset.MovePrevious
                    
                End If

            End Select

ma non va propio bene perché??

[Gigi84]

premetto che non ho letto tutto il codice ma ho visto che usi un controllo data.. ( )
nel controllo data ci sono due proprietà che si chiamano BOFaction e EOFaction che fanno prprio quello che vuoi fare tu..!

[Rossella_75]

le ho usate ma forse in maniera errata..

[Markho]

Prima ti sposti e poi verifichi se EOF o BOF

Prova Così:


Case "sfogliaavanti"

Data.Recordset.MoveNext

If Data.Recordset.EOF Then
Data.Recordset.MoveFirst
end if
'il caricamento dei dati lo fa sempre, anche se è all'inizio

id = (Data.Recordset.Fields("id"))
autore = (Data.Recordset.Fields("autore"))
descrizione = (Data.Recordset.Fields("descrizione"))
url = (Data.Recordset.Fields("url"))
foto = (Data.Recordset.Fields("foto"))


Case "sfogliaindietro"

Data.Recordset.MovePrevious
If Data.Recordset.BOF Then
Data.Recordset.MoveLast
end if

'il caricamento dei dati lo fa sempre, anche se è alla fine
id = (Data.Recordset.Fields("id"))
autore = (Data.Recordset.Fields("autore"))
descrizione = (Data.Recordset.Fields("descrizione"))
url = (Data.Recordset.Fields("url"))
foto = (Data.Recordset.Fields("foto"))


End Select


Ciao e fammi sapere...

[Rossella_75]

perfetto grazie mille