Sub CreateTables
SQL1.ExecNonQuery("DROP TABLE IF EXISTS table1")
SQL1.ExecNonQuery("CREATE TABLE table1 (col1 TEXT, col2 TEXT,col3 TEXT, col4 TEXT)")
End Sub
Sub FillSimpleData
SQL1.ExecNonQuery("INSERT INTO table1 VALUES(" & Date(now) & "," & GasVerbrauch.Text & "," & StromVerbrauch.Text & ","& WasserVerbrauch.Text & ")")
ToastMessageShow(CRLF&"Datum: "& DatumT.Text &CRLF&" Gas: "& GasVerbrauch.Text &CRLF&" Strom: "& StromVerbrauch.Text &CRLF&" Wasser: "& WasserVerbrauch.Text,True)
End Sub