Hallo Ihr Lieben,
Ich bin auf ein Problem mit Splite gestossen.
Mit folgendem, Speicher ich div. Daten in meiner Tabelle:
Dim ps As SQLitePreparedStatement = DB.Prepare(“INSERT INTO Filetabelle (Pfad,Len,Datum,Typ,Info,Duration,Latitude,Longitude,ImportID) VALUES (?,?,?,?,?,?,?,?,?)”)
ps.BindType(0, SQLitePreparedStatement.SQLITE_TEXT) 'Pfad
ps.Bind 0, f.ShellPath
ps.BindType(1, SQLitePreparedStatement.SQLITE_integer) 'len
ps.Bind 1, f.Length
ps.BindType(2, SQLitePreparedStatement.SQLITE_TEXT) 'Datum
a=datum.ReplaceAll(" “,”")
a=a.left(10)
a=a.ReplaceAll(":","-")
datum=a+" "+datum.Right(8)
ps.Bind 2, Datum
ps.BindType(3, SQLitePreparedStatement.SQLITE_TEXT) 'Typ
ps.Bind 3, typ
ps.BindType(4, SQLitePreparedStatement.SQLITE_TEXT) 'Info
ps.Bind 4, “Versuch 3;”+info
ps.BindType(5, SQLitePreparedStatement.SQLITE_Integer) 'Duration
ps.Bind 5, Duration
ps.BindType(6, SQLitePreparedStatement.SQLITE_DOUBLE) 'Lat
ps.Bind 6, Lat
ps.BindType(7, SQLitePreparedStatement.SQLITE_DOUBLE) 'lon
ps.Bind 7, lon
ps.BindType(8, SQLitePreparedStatement.SQLITE_Integer) 'ID
ps.Bind 8, ID
ps.SQLExecute
If db.Error Then
MsgBox("Fehler beim Update "+db.ErrorMessage)
End If
Leider sind die Integer Einträge von Len (f.Length) alle im Minus-Bereich. Die anderen Daten sind ok.
Woran kann das liegen???
Wie immer freue ich mich auf eine Antwort
Micha