CommandText gibt keine Ergebnismenge zurück

[Nalincah]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(SQLDispatcher1.CreateSQL);
  ADOQuery1.SQL.Text := SQLDispatcher1.CreateSQL;
  try
    ADOQuery1.ExecSQL;
    ADOTable1.Refresh;
  except
    on e : exception do
    begin
      Memo1.Lines.Add(e.Message);
    end;
  end;
end;

Macht der nicht

Habs so gelöst:

Delphi-Quellcode:

ADOTable1.Active := false;
ADOTable1.Active := true;

Nicht sehr gut, oder?