[Implemented] Clear DatabaseError() before DatabaseUpdate()

[Kiffi]

Code: Select all

UseSQLiteDatabase()

DB = OpenDatabase(#PB_Any, ":memory:", "", "", #PB_Database_SQLite)

DatabaseUpdate(DB, "Create Table myTestTable (Field1, Field2)")

DatabaseUpdate(DB, "Alter Table myTestTable Add Column Field3")
If DatabaseError() : Debug DatabaseError() : EndIf ; no DatabaseError()

DatabaseUpdate(DB, "Alter Table myTestTable Add Column Field3")
If DatabaseError() : Debug DatabaseError() : EndIf ; -> "duplicate column name: Field3" (That's OK)

[... later in my code ...]

DatabaseUpdate(DB, "Insert Into myTestTable (Field1, Field2, Field3) Values (1, 2, 3)")
If DatabaseError() : Debug DatabaseError() : EndIf ; -> "duplicate column name: Field3" (That's confusing)

Greetings ... Kiffi