dbCheckbox und dbGrid mit Abfrage

[mkinzler]

Das glaube ich auch. Ein Klick auf die Checkbox löst eine Änderung des Feldes in der Datenbank aus. Hierfür wird ein SQL Statement benötigt, welches dies tut:

SQL-Code:

UPDATE TABELLE
SET
  FELD = :FELD
WHERE
  ID = :Old_ID;

[Dejan Vu]

Zitat von blutigerAnfänger:

Woran kann es dann noch liegen, daß die Checkbox nicht reagiert.

Zitat von Dejan Vu:

...das die ganze Query nicht änderbar ist....

Du kannst nirgens etwas ändern. Im Grid nicht. In der Checkbox nicht. Nirgens. Nowhere. Ninguna parte. Nessuna. Nigzie. Hvergi. Inon.
Eine IBQuery kann Daten nur lesen. Zum Ändern ist sie zu blöd. Daher musst Du ihr sagen, wie sie Daten zu ändern, einzufügen oder zu löschen hat.

Andere RDBMS können das (meist) von alleine. FB anscheinend nicht.

[blutigerAnfänger]

Zitat von Dejan Vu:

Du kannst nirgens etwas ändern. Im Grid nicht. In der Checkbox nicht. Nirgens. Nowhere. Ninguna parte. Nessuna. Nigzie. Hvergi. Inon.
Eine IBQuery kann Daten nur lesen. Zum Ändern ist sie zu blöd. Daher musst Du ihr sagen, wie sie Daten zu ändern, einzufügen oder zu löschen hat.

Genau. Siehe Beitrag #78.

[Dejan Vu]

Du hast bisher mit keinem Wort erwähnt, das man die Daten generell nicht ändern kann, vermutlich, weil Dir das noch nicht einmal aufgefallen ist. Und ich wollte damit nur zum Ausdruck bringen, das es nicht an der Checkbox liegt und das man das Problem mit einer TIBTable lösen kann. Sofort und ohne Umwege. Daher liegt es an etwas, was ein TIBDataset und eine TIBQuery nicht kann, ein TIBTable aber schon.

[blutigerAnfänger]

Zitat von Dejan Vu:

Du hast bisher mit keinem Wort erwähnt, das man die Daten generell nicht ändern kann, vermutlich, weil Dir das noch nicht einmal aufgefallen ist.

Aufgefallen ist es mir schon, ich ging bloß davon aus, daß der Inhalt der Tabelle unabänderlich ist. Und die Änderung des Checkboxzustandes innerhalb der Checkbox abläuft, bis diese Änderung der Tabelle (über Update im Click event) mitgeteilt wird. Das ist ja auch der Weg von mkinzler, wenn ich das richtig verstanden habe.
Ich befürchte nur, daß auch dieser einleuchtende Weg keine Änderung des Problems bringt, weil die Checkbox keine Zustandsänderung erlaubt.

Zitat von Dejan Vu:

Und ich wollte damit nur zum Ausdruck bringen, das es nicht an der Checkbox liegt und das man das Problem mit einer TIBTable lösen kann. Sofort und ohne Umwege. Daher liegt es an etwas, was ein TIBDataset und eine TIBQuery nicht kann, ein TIBTable aber schon.

Du machst mich neugierig und läßt mich verhungern??

[Dejan Vu]

Zitat von blutigerAnfänger:

Du machst mich neugierig und läßt mich verhungern??

Huuhhaaahar.
Eigentlich steht doch alles da. TIBUpdateSQL, ModifySQL usw. Google gibt es auch noch: "TIBQuery readonly".

[blutigerAnfänger]

Also IBTable, soweit hab ich es mittlerweile herausgefunden, ist eine Komponente die den Umstieg von BDE auf SQL-Datenbanksysteme erleichtern soll. Worin allerdings die Fähigkeit bestehen soll das anstehende Problem zu lösen ist mir unverständlich.

[mkinzler]

Bei Verwendung der IBTable wird das benötigte Update-Statement automatisch erzeugt. Dann funktioniert es!
Als Alternative kann man beim IBDataSet bzw. im UpdateObject eines IBQuery das Staement händisch eintragen. In allen Fällen funktioniert die Checkbox dann!

[blutigerAnfänger]

Ich habe mich für IBDataset entschieden. Daraufhin ein Checkbox click event erzeugt. Mit der IBCheckbox verknüpft, kompiliert(funktioniert), und jetzt bekomme ich mehrere Fehlermeldungen. Achso, mittlerweile liegt zu Versuchszwecken ein zweites Dataset auf der Form.

Delphi-Quellcode:

procedure TForm1.AbfrageClick(Sender: TObject);
begin
  with IBDataSet1 do
  begin
    Active := False;
    SelectSQL.Clear;
    SelectSQL.Text :=('Select * from Tabelle ');
    Active := True;
  end;
end;

procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
    if DBCheckBox1.Checked = true then
      begin
        with IBDataSet1 do
         begin
          Close;
          ModifySQL.Clear;
          ModifySQL.Text :=('UPDATE Tabelle SET FELD = :FELD WHERE ID = :ID1');
          Open;
         end;
      end;
end;

Nach Aufruf des Abfrageclicks erscheint Fehlermeldung Stackoverflow. Mit F7 durchgeklickt wurde schnell klar, der Checkbox1Click wird bereits aufgerufen bevor der Abfrageclick beendet wird. in der Datenbank sind 15 Datensätze, das CheckboxClick event wurde 15 mal aufgerufen.

Mit IBDataset2 im Checkboxclick event erscheint Fehlermeldung EmptySQL.

Also langsam verzweifele ich.

[mkinzler]

Die onClick-Methode ist unnötig

Delphi-Quellcode:

procedure TForm1.AbfrageClick(Sender: TObject);
begin
    IBDataSet1.SelectSQL.Text :='Select * from Tabelle;';
    iBDataSet1.ModifySQL.Text := 'UPDATE Tabelle SET FELD = :FELD WHERE ID = :old_ID;';
    IBDataSet1.Open;
end;