Seite 1 von 2
[SOLVED] SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:05
von 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
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:22
von ts-soft
Bei welchem Code sollen wir Dir denn helfen?
Ich kann in hier leider nicht finden
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:25
von R3booz
jaja
immer das selbe mit mir
das problem ist da müsste ich ziemliches durcheinander posten
aber wenn du willst warte
mfg R3booz
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:27
von 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
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:28
von 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')")
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:35
von ts-soft
Okay, der Code ist nicht ausführbar, sollen dann doch lieber andere für Dich arbeiten
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:37
von R3booz
da muss ich aber das ganze programm posten
ich probier mal das zusammen zufügen das man es ausführen kann
mfg R3booz
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:42
von 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
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:48
von Kiffi
Beim Erstellen der Datenbank erstellst Du eine Tabelle 'food'.
Grüße ... Kiffi
Re: SQLite findet die Tabelle nicht/legt keine an
Verfasst: 25.12.2012 14:49
von R3booz
sorry das ist nur falsch geschrieben
habs verbessert war nur weil ich vorher etwas rumexperimentiert habe
mfg R3booz