[SOLVED] SQLite findet die Tabelle nicht/legt keine an

[R3booz]

ICh hab zuerst die Datei test.sqlite erstellt und sie mit OpenDatabase geöffnet und eine Tabelle erstellt:

Code: Alles auswählen

CREATE TABLE musicmp3 (Pfad CHAR(50), Titel CHAR(75), Album CHAR(75), Interpret CHAR(75), Dauer CHAR(10), Jahr CHAR(4), Format CHAR(10))

Aber wenn ich die sie verwenden will sagt er nur das die Tabelle nicht existiert

Nebenbei die Datei ist auch immer noch leer ...

Sonstiges:
ich habe UseSQLiteDatabase() als erstes oben hingeschrieben
ich habe es eigentlich genau wie im Beispiel gemacht

kann mir jemand helfen?

mfg R3booz

PS: Bei Fragen antworte ich gern

[ts-soft]

Bei welchem Code sollen wir Dir denn helfen?
Ich kann in hier leider nicht finden

[R3booz]

jaja immer das selbe mit mir

das problem ist da müsste ich ziemliches durcheinander posten
aber wenn du willst warte

mfg R3booz

[R3booz]

DatabaseOpen(#True,SaveFileRequester("Bitte Speicherort für neue Datenbank wählen:","","*.sqlite",0)+".sqlite")

Code: Alles auswählen

Procedure DatabaseOpen(new,path.s)
  If new = #True
    CreateFile(0,path.s)
    CloseFile(0)
  EndIf
  If OpenDatabase(0, path.s, "", "")
    If new = #True
      CheckDatabaseUpdate(0,"CREATE TABLE musicmp3 (Pfad CHAR(50), Titel CHAR(75), Album CHAR(75), Interpret CHAR(75), Dauer CHAR(10), Jahr CHAR(4), Format CHAR(10))")
    EndIf
  Else
    MessageRequester("Fehler","Konnte Datenbank '"+path.s+"' nicht öffnen!")
  EndIf
EndProcedure

teil um die datenbank anzulegen

[R3booz]

und hier mit wird in die datenbank geschrieben:

Code: Alles auswählen

CheckDatabaseUpdate(0,"INSERT INTO musicmp3 (Pfad, Titel, Album, Interpret, Dauer, Jahr, Format) VALUES ('"+file.s+"', '"+GetFilePart(file.s)+"', '"+album.s+"', '"+interpret.s+"', '"+dauer.s+"', '"+jahr.s+"', 'mp3')")

[ts-soft]

Okay, der Code ist nicht ausführbar, sollen dann doch lieber andere für Dich arbeiten

[R3booz]

da muss ich aber das ganze programm posten
ich probier mal das zusammen zufügen das man es ausführen kann

mfg R3booz

[R3booz]

hier nun funktionsfähig und mit Fehler

Code: Alles auswählen

UseSQLiteDatabase()

Procedure CheckDatabaseUpdate(Database, Query$)
   Result = DatabaseQuery(Database, Query$)
   If Result = 0
      Debug DatabaseError()
   EndIf
   ProcedureReturn Result
EndProcedure

Procedure DatabaseOpen(new,path.s)
  If new = #True
    CreateFile(0,path.s)
    CloseFile(0)
  EndIf
  If OpenDatabase(0, path.s, "", "")
    If new = #True
      DatabaseQuery(0,"CREATE TABLE musicmp3 (Pfad CHAR(50), Titel CHAR(75), Album CHAR(75), Interpret CHAR(75), Dauer CHAR(10), Jahr CHAR(4), Format CHAR(10))")
    EndIf
  Else
    MessageRequester("Fehler","Konnte Datenbank '"+path.s+"' nicht öffnen!")
  EndIf
EndProcedure

Procedure importfile(file.s)
  album.s = "Album"
  interpret.s = "interpret"
  dauer.s = "dauer"
  jahr.s = "jahr"
  CheckDatabaseUpdate(0,"INSERT INTO musicmp3 (Pfad, Titel, Album, Interpret, Dauer, Jahr, Format) VALUES ('"+file.s+"', '"+GetFilePart(file.s)+"', '"+album.s+"', '"+interpret.s+"', '"+dauer.s+"', '"+jahr.s+"', 'mp3')")
EndProcedure

DatabaseOpen(#True,SaveFileRequester("Bitte Speicherort für neue Datenbank wählen:","","*.sqlite",0)+".sqlite")
importfile(OpenFileRequester("MP3 Datei zum importieren auswählen:","","MP3 | *.mp3",0))

Vielen dank für deine Geduld

mfg R3booz

[Kiffi]

Beim Erstellen der Datenbank erstellst Du eine Tabelle 'food'.

Grüße ... Kiffi

[R3booz]

sorry das ist nur falsch geschrieben habs verbessert war nur weil ich vorher etwas rumexperimentiert habe

mfg R3booz