German DBUTILS Daten aus DB auslesen

Sub Activity_Create(FirstTime As Boolean)
    sql.Initialize(rp.GetSafeDirDefaultExternal(""),"daten.db",True)   
    If DBUtils.TableExists(sql,"daten.db") = False Then
        DBUtils.CreateTable(sql, "daten", CreateMap("beginn": DBUtils.DB_TEXT, "ende": DBUtils.DB_TEXT), "beginn")
    End If
End Sub

Sub DatenInDatenbankSchreiben
    Dim zeilen As List
    zeilen.Initialize
    Dim Eintrag As Map
    Eintrag = CreateMap("beginn": ArbeitsBeginn, "ende": ArbeitsEnde)
    zeilen.Add(Eintrag)
    DBUtils.InsertMaps(sql, "daten", zeilen)
End Sub

Sub DatenAusDatenbankLesen
    Dim TestListe As List
    TestListe.Initialize
    TestListe =     DBUtils.ExecuteMemoryTable(sql,"SELECT beginn FROM daten",Null,0)
  
    For i = 0 To TestListe.Size-1
        Dim value() As String
        value = TestListe.Get(i)
        Log("Value= " & value(i))
    Next
  
End Sub

Dim testcursor as cursor 'erstellen den cursor
testcursor = sql.ExecQuery("SELECT beginn FROM daten") 'befüllen den cursor

for i = 0 to testcursor.RowCount -1 'schleife mit dem rowcount von den results aus der select anweisung

testcursor.position = i 'damit wir auch die richtige position ansteuern können
log("Value: " & testcursor.GetString("beginn")) 'gibt den string aus, einfach den column angeben den du willst in diesem fall haben wir nur den column beginn

Next

testcursor.close 'cursor wird nicht mehr benötigt, also können wir die resscource freigeben

For i = 0 To TestListe.Size-1
    Dim value() As String
    value = TestListe.Get(i)
    Log("Value= " & value(0))
 Next

TestListe =  DBUtils.ExecuteMemoryTable(sql,"SELECT * FROM daten", Null, 0)

For i = 0 To TestListe.Size-1
    Dim value() As String
    Dim Beginn, Ende As Long
    value = TestListe.Get(i)
    Beginn = value(0)  'Tick Wert in Long umwandeln
    Ende = value(1)  'Tick Wert in Long umwandeln
    Log("Beginn = " & Beginn)
    Log("Ende = " & Ende)
 Next