[VB6] ProgressBar lettura/scrittura DB

[lucabo]

Ciao a tutti!
Premetto che ho già guardato nei thread ma, a meno di qualche mia svista, non ho trovato quel che cerco.

Tecnologia ADO

Come faccio ad inserire una progress bar di attesa lettura/scrittura recordset?

Carico i dati così:

If not rs.eof then
...
...
Do while rs.eof
...
...
Loop
End if

ecc. ecc...

Ciao
Grazie fin d'ora
Luca

[lucabo]

Nessun idea?

Ancora Grazie
Ciao
Luca

[Giulio C.]

Ciao.
Sperando di aver compreso bene cosa intendi dire, potresti mettere il codice che riguarda la ProgressBar nel ciclo di caricamento dei dati mediante:

   ProgressBar1.Value = (ProgressBar1.Value + 1)

Ovviamente ad ogni inizio del ciclo il valore deve essere impostato a 0.

Fammi sapere.

[lucabo]

Si ma se il ciclo dura più o meno del valore max (100) impostato.....
Cosa ne dici se metto all'interno del ciclo una cosa del tipo
PB.value = Percent(rs.Recordcount)

Cosa pensi?
Scusa ma dove sono ora non posso verificare..........
CIao
Grazie

[L'Aquila]

Prima del ciclo imposti la proprietà Max della progressbar al numero totale di record, all'interno del ciclo inserisci un contatore (o utilizzi il numero di record corrente) che utilizzerai come valore della PB

[lucabo]

Scusa l'ignoranza... mi fai un esempio?

[Giulio C.]

Ciao di nuovo Luca.

Ho "spulciato" nel codice di una mia vecchia applicazione e ti posto il codice che sicuramente è la cosa che più ti interessa:

Gestione dei valori minimo e massimo della ProgressBar:

 nValMaxPB = .RecordCount      ' Gestione della Progress Bar
 ProgressBar1.Min = 0          ' Valore minimo = 0
 ProgressBar1.Max = nValMaxPB  ' Valore massimo = record totali database

Il ".RecordCount" nel mio caso è all'interno di un "With" di gestione di un recordset.

Nel ciclo di caricamento:

ProgressBar1.Value = (ProgressBar1.Value + 1)

Come noterai concordo quindi con il tuo messaggio precedente.

Fammi sapere.

[lucabo]

pB.min = 0
pB.max = 100
mytot = rs.recordcount

Dentro il ciclo

...
...
pB.value = pB.value + (100/mytot)
...
...

[lucabo]

Appena torno a casa provo.
Comunque ho capito il concetto devo solo applicarlo

Grazie ancora
Ciao
Luca

[Giulio C.]

Si, il concetto è semplice. Imposti a 0 il valore minimo, ed al numero totale dei record quello massimo.
Prova pertanto il codice postato.

Comunque ti ha indirizzato correttamente anche L'Aquila nel suo messaggio...

Facci sapere allora!