dbCheckbox und dbGrid mit Abfrage

[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;

[blutigerAnfänger]

Verdammt schwer zu begreifen, daß es keinen ClickEvent für Checkbox geben soll, da es ja erst beim Drücken auf die Checkbox eine Änderung geben sollte.

[blutigerAnfänger]

Zitat von Perlsau:

Zitat von blutigerAnfänger:

Es funktioniert. Danke, daß ihr Euch die Köpfe zerbrochen habt.

Und woran hat's jetzt gelegen?

Ich wollt, ich wüßte es.

Eigentlich wollte ich die Abfrage jetzt selber schreiben, denn bisher habe ich ja nur die gesamte Tabelle abgefragt.

Delphi-Quellcode:

procedure TForm1.AbfrageClick(Sender: TObject);
begin
    IBDataSet1.SelectSQL.Text :='Select * from Tabelle;';
    IBDataSet1.Open;
end;

Doch da stimmt etwas nicht.

Delphi-Quellcode:

procedure TForm1.AbfrageClick(Sender: TObject);
begin
StringNAME := '____';
StringBEZEICHNUNG := '%'; 
  with IBDataSet1 do
    begin      
      Active:=False;
      SelectSQL.Clear;
      SelectSQL.Add('Select * from Tabelle2 where NAME Like :text1 ');
      SelectSQL.Add('And Upper (BEZEICHNUNG) Like Upper (:text2) ');
      ParamByName('text1').asString := StringNAME;
      ParamByName('text2').asString := StringBEZEICHNUNG;
      Active:=True;
    end;
end;

Hiermit frage ich alle Datensätze, welche 4 Buchstaben haben, ab.
In der gesamten Tabelle2 sind einige tausend Treffer vorhanden, angezeigt werden 0, Null, nichts, gar nichts.
Ersetze ich die vier Unterstriche in StringNAME durch ein Prozentzeichen funktioniert die Abfrage, allerdings werden auch alle Datensätze angezeigt.
In der Vorversion dieses Programms hat doch noch alles funktioniert. Dort hatte ich nur die Felder Name und Bezeichnung. Hier sind es ja noch die Felder Combobox, und das ID Feld.
Woran liegt das?
Achso In der Vorversion war es eine Query.

[Sir Rufo]

Ich wiederhole jetzt nochmal, was hier schon mehrmals gesagt wurde:

Die Checkbox bekommt keinen OnClick-Event zugewiesen.

Dem IBDataSet1 werden die Eigenschaften für

• IBX.IBCustomDataSet.TIBDataSet.SelectSQL - wir wollen etwas lesen
• IBX.IBCustomDataSet.TIBDataSet.ModifySQL - wir wollen etwas ändern

zugewiesen (das sind die SQL-Statements)

Jetzt wird die einfach geöffnet und durch den Klick auf die CheckBox bekommt das DataSet diese Änderung automatisch (d.h. ohne irgendwelchen sonstigen Code von wem auch immer) mit und wird auch an die Datenbank zurückgeschrieben (ja, weil wir ja das ModifySQL angegeben haben).

[blutigerAnfänger]

Schade, daß keiner helfen kann.