SQL Datenfile abfragen

[Velindos]

Hallo,
habe folgendes Problem, wenn ich beim Start meines Programmes die Datenbankfile abfrage(siehe Code) blockiert Sie meinen Eingaben!

Code: Alles auswählen

Procedure DatenbankAnlegen()
  
  Protected DB
  DB=1
  DataBankVorhanden=ReadFile (#PB_Any,DatabaseFile$)
  
  If DataBankVorhanden = 0
    If CreateFile(DB, DatabaseFile$)
      Debug "file war nicht vorhanden = "+Str(DataBankVorhanden)
      CloseFile(DB)
      OpenDatabase(DB, DatabaseFile$, "", "", #PB_Database_SQLite)
      DatabaseUpdate(DB, "Create Table Velindos (ID INTEGER PRIMARY KEY AUTOINCREMENT, Stichwort TEXT,Notiz TEXT,Pfad TEXT, myBild BLOB)")
      CloseDatabase(DB)
      
    EndIf
    Debug "File created"
  Else
    MessageRequester("Information","Konnte Datei nicht erstellen!")
  EndIf
  
EndProcedure

Gibt es eine andere Lösung?

Gruss ... Velindos

[ts-soft]

Eine Datei kann nur einmal geöffnet werden. Ausserdem überprüft man das vorhandensein
mit FileSize()

Code: Alles auswählen

Procedure DatenbankAnlegen()
 
  Protected DB
  DB=1
  ;DataBankVorhanden=ReadFile (#PB_Any,DatabaseFile$)
  If FileSize(DatabaseFile$) >= 0
    DataBankVorhanden = #True
  EndIf
  If DataBankVorhanden = 0
    If CreateFile(DB, DatabaseFile$)
      Debug "file war nicht vorhanden = "+Str(DataBankVorhanden)
      CloseFile(DB)
      OpenDatabase(DB, DatabaseFile$, "", "", #PB_Database_SQLite)
      DatabaseUpdate(DB, "Create Table Velindos (ID INTEGER PRIMARY KEY AUTOINCREMENT, Stichwort TEXT,Notiz TEXT,Pfad TEXT, myBild BLOB)")
      CloseDatabase(DB)
     
    EndIf
    Debug "File created"
  Else
    MessageRequester("Information","Konnte Datei nicht erstellen!")
  EndIf
 
EndProcedure 

Gruß
Thomas

[Velindos]

Hallo Thomas,
habs nicht gecheckt das mit dem Filesize.

Die Sache funkt, danke für die rasche Hilfe!

Gruss ... Velindos

[ts-soft]

Die Sache funkt, danke für die rasche Hilfe!

Gern geschehen, trotzdem noch eine Bitte:
Ergänze solche Prozeduren in soweit, das man es sofort testen kann, also:
Deklaration von DatabaseFile$ und DataBankVorhanden sind nicht ersichtlich.

DatenbankAnlegen() unter der Procedure damit es dann auch was tut

Angaben zu Threadsafe, Unicode, x64 usw. sollten auch immer bei sein.

Mach es den Testern so einfach wie möglich, schließlich möchtest Du ja, das
diese für Dich "schuften"

Gruß
Thomas