DBCheckbox in DBGrid mit Datum

[Luca Haas]

Hi Leute, ich hätte gerne eine Checkbox über deren Aktiviereni (in einem DBGrid) das Datum und die Uhrzeit der Zeit des Klickens in die Datenbank einzutragen.
Also sprich wenn ich auf die Checkbox drücke soll die Checkbox Checked sein und im Feld daneben soll dann

Delphi-Quellcode:

Query1.FieldByName('Datum').AsDateTime := now

sein.


Bei mir sieht das ganze allerdings aktuell so aus:

Delphi-Quellcode:

procedure TAufgabenForm.DBCheckBox1Click(Sender: TObject);
begin
  if (not AufgabenQuery.IsEmpty) then
  begin
    AufgabenQuery.Edit;
    if DBCheckBox1.Checked = True then
      AufgabenQuery.FieldByName('Erledigtdatum').AsDateTime := now
    else
      AufgabenQuery.FieldByName('Erledigtdatum').Clear;
  end;
end;

und ich bekomme die Fehlermeldung "Query1: Operation bei geschlossener Datenmenge nicht ausführbar."

Kann mir jemand dabei helfen ? Ich hänge hier schon echt ewig dran, auch wenn ich mir sicher bin, dass es ein ganz dummer Fehler ist.

[Ulf346C]

Query1 wäre bei diesem Code aber eine andere Tabelle

gibt es vllt. eine Verknüpfung über Ereignisse zur Query "Query1"

[p80286]

Ich empfehle in solchen Fällen immer, sich von den DB..-Komponenten zu verabschieden und ein explizites Insert/Update - Statement abzusetzen.

und

Delphi-Quellcode:

if DBCheckBox1.Checked = True then

ist nicht optimal, besser ist

Delphi-Quellcode:

if DBCheckBox1.Checked then

Gruß
K-H

[Luca Haas]

Oh ne, also mit der Fehlermeldung wird die AufgabenQuery gemeint

[Luca Haas]

Zitat:

Zitat von p80286 (Beitrag 1386773)

Ich empfehle in solchen Fällen immer, sich von den DB..-Komponenten zu verabschieden und ein explizites Insert/Update - Statement abzusetzen.

und

Delphi-Quellcode:

if DBCheckBox1.Checked = True then

ist nicht optimal, besser ist

Delphi-Quellcode:

if DBCheckBox1.Checked then

Gruß
K-H

Habe ich übernommen, hat allerdings auch nicht wirklich weitergeholfen

[Ulf346C]

Zitat:

Zitat von Luca Haas (Beitrag 1386774)

Oh ne, also mit der Fehlermeldung wird die AufgabenQuery gemeint

dann prüfe doch erstmal zur Laufzeit ob die Query überhaupt offen ist

Delphi-Quellcode:

if not aufgabenquery.active then (Fehlermeldung)

[Luca Haas]

Danke Ufo, daran lags