Hallo,
ich habe den auf vbarchiv.net/workshop/workshop47.php
empfohlenen Weg für den connect an eine mysql-DB genommen.
In einem Script habe ich eine Schleife, die bei jedem Ausführen ca. 30kb Speicher frisst und das Programm ziemlich aufbläst.
Kann man dagegen was machen?
Code ist unten angehängt,
Danke & Grüße,
Florian
-------
Do While Counter > 0
Counter = Counter - 1
c.WriteLine("Spielende in " & Counter & "Sekunden!")
'Startzeitpunkt ermitteln
sSQL = "SELECT onair_start FROM spiele where id=" & spielid & ""
oRs = oConn.Execute(sSQL)
zeitstempel = oRs.Fields(0).Value
zeitstempel_str = zeitstempel.ToString("yyyyMMddHHmmss")
'Mitspieler aus db ermitteln
mitspieler = ""
sSQL = "SELECT * FROM antwortlog where ts>'" & zeitstempel_str & "' order by antwort_id desc"
oRs = oConn.Execute(sSQL)
MySQL_Error()
nRow = 0
'c.WriteLine("Mitspieler:" & oRs.RecordCount)
Dim zaehler As Integer
zaehler = 1
While Not oRs.EOF
nRow = nRow + 1
'For i = 0 To oRs.FieldCount - 1
' ' Aktuellen Wert ins FlexGrid kopieren
' 'c.WriteLine("Reihe: " & nRow & " Feld" & i & " :" & oRs.Fields(i).Value)
'Next i
If zaehler = 1 Then
mitspieler = mitspieler & oRs.Fields(1).Value
End If
If zaehler > 1 Then
mitspieler = mitspieler & " | " & oRs.Fields(1).Value
End If
zaehler = zaehler + 1
oRs.MoveNext()
End While
'dynamische daten zusammenbauen
strResult = dyninfo
strResult = strResult.Replace("#mitspieler#", mitspieler)
'c.WriteLine(strResult)
'dyn. Daten an
send2Grafik(strResult)
Sleep(1000)
Loop
ich habe den auf vbarchiv.net/workshop/workshop47.php
empfohlenen Weg für den connect an eine mysql-DB genommen.
In einem Script habe ich eine Schleife, die bei jedem Ausführen ca. 30kb Speicher frisst und das Programm ziemlich aufbläst.
Kann man dagegen was machen?
Code ist unten angehängt,
Danke & Grüße,
Florian
-------
Do While Counter > 0
Counter = Counter - 1
c.WriteLine("Spielende in " & Counter & "Sekunden!")
'Startzeitpunkt ermitteln
sSQL = "SELECT onair_start FROM spiele where id=" & spielid & ""
oRs = oConn.Execute(sSQL)
zeitstempel = oRs.Fields(0).Value
zeitstempel_str = zeitstempel.ToString("yyyyMMddHHmmss")
'Mitspieler aus db ermitteln
mitspieler = ""
sSQL = "SELECT * FROM antwortlog where ts>'" & zeitstempel_str & "' order by antwort_id desc"
oRs = oConn.Execute(sSQL)
MySQL_Error()
nRow = 0
'c.WriteLine("Mitspieler:" & oRs.RecordCount)
Dim zaehler As Integer
zaehler = 1
While Not oRs.EOF
nRow = nRow + 1
'For i = 0 To oRs.FieldCount - 1
' ' Aktuellen Wert ins FlexGrid kopieren
' 'c.WriteLine("Reihe: " & nRow & " Feld" & i & " :" & oRs.Fields(i).Value)
'Next i
If zaehler = 1 Then
mitspieler = mitspieler & oRs.Fields(1).Value
End If
If zaehler > 1 Then
mitspieler = mitspieler & " | " & oRs.Fields(1).Value
End If
zaehler = zaehler + 1
oRs.MoveNext()
End While
'dynamische daten zusammenbauen
strResult = dyninfo
strResult = strResult.Replace("#mitspieler#", mitspieler)
'c.WriteLine(strResult)
'dyn. Daten an
send2Grafik(strResult)
Sleep(1000)
Loop