Problem mit checkboxen

[DeddyH]

Zitat:

Zitat von Jack23

Nur wie bekomme ich das dann aus der Datenbank abgefragt?

Mittels einer Query-Komponente, der Du das SQL zuweist:

Delphi-Quellcode:

with Query do
  begin
    Close;
    SQL.Text := 'SELECT * FROM Tabelle WHERE text=:text';
    ParamByName('text').AsString := sText;
    Open;
  end;

[Jack23]

Sorry aber ich verstehe das ganze noch nicht. Wo muss denn die

Delphi-Quellcode:

with Query do
  begin
    Close;
    SQL.Text := 'SELECT * FROM Tabelle WHERE text=:text';
    ParamByName('text').AsString := sText;
    Open;
  end;

hin?

[DeddyH]

Anstelle des ShowMessage. Dabei bin ich davon ausgegangen, dass die Query auch "Query" heißt.

[Jack23]

Meinst du das so?

Delphi-Quellcode:

var Boxes: array[0..3] of TCheckbox; //Array definieren
    sText: string;
    i: integer;
begin
  //Array belegen
  Boxes[0] := CheckBox1;
  Boxes[1] := CheckBox2;
  Boxes[2] := CheckBox3;
  Boxes[3] := CheckBox4;
  //String initialisieren
  sText := '';
  //Anhand des Zustandes String zusammenbauen mit Leerzeichen als Trenner
  for i := Low(Boxes) to High(Boxes) do
    if Boxes[i].Checked then
      sText := sText + Boxes[i].Caption + #32;
  //letztes Leerzeichen löschen
  if Length(sText) > 0 then
    Delete(sText,Length(sText),1);
  //nur zum Testen, ggf. in SQL-Statement einfügen
  with Query do
  begin
    Close;
    SQL.Text := 'SELECT * FROM tabellea WHERE text=:text';
    ParamByName('text').AsString := sText;
    Open;
  end;
  end;

Dann sagt er aber Undefinierter Bezeichner: 'ParamByName'

[DeddyH]

Du hast aber eine TQuery auf der Form?

[Jack23]

Eine ADO Query. Die heißt Query.

[DeddyH]

Da geht das etwas anders.

Delphi-Quellcode:

  with Query do
  begin
    Close;
    SQL.Text := 'SELECT * FROM tabellea WHERE text=:text';
    Parameters.ParamByName('text').DataType := ftString;
    Parameters.ParamByName('text').Value := sText;
    Open;
  end;

[Jack23]

Ah ok danke. Nur eine Frage noch. Wo kann ich den Wert für die ckeckboxen definieren.

Weil wenn ich das jetzt test kommt die Meldung: Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben.

[DeddyH]

In meinem Beispiel habe ich die Werte einfach in die Caption geschrieben (siehe Anhang).

[Jack23]

Hm geht leider nicht ich bekomme immer noch die gleiche Meldung wie oben beschrieben.