Mit Edit1.Text den Tabellenname einer SQL-Tabelle benennen

[jmich]

Hi Delphigemeinde,

wie kann ich mit Edit1.Text den Tabellenname einer SQL-Tabelle benennen
und auch speichern?

Bei einer Erstellung eine Tabelle klappt das bisher gut.
Hier ein Beispiel:

Delphi-Quellcode:

Laden der Datenbank und Connected
.
.
.
  try
     LiteQuery.SQL.Clear;
     LiteQuery.SQL.Text := 'CREATE TABLE '+  Edit1.Text +
                      ' ([Nr] INTEGER PRIMARY KEY AUTOINCREMENT'+
                      ' ,[positionnr] VARCHAR(4)'+
                      ' ,[positiontext] VARCHAR(4)';
     LiteQuery.Execute;
   finally

            LiteQuery.Free;
            LiteConnection.Free;
   end;

Aber beim Speichern in die Tabelle funktioniert es nicht.

Delphi-Quellcode:

Laden der Datenbank und Connected
.
.
.
try
  LiteQuery.Close;
  LiteQuery.SQL.Clear;
  LiteQuery.SQL.Text := 'INSERT INTO' + Edit1.Text +
                        ' ( '+
                        ' [Nr],[positionnr],[positiontext]'+
                        ' Values ('+
                        ' :nnr :posnr, :postxt'+
                        ' )';
        ParamByName('nnr').AsInteger := nr.Value;
        ParamByName('posnr').AsString := positionne.Text;
        ParamByName('postxt').AsString := positiontext.Text;
  LiteQuery.ExecSQL();
finally
  LiteQuery.Free;
  LiteConnection.Free;
end;

Warum funktioniert das Speichern nicht und gibt eine Fehlermeldung: Zugriffverletzung

Wer kann helfen?

Vielen Dank im Voraus