[VB] Temporizzare un WHILE ................

[race2]

In VB.NET,

E' possibile temporizzare un ciclo WHILE ???

Esempio:

            conn.Open()
            Dim comm As New OleDbCommand("SELECT * FROM Teble", conn)
            Dim read As OleDbDataReader = comm.ExecuteReader
            Dim li As ListViewItem
            While read.Read()

            Dim x As String = read("Campo")

            If x = 1 Then
            MsgBox(1)
            End If

            End While
            conn,Close()

vorrei che la lettura di read() avvenisse ogni 1 secondo, fino a finire tutto il contenuto della tabella, in protica un normalissimo ciclo WHILE ma con lettura temporizzata ad 1 secondo,

come posso applicare il Timer???

[cisky]

Potresti utilizzare una funzione API :

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

(Attendi x es. 1 secondo dopo ogni lettura dei dati)

[race2]

Non ho studiato le API............

e devo risolvere in poco tempo.............

[tas]

Ma perchè non usi un timer con tempo impostato su 1000 millisecondi? Lo aggiungi al tuo form, impostando la proprietà Enabled=False, poi nella routine di partenza scrivi:

conn.Open()
Dim comm As New OleDbCommand("SELECT * FROM Teble", conn)

'read variabile membro privata della classe
read As OleDbDataReader = comm.ExecuteReader
    
'qui attivi il timer
Timer1.Enabled = True

Nell'evento del timer dovrai caricare la listview:

Dim li As ListViewItem
Dim x As String

If read.Read() = True Then
    x = read("Campo")
    If x = 1 Then
        '...
    End If
Else
    Timer1.Enabled = False
    conn.Close()
End If

[race2]

OK ora provo e se non va qualcosa ti dici, grazie per ora ciao!!!