procedure TDMLSQLite.ContentmasterDBCreate;
var SQLString:
String;
begin
try
DMLSQLite.FDSQLiteConnection.Connected := false;
FDSQLiteConnection.ExecSQL('
ATTACH "M:\SQLite-DB Corner\ContentMasterData\ContentMasterData.sqlite" AS ContentMasterData');
// DMLSQLite.FDSQLiteConnection.Params.Values['Database']:='"M:\SQLite-DB Corner\ContentMasterData\ContentMasterData.sqlite"';
// War obige Zeile nicht auskommentiert: Unbekannte Datenbank. Danach liefen alle Createanweisungen durch. Beim nächsten ExecCSQL krachte es
DMLSQLite.FDSQLiteConnection.Params.Values['
FailIfMissing']:='
False';
DMLSQLite.FDSQLiteConnection.Params.Values['
PRAGMA foreign_keys']:='
ON';
SQLiteTestMain.LBxPathlist.Items.AddStrings(FDSQLiteConnection.Params);
DMLSQLite.FDSQLiteConnection.Connected := true;
DMLSQLite.FDSQLiteConnection.GetInfoReport(SQLiteTestMain.Memo1.Lines);
SQLString := '
';
SQLString := Createbilddescribetabelle;
SQLString := SQLString + Createbilddescribetabelle_has_HtmlTabell;
SQLString := SQLString + Createbildtabelle;
SQLString := SQLString + CreateCSSTabelle;
SQLString := SQLString + Creategalerietabelle;
SQLString := SQLString + CreateHTMLTable;
SQLString := SQLString + CreateJavascriptTable;
SQLString := SQLString + Createkategorien_tabelle;
SQLString := SQLString + Createkategorien_tabelle_has_bildDescribeTabelle;
SQLString := SQLString + CreateMenueTabelle;
SQLString := SQLString + CreateSubMenue2Table;
SQLString := SQLString + CreateSubmenuetabelle;
DMLSQLite.FDSQLiteConnection.ExecSQL(SQLString);
except
on E: EDatabaseError
do
ShowMessage('
Exception raised with message' + E.
Message);
end;
end;