Schwierigkeitsgrad, aber wie!?

[Sharky]

Hai aerotech,

Zitat von aerotech:

....Ne kleine Anleitung wäre nett

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM quizfragen WHERE Schwierigkeit>=:s1 AND Schwierigkeit<=:s2';
  Query1.ParamCheck := True;
  Query1.ParamByName('s1').Value := 1;  // Alle Fragen von Schwierigkeitsgrad 1
  Query1.ParamByName('s2').Value := 2;  // bis Schwierigkeitsgrad 2
  Query1.Open;
end;

Gibt dir einen Bereich zurück. Wenn Du immer nur einen Schwierigkeitsgrad abfragen möchtest:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM quizfragen WHERE Schwierigkeit = :s1';
  Query1.ParamCheck := True;
  Query1.ParamByName('s1').Value := 1;  // Alle Fragen von Schwierigkeitsgrad 1
  Query1.Open;
end;