Automatiach erstellte Syntax

[nahpets]

SQL-Statments enden (für gewöhnlich) mit einem Semikolon, das ist der Trenner. Ein Leerzeichen zwischen mehreren Statements ist (technisch) nicht erforderlich. Zur besseren Lesbarkeit gilt bei mir: Ein Statemnt, eine Zeile. Muss ein Statement auf mehrere Zeilen verteilt werden, dann kommt auch noch eine Leerzeile dazwischen.

Technisch kann man alles weglassen, was zur besseren Lesbarkeit führt, kann also z. B. ein Script von 10 MB durchaus als Einzeiler schreiben. Kann man, muss man aber nicht.

Auch wenn es mehr Aufwand ist, mache ich sowas

Delphi-Quellcode:

function TDMLSQLite.Createbilddescribetabelle :String;
 var SQLString: String;
begin
  SQLString := 'CREATE TABLE ContentMasterData.bilddescribetabelle('+
                                '"BilddesribeID" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL CHECK("BilddesribeID">=0),'+
                                '"bildtabelle_idBild" INTEGER NOT NULL CHECK("bildtabelle_idBild">=0),'+
                                '"bildkatID" INTEGER NOT NULL CHECK("bildkatID">=0),'+
                                '"bildname" VARCHAR(45),"Dateipfad" VARCHAR(250),"bildbeschreibung" VARCHAR(800),'+
                                '"bildlegende" VARCHAR(300),"Author" VARCHAR(250),'+
                                'CONSTRAINT "fk_bilddescribetabelle_bildtabelle1" '+
                                  'FOREIGN KEY("bildtabelle_idBild")'+
                                  'REFERENCES "bildtabelle"("idBild"));'+
  'CREATE INDEX "ContentMasterData"."bilddescribetabelle.fk_bilddescribetabelle_bildtabelle1_idx" ON"bilddescribetabelle" ("bildtabelle_idBild");';
  Result := SQLString;
end;

lieber eher so:

Delphi-Quellcode:

function TDMLSQLite.Createbilddescribetabelle :String;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add('CREATE TABLE ContentMasterData.bilddescribetabelle');
  sl.Add('(');
  sl.Add('  "BilddesribeID" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL ');
  sl.Add('                  CHECK("BilddesribeID" >= 0),');
  sl.Add('  "bildtabelle_idBild" INTEGER NOT NULL CHECK("bildtabelle_idBild" >= 0),');
  sl.Add('  "bildkatID" INTEGER NOT NULL CHECK("bildkatID" >= 0),');
  sl.Add('  "bildname" VARCHAR(45),');
  sl.Add('  "Dateipfad" VARCHAR(250),');
  sl.Add('  "bildbeschreibung" VARCHAR(800),');
  sl.Add('  "bildlegende" VARCHAR(300),');
  sl.Add('  "Author" VARCHAR(250),');
  sl.Add('  CONSTRAINT "fk_bilddescribetabelle_bildtabelle1" ');
  sl.Add('  FOREIGN KEY("bildtabelle_idBild")');
  sl.Add('  REFERENCES "bildtabelle"("idBild")');
  sl.Add(');');
  sl.Add('CREATE INDEX "ContentMasterData"."bilddescribetabelle.fk_bilddescribetabelle_bildtabelle1_idx"');
  sl.Add('          ON "bilddescribetabelle" ("bildtabelle_idBild");');
  Result := sl.Text;
  sl.Free;
end;

Und das geht nur, wenn man mehrere Statements bei SQLite mit ExecSQL ausführen kann, sonst musst Du dadraus mehrere Funktionen machen, eine für's Create Table und eine für Create Index.

Also eher sowas:

Delphi-Quellcode:

function TDMLSQLite.Create_BilddescribeTabelle :String;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add('CREATE TABLE ContentMasterData.bilddescribetabelle');
  sl.Add('(');
  sl.Add('  "BilddesribeID" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL ');
  sl.Add('                  CHECK("BilddesribeID" >= 0),');
  sl.Add('  "bildtabelle_idBild" INTEGER NOT NULL CHECK("bildtabelle_idBild" >= 0),');
  sl.Add('  "bildkatID" INTEGER NOT NULL CHECK("bildkatID" >= 0),');
  sl.Add('  "bildname" VARCHAR(45),');
  sl.Add('  "Dateipfad" VARCHAR(250),');
  sl.Add('  "bildbeschreibung" VARCHAR(800),');
  sl.Add('  "bildlegende" VARCHAR(300),');
  sl.Add('  "Author" VARCHAR(250),');
  sl.Add('  CONSTRAINT "fk_bilddescribetabelle_bildtabelle1" ');
  sl.Add('  FOREIGN KEY("bildtabelle_idBild")');
  sl.Add('  REFERENCES "bildtabelle"("idBild")');
  sl.Add(');');
  Result := sl.Text;
  sl.Free;
end;

function TDMLSQLite.Create_fk_bilddescribetabelle_bildtabelle1_idx :String;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add('CREATE INDEX "ContentMasterData"."bilddescribetabelle.fk_bilddescribetabelle_bildtabelle1_idx"');
  sl.Add('          ON "bilddescribetabelle" ("bildtabelle_idBild");');
  Result := sl.Text;
  sl.Free;
end;

Bitte prüfe als Erstes: Kann man bei SQLite mehrere SQL in einem ExecSQL ausführen?

Wenn nein, dann baue zuerst entsprechende Funktionen, je Statement eine.

Also pro SQL darf es nur ein ; geben.