[VB6]contare i record in un ciclo nidificato

[jakula]

Ciao,

vorrei avere come output nel form il numero dei records del mio database durante l' evento command di cui allego il codice.
Devo usare count o esiste un altro metodo?

(vorrei che apparisse in una textbox "tipo totale record nel database.... )

VB6

  
Private Sub Command15_Click()
If Data1.Recordset.EOF = False Then
For x = 0 To 1
Localita(x).Text = Text2.Text
Intestazione(x).Text = Text14.Text
Indirizzo(x).Text = Text5.Text
Telefono(x).Text = Text8.Text
Data1.Recordset.MoveNext

Next x
End If
End Sub

Grz

[jakula]

Ok riformulo la domanda

Se volessi contare i record del mio database che procedura mi consigliereste?

(Al Di fuori del ciclo di cui sopra)

[ciro78]

una variabile contatore semplice ed efficace
in pratica ogni volta che fai record.movenext devi scrivere(prima)

variabile=variabile+1

il valore iniziale deve essere uno

[allejo]

uno più semplice......non so se c'è.....
Data1.Recordset.Recordcount
questo conta quanti record ci sono.

[ciro78]

il problema è che con ado no me lo dava tra le proprietà ...anche io sapevo di recordcount ma non l'ho trovato...

[jakula]

allejo

 uno più semplice......non so se c'è..... 
Data1.Recordset.Recordcount 
questo conta quanti record ci sono.

Interessante ma come faccio a visualizzare il totale dei record in un output sul form tipo una label o un textbox che indichi tipo:
" In questo database sono presenti n records"




Ciro78

   una variabile contatore semplice ed efficace 
in pratica ogni volta che fai record.movenext devi scrivere(prima) 

code:----------------------------------------------------------------
variabile=variabile+1
---------------------------------------------------------------------

si il conteggio puo' essere valido ma dovendolo inserire in un ciclo nidificato mi imcomincia ad aggrovigliare il codice :master:

[jakula]

Un primo risultato l' ho ottenuto cosi' ( poi il print lo cambio ovviamente)
Ma si accettano soluzioni migliori tipo come usare il record.count

  

Dim c As Variant
Do While Data1.Recordset.EOF = False
Data1.Recordset.MoveNext
c = c + 1
Print c
Loop