ADO, Grid und SQL mit JOIN

[TPeterT]

Hallo!

Das Problem mit der Geschwindigkeit habe ich nun gelöst. Hatte die Datasource der Query beim Start zugeordnet.

Das Problem im Moment ist, dass keine Daten im Grid angezeigt werden.

Hier der Code:

Code:

procedure Tfrm_Main.Button2Click(Sender: TObject);
 var
   i      : Integer;
   RecNo  : Integer;
begin

      TableView_Vertraege.DataController.BeginFullUpdate;
      Q_Contract.First;

      i:=0;

      While not  Q_Contract.EOF do
      begin
        TableView_Vertraege.DataController.AppendRecord;

        TableView_Vertraege.DataController.Values[i, tvcVertragsgruppe.Index]   :=  
                           Q_Contract.Fieldbyname('DOCContractGroup_Name').AsString;

        i:=i+1;
        Q_Contract.Next;
      end;

      TableView_Vertraege.DataController.EndFullUpdate;

      //DS_Contract.DataSet := Q_Contract;
end;

Liebe Grüsse
Peter