[VB6] Navigazione tra record e loro visualizzazione

[generationweb.i]

Salve ragazzi ho usato il seguente codice per estrarre dei dati dal database ed inerirli in textbox e tutto mi funziona

Private Sub Form_Load()
ApriConnessione "SELECT * FROM clienti ORDER BY nome"
' Se non ci sono record presenti e quindi arriva alla fine dei record (EOF)
If record.EOF Then
nome.Text = "Nessun nome"
cognome.Text = "Nessun cognome"
Else 'Altrimenti
'Se non arriva alla fine dei record e quindi ne trova qualcuno EOF=False
While record.EOF = False
nome.Text = record("nome").Value
cognome.Text = record("cognome").Value
record.MoveNext
Wend
End If
ChiudiConnessione
Set record = Nothing
Set gAdoConnessione = Nothing
End Sub

L'unica cosa che mi risulta strana è che mi visualizza nelle relative textbox il record avente id 6 e mi salta quindi i primi 5

per il resto ho creato due pulsanti attraverso i quali vorrei che si possano sfogliare i record e spostarsi quindi al precedente e al successivo, ma non so che codice attribuire ad entrambi.

Se qualcuna mi aiuta gliene sarò grato a vita!
ciao a tutti!!!

[oregon]

Scusa ... ma se esegui un ciclo e visualizzi tutti, e' ovvio che ti rimarra' visualizzato l'ultimo ...

[Lak3d]

infatti, ma quello che vuoi tu se non ho capito mle è come gestire dei pulsanti con i quali scorrere l'archivio giusto?
A parte che in vb6 esiste un controllo apposito, se vuoi creartelo da te inserisci quattro bottoni e ad ognuno applica il codice per spostarti con i relativi controlli.

Es:

Sub BtnAvanti_Click()
   Record.Movenext
   if not record.EOF then    
      nome.Text = Record("nome")
      cognome.Text = Record("cognome") 
   End if
End Sub

Oppure, nel caso i campi da estrarre fossero tanti, creati un array di controlli in modo da sfruttare il ciclo for

   Record.Movenext
   For i=0 to record.fields.count-1
      Textbox1(i).Text=record.fields(i).value
   Next