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:

Zitat von blutigerAnfänger (Beitrag 1270739)

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

Zitat:

Zitat von Dejan Vu (Beitrag 1270626)

...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:

Zitat von Dejan Vu (Beitrag 1270784)

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:

Zitat von Dejan Vu (Beitrag 1270792)

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:

Zitat von Dejan Vu (Beitrag 1270792)

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:

Zitat von blutigerAnfänger (Beitrag 1270800)

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

:twisted: 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. :pale:

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

[Sir Rufo]

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

Die Checkbox bekommt keinen OnClick-Event zugewiesen.

Dem

Delphi-Quellcode:

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]

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.

[Sir Rufo]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1271089)

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.

Da kommt es ja auch zur Änderung, aber du arbeitest hier mit "data aware" Controls, und das heißt übersetzt, dass diese Controls sich ihres Datenkontextes bewusst sind. Nur darum funktioniert diese automatische Weitergabe der Werte. Wofür gibts du bei der Komponente wohl das DataSet und den Feldnamen an?

Wenn du dann während des Klicks an der Grundlage herumpfuschst (DataSet schließen) dann rummst eben im Gebälk.

[Jumpy]

Wenn du keine Checkbox im Grid betrachtest, sondern mal ein Edit-Feld. Wenn du da den Wert in dem Feld änderst gehst du doch auch davon aus, dass diese Änderung automatisch weitergegeben wird. Andernfalls müsstest du ja für jedes Edit-Felds eines Grids ein eigenes OnChange-Event erstellen.

[blutigerAnfänger]

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

[Perlsau]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1271485)

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

Und woran hat's jetzt gelegen?

[blutigerAnfänger]

Zitat:

Zitat von Perlsau (Beitrag 1272092)

Zitat:

Zitat von blutigerAnfänger (Beitrag 1271485)

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.

[blutigerAnfänger]

Schade, daß keiner helfen kann.

[mkinzler]

Zitat:

Hiermit frage ich alle Datensätze, welche 4 Buchstaben haben, a.

Nein, machst Du nicht. Denn die Abfrage ist falsch. Es Fehlt der Joker und wenn man ihn/sie ergänzen würde, würden auch nur 4 Unterstriche finden.

[himitsu]

Kennt das LIKE deines DBMS überhaupt die "_" als Platzhalter/Steuerzeichen?

Wenn ich im Explorer nach _._ suche, dann finde ich ja auch nicht alle Dateien, sondern nur die, welche wirklich _._ heißen, da es dort ja ?.? lauten müsste. :stupid:

[blutigerAnfänger]

Ich benutze Firebird 2.1. Die Vorgängerversion meines Programms, wo die Tabelle keine Felder Checkbox und ID haben, funktioniert ja auch mit dieser Abfrage.

Zitat:

Zitat von mkinzler (Beitrag 1274608)

Zitat:

Hiermit frage ich alle Datensätze, welche 4 Buchstaben haben, a.

Nein, machst Du nicht. Denn die Abfrage ist falsch. Es Fehlt der Joker und wenn man ihn/sie ergänzen würde, würden auch nur 4 Unterstriche finden.

Joker? Für einzelne Buchstaben werden doch Unterstriche verwendet, Wo fehlt da ein Joker?

[himitsu]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1274612)

Joker?

Der Platzhalter? (_ % * ? und was es sonst noch überall gibt)

[blutigerAnfänger]

Also Platzhalter in SQL habe ich nur _(Unterstrich) für EinzelZeichen und %(Prozentzeichen) für AlleZeichen in Verbindung mit like gefunden.
Jokerzeichen ist ein Zeichen in z.B. Access. In Firebird nur in Verbindung mit Select (Select * ). Irre ich mich?

[blutigerAnfänger]

Ich glaub ich habe den Grund dafür, daß die Abfrage nicht funktioniert.
Die in diesem Beitrag verwendete Testdatenbank wurde mit Insertex von IBExpert erstellt.
Die jetzt von mir verwendete Datenbank wurde über externalDatei Import erstellt. Und offenbar sind diese beiden Importmöglichkeiten Abfragetechnisch nicht miteinander kompatibel. Sehr schade.

[Dejan Vu]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1274621)

Also Platzhalter in SQL habe ich nur _(Unterstrich) für EinzelZeichen und %(Prozentzeichen) für AlleZeichen in Verbindung mit like gefunden. Jokerzeichen ist ein Zeichen in z.B. Access.

Joker in Access = Wildcard in SQL. Das weiß doch jeder. Bzw. kommt man sofort drauf.

Übrigens kann man die '%' und '_' auch umdefinieren, fest verdrahtet sind die nämlich nicht. Und dann gibt es noch die '[abc]', '[a-z]' und '[^A-Z]' Nomenklatur. Auch praktisch. Soviel zu deinem 'in SQL habe ich *nur*' ;-)