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

[Neutral General]

Die Query wurde nicht erstellt oder wurde schon freigegeben? :glaskugel:
"nr" ist nil? :glaskugel:
Hast du denn mal debuggt und geschaut in welcher Zeile es genau kracht?

[himitsu]

Zitat:

Zugriffverletzung

Wo?

Delphi-Quellcode:

'INSERT INTO' + Edit1.Text +

Delphi-Quellcode:

' :nnr :posnr, :postxt' +

In beiden Zeilen fehlt jeweils genau ein Zeichen. :zwinker:

Zitat:

Edit1.Text

Und falls ihm noch jemand bezüglich SQL-Injection etwas sagen möchte ... nur zu.

[Bernhard Geyer]

Leerzeichen werden überbewertet...

[Neutral General]

Was Himitsu und Bernhard geschrieben haben kommt erschwerend dazu, sollte aber keine Zugriffsverletzung auslösen sondern "nur" einen SQL Fehler.

[Bernhard Geyer]

Doch, passt schon

ParamByName('nnr')

Nicht gefunden (Da ja String kein gültiges SQL), liefert nil zurück
Zugriff auf AsInteger -> Zugriffsverletzung

[jmich]

Die Datenbank und Query hatte natürlich erstellt, aber hier den code mal weggelassen.

[DELPHI]

var
LiteConnection,LiteConnection1 : TLiteConnection;
LiteQuery,LiteQuery1: TLiteQuery;
begin

LiteConnection := TLiteConnection.Create(nil);
LiteQuery := TLiteQuery.Create(nil);
LiteConnection.Database := ExtractFilePath(Application.ExeName)+'test.db;
LiteConnection.Connected := True;
LiteQuery.Connection := LiteConnection;
LiteConnection.Options.Direct := True;[/DELPHI


Habe auch jetzt debugging ausgeführt - keine Fehler-
Komischer Weise funktioniert es jetzt.

[himitsu]

@Bernhard

ParamByName liefert eine Exception "nicht gefunden",
aber bei FindParam hättest du Recht, da das ein NIL zurück gibt, was in einer Zugriffsverletzung münden könnte.

Zitat:

Zitat von Bernhard Geyer (Beitrag 1507791)

Leerzeichen werden überbewertet...

und Kommata :stupid:

https://www.blankenforth.de/goal/cul...he_Sprache.pdf

[jmich]

Vielen Dank für die Info Himitsu.
im Originalcode sind die Zeichen, habe hier beim Schreiben
des Code nur vergessen vor lauter Eile

Trotzdem vielen dank

Jmich

[Blup]

Das SQL.Clear ist überflüssig, wenn SQL.Text direkt danach zugewiesen wird.
Bei Änderung des SQL.Text wird auch automatisch Close und UnPrepare aufgerufen.

Die fehlenden Leerzeichen im SQL.Text sollten schon beim Prepare zu einem SQL-Fehler führen.
Wenn auf die durch das fehlerhafte SQL nicht vorhandenen Parameter zugegriffen wird, führt das zur Zugriffsverletzung.

Delphi-Quellcode:

LiteQuery.SQL.Text := ...;
LiteQuery.Prepare; // Prüfen des SQL und Vorbereiten der Abfrage auf dem SQL-Server(SQL-Plan), Erzeugen der Parameter-Objekte in der Query.
LiteQuery.ParamByName('nnr').AsInteger := ... // Wenn der Parameter nicht vorhanden ist, wird NIL zurückgegeben und AsInteger führt zur Zugriffsverletzung.
...
LiteQuery.ExecSQL();

LiteQuery. fehlt bei ParamByName im orginalen Quelltext.

[jmich]

Habe jetzt im meinen Code alle Leerzeichen z.B ' ('+; entfernt.
Jetzt sehen diese z.B. so '('+ aus.

Danke für den Hinweis

[himitsu]

Zitat:

Delphi-Quellcode:

function *****.ParamByName(const Value: string): TParam;
begin
  Result := FindParam(Value);
  if Result = nil then Error;
end;

https://www.delphipraxis.net/210876-...ml#post1507798

Zitat:

LiteQuery. fehlt bei ParamByName im orginalen Quelltext.

stimmt :shock:



Zuviele Leerzeichen sollten aber kein Problem sein.
Zuwenige dagegen schon.

[jmich]

Hallo Blup,

werde deinen Tip beherzigen und verwenden.
Clear und LiteQuery.Prepare;

Im Originalcode auf mein Programmier-Pc
ist LiteQuery.ParamByName enthalten.

Danke