[Implemented] UseODBCDatabase() must be called...

[Marco2007]

Code: Select all

#db=0

db = OpenDatabase(#db, "psp", "", "") 
  If db
    If DatabaseQuery(#db, "select * from Knummer")
    Else
       MessageRequester("SQL-Fehler", DatabaseError())
    EndIf   
  Else
      MessageRequester("SQL-Fehler", DatabaseError())
  EndIf

I`m not shure (that`s why I post it here), but I think in 4.02 there was "Initdatabase() must be called"...or something like that...anyway it would be good, if such an error would be displayed.