[VB6] muoversi tra i record

[Rossella_75]

ciao a tutti,

io vorrei sfogliare i record di un database e se arrivo all'ultimo rinivia dal primo allora ho fatto cosi

    Set Db = OpenDatabase(App.Path & "\db.mdb", False, False)
    Set Rs = Db.OpenRecordset("link") 'dichiari il recordset
    Set Data.Recordset = Rs ' Assegna il Recordset
    While Not Data.Recordset.EOF
    id = (Data.Recordset.Fields("id"))
    Data.Recordset.MoveNext
    Wend

in questo modo li sfoglio tutti e stampo l'id per sapere quanti record ho, adesso ho due tasti (command1,command2) che cosa devo assagnare per sfogliare il database??

[ladyBlu]

se a te interessa sapere quanti record hai ti basta fare un RecordCount, in questo modo:

Set Db = OpenDatabase(App.Path & "\db.mdb", False, False)
    Set Rs = Db.OpenRecordset("link") 'dichiari il recordset
    Set Data.Recordset = Rs ' Assegna il Recordset
    id = Data.Recordset.RecordCount

per muoverti invece tra i recordset ti sarà sufficiente utilizzare le proprietà MoveFirst, MoveLast, MovePrevious, MoveNext.
in questo modo:

Data.Recordset.MoveFirst

Data.Recordset.MoveLast

Data.Recordset.MovePrevious

Data.Recordset.MoveNext

[Rossella_75]

Grazie mille per la risposta

quindi al load metto

Set Db = OpenDatabase(App.Path & "\db.mdb", False, False)
    Set Rs = Db.OpenRecordset("link") 'dichiari il recordset
    Set Data.Recordset = Rs ' Assegna il Recordset
    id = Data.Recordset.RecordCount

mentre al command1 metto

Data.Recordset.MoveNext
autore = (Data.Recordset.Fields("autore"))
descrizione = (Data.Recordset.Fields("descrizione"))
url = (Data.Recordset.Fields("url"))

in qusto modo i campi si riempiranno dei dati??

[Rossella_75]

grazie mille ancora funziona, solo una cosina..

se arriva alla fine ma da errore

[ladyBlu]

Originariamente inviato da Rossella_75
grazie mille ancora funziona, solo una cosina..

se arriva alla fine ma da errore

e tu intercetti la fine del file in questo modo:

If Data.Recordset.EOF Then
   msgbox "sono arrivata alla fine"
End If

...

ciao ciao...

[Rossella_75]

Cosi non va..


[code]
If Data.Recordset.EOF Then
MsgBox "sono arrivata alla fine"
End If
Data.Recordset.MoveNext

autore = (Data.Recordset.Fields("autore"))
descrizione = (Data.Recordset.Fields("descrizione"))
url = (Data.Recordset.Fields("url"))
Flsmovie.SetVariable "autore", autore
Flsmovie.SetVariable "descrizione", descrizione
Flsmovie.SetVariable "url", url

[ladyBlu]

Originariamente inviato da Rossella_75
Cosi non va..

If Data.Recordset.EOF Then
    MsgBox "sono arrivata alla fine"
End If
Data.Recordset.MoveNext
autore = (Data.Recordset.Fields("autore"))
descrizione = (Data.Recordset.Fields("descrizione"))
url = (Data.Recordset.Fields("url"))
Flsmovie.SetVariable "autore", autore
Flsmovie.SetVariable "descrizione", descrizione
Flsmovie.SetVariable "url", url

certo che non va... anche dopo aver controllato se sei alla fine tu continui le istruzioni che seguono. devi uscire dalla sub o dal ciclo in cui ti trovi...
quindi, ammesso che tu sia in una sub dovrai scrivere:

If Data.Recordset.EOF Then
    MsgBox "sono arrivata alla fine"
    exit sub
End If
...

[Rossella_75]

ma io non voglio uscirne, vorrei che una volta accertato che mi trovo alla fine riniziasse dal primo record

[ladyBlu]

Originariamente inviato da Rossella_75
ma io non voglio uscirne, vorrei che una volta accertato che mi trovo alla fine riniziasse dal primo record

ok, allora scrivi così:

If Data.Recordset.EOF Then
    MsgBox "sono arrivata alla fine"
    Data.Recordset.MoveFirst
End If

autore = (Data.Recordset.Fields("autore"))
descrizione = (Data.Recordset.Fields("descrizione"))
url = (Data.Recordset.Fields("url"))
Flsmovie.SetVariable "autore", autore
Flsmovie.SetVariable "descrizione", descrizione
Flsmovie.SetVariable "url", url

Data.Recordset.MoveNext

ti do un consiglio, l'istruzione Data.Recordset.MoveNext mettila alla fine...altrimenti quando torni sul primo record la prima cosa che fa il tuo programma è passare al secondo record...

[Rossella_75]

Grazie mille è perfetto

alla prossima