[Interbase] GetRecordCount

[Hansa]

Hi,

die Hinweise waren hilfreich. Sharkys Methode sieht am besten aus, aber leider ging sie nicht. Enweder wird COUNT verwendet, oder ein "," und die einzelnen Feldnamen. Gemischt scheint das leider nicht zu gehen.

Wenn ich das ganze nun aber mit der Idee von Lemmy irgendwie mische und noch meinen eigenen Senf dazu gebe, so wird der Brei nicht verdorben.

Delphi-Quellcode:

procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
  AnzDS.Close;
  AnzDS.ParamByName('ID_MASTER').AsInteger := MasterDS.FieldByName ('ID').AsInteger;
  AnzDS.SelectSQL.Text := 'SELECT COUNT (ID) AS ANZAHL FROM DETAIL WHERE ID_MASTER= :ID_MASTER';
  AnzDS.Open;
  Label1.Caption := 'Anzahl : '+  AnzDS.FieldByName ('ANZAHL').AsString;
end;

Tja, so funktioniert es jetzt. Ein zusätzliches DataSet ist in dieser Variante anscheinend auf jeden Fall nötig.

@Admin: was ist bloß mit dem Server los? Den Beitrag hier hatte ich jetzt über eine St. in die Zwischenablage gerettet. Und das ohne 1&1.