Hallo,
ich möchte eine kleine History mit 4 Werten in einer SQL-Datenbank speichern.
Ich bekomme keine Fehlermeldung aber auch keine vernünftige Ausgabe, wo liegt mein Fehler?
ich möchte eine kleine History mit 4 Werten in einer SQL-Datenbank speichern.
Ich bekomme keine Fehlermeldung aber auch keine vernünftige Ausgabe, wo liegt mein Fehler?
B4X:
'Datenbank erzeugen
Try
SQL1.ExecQuerySingleResult("SELECT count(*) FROM table2")
Catch
SQL1.ExecNonQuery("CREATE TABLE table2 (H_Datum TEXT,H_Eintrag TEXT,H_State1 TEXT,H_State2 TEXT)")
SQL1.ExecQuerySingleResult("SELECT count(*) FROM table2")
End Try
'History speichern
Datum=DateTime.Date(DateTime.Now)
Eintrag="Testzeile"
state1="Test-1"
state2_"Test-2"
SQL1.ExecNonQuery2("INSERT INTO table2 VALUES (?, ?, ?, ?)", Array As Object(Datum,Eintrag,state1,state2))
'anzeigen
Dim zeig As ListView
zeig.Initialize("zeig")
zeig.FastScrollEnabled=True
zeig.SingleLineLayout.ItemHeight = 7.8%y
zeig.SingleLineLayout.Label.Color = Colors.Blue
zeig.SingleLineLayout.Label.TextColor = Colors.White
zeig.SingleLineLayout.Label.TextSize = Tsize3
zeig.SingleLineLayout.Label.Gravity = Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
'
TableH.Initialize
statementH="SELECT * FROM table2"
TableH = ExecuteMemoryTable(SQL1,statementH, Null, 0)
'
For i = 0 To TableH.Size - 1
zeig.AddSingleLine(TableH.Get(0))
zeig.AddSingleLine(TableH.Get(1))
zeig.AddSingleLine(TableH.Get(2))
zeig.AddSingleLine(TableH.Get(2))
Next