Problem mit IF unf FieldbyName

[Delphi Code Anfänger]

Wieso das gleiche? Ich habe das ganze SQL Zeug nur durch ... ersetzt.

[DeddyH]

Delphi-Quellcode:

ADOQuery1.Active:=false;
ADOQuery1.Sql.Clear;
if CheckBox1.Checked then
  ADOQuery1.Sql.Add('...')
else
  ADOQuery1.Sql.Add('...');
AdoQuery1.Prepared := True;
AdoQuery1.ExecSQL;
ADOQuery1.Next; //wieso eigtl. Next?

Wenn Du es aber partout so lassen willst, dann pack das wenigstens in begin und end ein.

[Delphi Code Anfänger]

Ok Danke! Klappt. Was könnte man den anders machen?

[DeddyH]

Inwiefern?

[Delphi Code Anfänger]

Zitat:

Wenn Du es aber partout so lassen willst, dann pack das wenigstens in begin und end ein.

Weil du das geschrieben hast.

[DeddyH]

Delphi-Quellcode:

if not CheckBox1.Checked then
  begin
    ADOQuery1.Active:=false;
    ADOQuery1.Sql.Clear;
    ADOQuery1.Sql.Add('...');
    AdoQuery1.Prepared := True;
    AdoQuery1.ExecSQL;
    ADOQuery1.Next;
  end;
if CheckBox1.Checked then //else würde auch genügen
  begin
    ADOQuery1.Active:=false;
    ADOQuery1.Sql.Clear;
    ADOQuery1.Sql.Add('...');
    AdoQuery1.Prepared := True;
    AdoQuery1.ExecSQL;
    ADOQuery1.Next;
  end;

[Delphi Code Anfänger]

Ah Ok Danke!