SQL Select DoEvents

Lothar1951

Mitglied
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
 

Lothar1951

Mitglied
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
 

Yaslaw

n/a
Moderator
Und welche Sprache ist das?
Das scheint mir weder HTML noch XHTML zu sein. Eher VBA, VB6 oder VB.Net.