Hallo,
habe hier ein ähnliches Problem wie weiter oben beschrieben.
Mit dem Code erstelle ich eine SQLite Datenbank:
Delphi-Quellcode:
DataPfad:= TPath.Combine(TPath.GetDocumentsPath, '
Test.db');
if not TFile.Exists(DataPfad)
then
Begin
Try // Datenbank erstellen
SQLConnection.connected:=False;
SQLConnection.Params.Values['
Database'] := DataPfad;
Startup.SQLConnection.Params.Values['
FailIfMissing'] := '
False';
Startup.SQLConnection.Connected:=True;
except
on E: EDatabaseError
Do ShowMessage(E.
Message);
End;
Try
SQLBefehl:='
CREATE TABLE Kontakte(EintragID INTEGER PRIMARY KEY AUTOINCREMENT, TelNummer VARCHAR(50) NOT NULL, KontaktName VARCHAR(100));';
DtaZeilen := SQLConnection.ExecuteDirect(SQLBefehl);
except
on E:
Exception Do Showmessage(E.ClassName + '
/ ' + E.
Message);
End;
SQLConnection.Connected:=False;
if not FileExists(DataPfad)
then
ShowMessage('
Datenbank nicht erstellt');
end;
Wie Ihr sehen könnt, frage ich am Ende des Blockes ab, ob die Datei erstellt wurde. Sie wird erstellt, zumindest wird mir das mit FileExists angezeigt. Warum aber sehe ich die Datei nicht mit einem Dateiexplorer wie z.B. Astro-File Manager oder gar mit aSQLiteManager?
Wäre toll wenn mir jemand einen Hinweis geben könnte was ich da falsch mache