Anzahl von Datensätzen

[MarkusB]

Hi Rene!

Also die Abfrage funktioniert.

Viele Grüße
Markus

:gruebel:

[lume96]

Hab's mal kurz getestet und bei mir funktionieren die verschiedenen SQL-Statements :

SQL-Code:

/*Kommentar*/
select KundenNr,count(*)
from vertrag
group by KundenNr

gibt bei mir 'ne schöne Tabelle :
KundenNr--------count(*)
123-------------1
234-------------2

SQL-Code:

/* Kommentar*/
select count(*) from vertrag where KundenNr='234'

gibt bei mir 'ne schöne Tabelle :
count(*)
2

Das Problem liegt daher eher woanders.

Ich habs mit dem Borland SQL-Explorer durchgespielt, nicht in Delphi.

MfG
Lutz

[muenchner]

Das funktioniert bei mir auch!

Habe mich vielleicht verkehrt ausgedrückt.

ich möchte über die DBLookupComboBox einen Kunden anzeigen, und in einem anderen Feld (DBEdit)sollte die Anzahl der Verträge dieses Kundens sein.

Gruss Rene

[lume96]

Also, an die DBLookUpComboBox hängst Du 'ne DataSource als ListSource ran, die auf die KundenTabelle zurückgreift.
Als ListField gibst Du den Kundennamen an, als KeyField die KundenNr.

Als nächstes 'ne Query, 'nen Edit und 'nen Button auf den Form.
Den Button_OnClick event wie folgt gestalten :

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
   querystr : string;
begin
Query1.Close;
Query1.SQL.Clear;
querystr := 'select count(*) as Anzahl from Vertrag where KundenNr='''
+ DBLookupComboBox1.KeyValue + '''';
Query1.SQL.Add(querystr);
Query1.Open;
Edit1.Text := (Query1.FieldValues['Anzahl']);
Query1.Close;
end;

Das sollte so erst mal klappen, bleiben zwei Punkte :
1) Den ganzen Query1.open, etc... mit Try...except...end sicherer gestalten
2) Idealerweise müsste der obrige Code eher an einem 'SelectionChange' event der LookupCombo, damit sich das Edit Feld automatisch aktualisiert. Habe leider auf die Schnelle nichts Passendes gefunden.

Da kann Dir sicher jemand aus dem Forum weiterhelfen.

MfG
Lutz

[muenchner]

Hallo Lutz!

Super, es funktioniert.
Nochmals herzlichen Dank

mfg

Rene