Aus TTable etwas löschen Fehlermeldung für Query

[GoTo0815]

Ok jetzt läuft es!

Ich habe nach ExecSQL einfach die SQL.Text: wieder auf :

Delphi-Quellcode:

with Query_Suchen do
     begin
      active := false;
      sql.clear;
      sql.add('SELECT * FROM retouren');
      ParamCheck := true;
      active := true;
      open;
     end;

gesetzt und jetzt läuft es.

Vielen Dank für die Hilfe

Gruß

Hendrik

[marabu]

Hallo Hendrik,

du kannst nicht auf RecordsCount zugreifen, da es keinen geöffneten result set gibt. Außerdem würde ich keinen Timer für das Flushen der Daten verwenden. Schreibe den Code dafür doch einfach in die Behandlungsroutine für das Ereignis Application.OnIdle(). In einer Variable Flushed: Cardinal im private Abschnitt deiner Form merkst du dir den Zeitpunkt (GetTickCount) an dem du das letzte Mal die Daten weg geschrieben hast und in einer Variable Modified: Boolean merkst du dir nach jedem Insert, Update, Delete, dass ein neuerliches Flush nötig ist.

Delphi-Quellcode:

begin
  // ...
  if MessageDlg('Wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    BitBtn6.SetFocus;
    with Query_Suchen do
    begin
      SQL.Text := 'delete from retouren where Kunde = :Kunde';
      ParamByName ('Kunde').AsString := Edit7.Text;
      ExecSQL;
     end;
  end;
  Table_Retouren.Refresh;
  Label43.Caption := IntToStr(Query_Suchen.RowsAffected);
  // ...
end;

Grüße vom marabu