Seltsames Verhalten bei ZEOS und SQL UPDATE?

[ryLIX]

Moin :hi:

Ich bin gerade etwas verwirrt :gruebel:
Folgendes geht vor sich:
Ich Möchte ein VARCHAR Feld in einer Tabelle ändern.
Dazu rufe ich ein modales Formular auf und lasse den User den Text eingeben.
Wenn er dann Ok klickt solls per SQL UPDATE in die Datenbank.
Nun kommt der Haken.
Hier der QT:

Delphi-Quellcode:

procedure TMain.btnChangeCommentClick(Sender: TObject);
begin
  if lbFSW.ItemIndex <> -1 then
  begin
  CommentForm.ShowModal;
  if CommentForm.ModalResult = mrOK then
      ShowMessage('UPDATE '+table+' SET COMMENT ="'+CommentUnit.Comment+'" WHERE FSW ="'+col+'"');
      ZQuery1.SQL.Clear;
      ZQuery1.SQL.Add('UPDATE '+table+' SET COMMENT ="'+CommentUnit.Comment+'" WHERE FSW ="'+col+'"');
      ZQuery1.Open;
      ZQuery1.Close;
    lbFSWClick(Self);
  end;
end;

Jetzt das wo es bei mir gerade Hakt.
Wenn ich ShowMessage nicht aufrufe bekomme ich eine "LogicalError/Missing Database" Exception.
Wobei die Message gernicht angezeigt wird wenn sie Aufgerufen wird!?! :wiejetzt:

Warum? :gruebel:
Ich verstehs gerade nicht.
Alle Variablen enthalten Daten und auch die Korrekten.
Mit dem Aufruf von ShowMessage wird auch alles richtig eingetragen.

[Bernhard Geyer]

UPDATES/INSERTS/DELETES werden mit Exec(SQL) und nicht mit Open ausgeführt. Open erwartet einen Resultcurser welcher bei diesen SQL-Befehlen nicht vorhanden ist.

[DeddyH]

Mal ein paar Änderungen eingebaut:

Delphi-Quellcode:

procedure TMain.btnChangeCommentClick(Sender: TObject);
begin
  if lbFSW.ItemIndex <> -1 then
  begin
  if CommentForm.ShowModal = mrOK then
    begin  
      //ShowMessage('UPDATE '+table+' SET COMMENT ="'+CommentUnit.Comment+'" WHERE FSW ="'+col+'"');
      ZQuery1.SQL.Text := 'UPDATE '+table+' SET COMMENT ="'+CommentUnit.Comment+'" WHERE FSW ="'+col+'"';
      ZQuery1.ExecSQL;
      lbFSWClick(Self);
    end;
  end;
end;

Wobei die Verwendung von SQL-Parametern noch einen Tick besser wäre ;)

[mkinzler]

Unterstützt den SqLite Parameter für Datenbankobjekte?

[ryLIX]

Aaah :wall:

Ungewohnt mit Delphi und SQL zu arbeiten ^^
Habs vorher nur mit PHP gemacht.
Danke für den Hinweis nu bin ein ganzes Ende schlauer geworden :)

@mkinzler
Bin ich mir nicht sicher.

:dp:

[DeddyH]

Ich meinte damit jetzt nicht "table", da ich nicht davon ausgehe, dass das funktioniert, aber da standen ja noch 2 Variablen. Also so:

Delphi-Quellcode:

ZQuery1.SQL.Text := 'UPDATE '+table+' SET COMMENT =:comment WHERE FSW =:col';
ZQuery1.ParamByName('comment').AsString := CommentUnit.Comment;
ZQuery1.ParamByName('col').AsString := col;

[ryLIX]

Funktioniert genauso gut.
Wo liegt der Unterschied?
Wäre diese Version "richtiger" oder schneller?
Oder optimaler für die spätere Wartung/Erweiterung?

[DeddyH]

Vor allem stellt sie sicher, dass das Format zum DBMS passt und SQL-Injection ausgeschlossen werden kann.

[mkinzler]

Und das wenn die Abfrage mehrmal ausgeführt wird, das Parsen und optimieren der Abfrage durch das DBMS entfällt ( in diesem Fall nicht, da Tabelle ja gesetzt werden muss).

[ryLIX]

Danke für die erklärungen :)

:cheer: