vb6 recordset.movenext

[ciro78]

Ciao a tutti

Ho dieci label che riempio facendo una query sul datbase.
tramite apposito codice ovviamente mi restituisce i primi 10 valori.ora io vorrei che cliccando su un tasto visulizzasse i successivi sempre a 10 x volta. ho visto l'oggetto data ma non rieco a farlo funzionare.

Ciao

[giano118]

non ho capito bene....fai una query che ti restituisce tot record e vuoi che si visualizzino 10 alla volta?

Originariamente inviato da ciro78
Ciao a tutti

Ho dieci label che riempio facendo una query sul datbase.
tramite apposito codice ovviamente mi restituisce i primi 10 valori.ora io vorrei che cliccando su un tasto visulizzasse i successivi sempre a 10 x volta. ho visto l'oggetto data ma non rieco a farlo funzionare.

Ciao

[ciro78]

si
ma credimi non capisco perchè non mi funzioanno + nemmno 1 alla volta.
ho scritto tale codice

Dim connessione As ADODB.Connection
Dim comando As ADODB.Command
Dim record As ADODB.Recordset


Private Sub Command3_Click()

Set connessione = New ADODB.Connection
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db.mdb"
'
query = "select * from marcatori"
Set record = New ADODB.Recordset
record.Open query, connessione
Label1.Caption = record.Fields(1).Value
Label2.Caption = record.Fields(2).Value
Label3.Caption = record.Fields(3).Value
End Sub


Private Sub Command2_Click()
record.MoveNext
Label1.Caption = record.Fields(1).Value
Label2.Caption = record.Fields(2).Value
Label3.Caption = record.Fields(3).Value
End Sub

Private Sub Command1_Click()
record.MovePrevious
Label1.Caption = record.Fields(1).Value
Label2.Caption = record.Fields(2).Value
Label3.Caption = record.Fields(3).Value
End Sub

opiato e incollato ma non funziona mi va solo avanti !