Currency in sqlite

Databases
15

image NEEDS FIX ASAP !!!

image

row contents:
image

Var db As New SQLiteDatabase
db.DatabaseFile = SpecialFolder.Desktop.Child("test-delete-it.sqlite")
db.CreateDatabase

Const createIt As String = "DROP TABLE IF EXISTS test; CREATE TABLE test (""kk6000"" real); "

db.ExecuteSQL(CreateIt + "INSERT INTO test (""kk6000"") VALUES (5.2);")

Var rs As RowSet = db.SelectSQL("SELECT * FROM test")

For each row As DatabaseRow in rs
  
  Var d1 As Double = row.Column("kk6000").DoubleValue
  Var c1 As Currency = row.Column("kk6000").CurrencyValue
  Var s1 As String = row.Column("kk6000").StringValue
  Var sc1 As String = c1.ToString
  Var sd1 As String = d1.ToString
  
  break // c1 is DESTROYED !
  
Next

Break
1 Like