SQLite - Fließkommazahlen speichern und auslesen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    SQLite - Fließkommazahlen speichern und auslesen

    Guten Abend,

    ich habe ein kleines Problem mit dem Speichern bzw. Auslesen von Fließkommazahlen aus einer SQLite-Datenbank.
    Wenn ich eine Fließkommazahl in die Datenbank speichern und anschließend wieder lade, werden mir nur die Zahlen vor dem Komma ausgegeben.
    Ich habe herausgefunden, dass die Zahlen mit einem Komma in die Datenbank gespeichert werden, also 1,95. Korrekt wäre meines Wissens nach aber mit Punkt, also 1.95.
    Wenn ich den Wert über das Tool 'DB Browser for SQLite' auf 1.95 ändere, wird dieser anschließend auch korrekt ausgegeben.
    Eine korrekte Ausgabe erfolgt auch, wenn ich beim Erstellen der Tabelle als Datentyp TEXT angebe, anstelle von DOUBLE.
    Wie kann ich die Zahlen in der korrekten Form in der Datenbank speichern, damit ich sie anschließend auch wieder ausgeben kann?

    Hier einmal mein Code:

    VB.NET-Quellcode

    1. Private Sub btn_CreateTestDB_Click(sender As Object, e As EventArgs) Handles btn_CreateTestDB.Click
    2. 'Datenbank erstellen
    3. Dim connect As New SQLiteConnection()
    4. connect.ConnectionString = "Data Source=TestDB.db"
    5. connect.Open()
    6. connect.Close()
    8. 'Tabelle erstellen
    9. Dim command As SQLiteCommand
    10. connect.ConnectionString = "Data Source=TestDB.db"
    11. connect.Open()
    12. command = connect.CreateCommand
    13. command.CommandText = "CREATE TABLE Tab_Test(ID INTEGER PRIMARY KEY AUTOINCREMENT,TEST DOUBLE);"
    14. command.ExecuteNonQuery()
    15. command.Dispose()
    16. connect.Close()
    17. MsgBox("DB wurde erstellt")
    18. End Sub
    20. Private Sub btn_testSave_Click(sender As Object, e As EventArgs) Handles btn_testSave.Click
    21. 'Verbindung herstellen
    22. Dim SQLconnect As New SQLite.SQLiteConnection()
    23. Dim SQLcommand As SQLiteCommand
    24. SQLconnect.ConnectionString = "Data Source=TestDB.db"
    25. SQLconnect.Open()
    26. SQLcommand = SQLconnect.CreateCommand
    28. 'SQL-Befehl in String speichern
    29. Dim dblTest As Double = 1.59
    30. Dim SQLCommandSave As String = "INSERT INTO Tab_Test (TEST) VALUES (" & "'" & dblTest & "')"
    32. 'Befehl ausführen und Daten speichern
    33. SQLcommand.CommandText = SQLCommandSave
    34. SQLcommand.ExecuteNonQuery()
    36. 'Verbindung schließen
    37. SQLcommand.Dispose()
    38. SQLconnect.Close()
    39. MsgBox("Datensatz gespeichert")
    40. End Sub
    42. Private Sub btn_testLoad_Click(sender As Object, e As EventArgs) Handles btn_testLoad.Click
    43. tb_test.Text = ""
    44. Dim SQLconnect As New SQLite.SQLiteConnection()
    45. Dim SQLcommand As SQLiteCommand
    46. SQLconnect.ConnectionString = "Data Source=TestDB.db"
    47. SQLconnect.Open()
    48. SQLcommand = SQLconnect.CreateCommand
    50. SQLcommand.CommandText = "Select * FROM Tab_Test"
    52. Dim SQLreader As SQLiteDataReader = SQLcommand.ExecuteReader()
    53. Dim strWert = Nothing
    55. While SQLreader.Read
    56. strWert = SQLreader(1)
    57. End While
    59. tb_test.Text = strwert
    60. End Sub


    Vielen Dank schon mal

    welche SQL-Sprach-Dokumentation haste verwendet? - da müssteste Syntaxfehler ja nachgugge können.

    ich glaub, das Insert ist falsch - Zahlen werden nicht gequoted. (aber sicher bin ich nicht).
    Evtl. ist auch schon das Create Table falsch, und man muss eine Precision angeben. (aber sicher bin ich nicht).
    Oder die Sqlite-Installation hat eine Macke - für Installations-Macken scheint mir SqLite immer gut für zu sein. (Erfahrungswert - aber nicht viel Erfahrung)

Facebook
Telefonspende