[VB6] DATA1&Ciclo

[x69asterix]

ciao,
come posso fare scorrere tutti i record presenti nel mdb in modo automatico, invece di cliccare ogni volta sul data1?
ciao

[yyzyyz]

ciao , potresti spiegarti meglio :master:

[x69asterix]

Originariamente inviato da yyzyyz
ciao , potresti spiegarti meglio :master:

ciao,
allora x fare scorrere un record mi servo del click sul data1, ma visto ke ho circa 1000 record invece di fare 1000 click come posso fare a farli scorrere in modo automatico e continuo?

[yyzyyz]

ma penso ke con un sistema di questo tipo potresti risolvere.

with data1
..
..
end with

[x69asterix]

Originariamente inviato da yyzyyz
ma penso ke con un sistema di questo tipo potresti risolvere.

with data1
..
..
end with

ciao,
ma x quanto riguarda i puntini, cosa inserisco?

[x69asterix]

[Brainjar]

Per farli scorrere puoi utilizzare il metodo .MoveNext del
recordset del data1.

    Dim a As Integer
    Do While Not Data1.Recordset.EOF
        ' Inserire delle operazioni, od un ciclo di ritardo  
        Data1.Recordset.MoveNext
    Loop

Tieni presente, però, che questo loop è troppo veloce, per cui
prima della istruzione Data1.Recordset.MoveNext ci andrebbe
qualcosa che ti rallenti il ciclo.

Ciao,

[x69asterix]

Originariamente inviato da Brainjar
Per farli scorrere puoi utilizzare il metodo .MoveNext del
recordset del data1.

    Dim a As Integer
    Do While Not Data1.Recordset.EOF
        ' Inserire delle operazioni, od un ciclo di ritardo  
        Data1.Recordset.MoveNext
    Loop

Tieni presente, però, che questo loop è troppo veloce, per cui
prima della istruzione Data1.Recordset.MoveNext ci andrebbe
qualcosa che ti rallenti il ciclo.

Ciao,

ciao,
e si in effetti e proprio superveloce fin troppo, x il ciclo di ritardo come procedo?

[Brainjar]

Le soluzioni sono diverse.

Quella più utilizzata è senz'altro l'utilizzo di un timer che ad ogni
mezzo secondo (o un secondo) ti esegua la MoveNext.

Per una soluzione diversa si potrebbe creare una funzione di attesa
che non utilizzi il Timer.

Ciao,

[maxmalici]

esiste tra le API
una funzione che si chiama sleep(msec)
che crea un tempo di attesa di TOT millisecondi....

la devi dichiarare nel seguente modo:
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

ciao Max