Anzeige

SQL Select DoEvents


#1
Hallo,

brauche noch mal Eure Hilfe.

Problem: Bei der DB-Abfrage rödelt er lange und ich sehe nur einen weißen Bildschirm. Habe schon mit DoEvents probiert, aber ohne Erfolg.

Lothar
 
#3
SET RS3 = cn.Execute("SELECT * FROM DB")
doEvents
WHILE NOT RS3.EOF
doEvents
if RS3("ID") = "1" or RS3("ID") = "2" then
Koordinat = Koordinat & "[" & RS3("Name") & "," & RS3("ypos") & "," & RS3("xpos") & "," & RS3("ID") & "],"
end if
A = A + 1
doEvents
RS3.MoveNext
doEvents
WEND
 
Anzeige

Neue Beiträge

Anzeige