Berechnetes Feld in SQL einbauen

**Smiley**

Hallo Community
Könnt ihr mir bei folgendem Problem helfen.

Ich habe
eine Tabelle Kunden mit den Feldern Nachname,Vorname,Ort,Gebiet
eine Tabelle Gebiete mit den Feldern Nr,Name
eine Tabelle KuMi mit KdNr und AngNr

In der KuMi (Kunden/Mitarbeiter) Tabelle sind gleiche KdNr mit mehreren AngNr eingetragen 1:n

Jetzt möchte ich alle Kunden aus Gebiet lGebiet (Übergabewert), auflisten und alle AngNummern die diesem Kunden zugeiesen sind , in der Tabelle KuMi, in ein Berechnetes Stringfeld eintragen, mit Komma getrennt.

Die Ausgabe eines Datensatzes sollte dann etwa so aussehen:
Mustermann Max Wuestenrode 12,45,22

Im Moment läuft die Ausgabe mit folgender SQL-Abfrage in DM.qWork:

markieren

Code:

			'Select Nachname,Vorname,Ort,Gebiet from Kunden Where Gebiet = ' + IntToStr(lGebiet) + 'and passiv=false order by Nachname';

grdKunde.Columns[4].Visible := False; // Gebiet ausblenden

Jetzt möchte ich dort einbauen, dass ich alle Angestellten in einem String, als berechnetes Feld einfüge.
Die Calkulation des Strings könnte im Ereignis OnCalcFields gemacht werden.

In OnCalcFields dann:
Übergabeparameter lKdNr : Integer;

markieren

Code:

			DM.qW2.SQL.Text :='Select KdNR,AngNr from KuMi Where KdNr='+IntToStr(lKdNr);

DM.qW2.Open;

DM.qW2.First;

lAngString:='';

While not DM.qW2.Eof Do

    begin

      if lAngString='' then

      lAngString:=lAngString + DM.qW2.FieldByName('AngNr').AsString

      else

      lAngString:=lAngString + ','+DM.qW2.FieldByName('AngNr').AsString;

      DM.qW2.Next;

    end;

Das lAngString soll dann im DBGrid grdKunde dem Kalkulierten Stringfeld zugewiesen werden.

Frage:
Wie kann ich das Kalkulierte Feld in die SQL-Anweisung einbringen für das grdKunden
oder eine neue Query qGebietsListeK anlegen und diese anzeigen. (Möglichst im Code (SQL)).
Wie mache ich es am Besten für jeden Kunden in DM.qWork alle AngNummer aus der KuMi Liste in die GebietsListe einzubauen (lAngString).

Berechnetes Feld in SQL einbauen

Berechnetes Feld in SQL einbauen

Forumregeln