Datensätze Zählen klappt nicht ! Finde Fehler nicht.

[Sharky]

Hai wlfmario,

kann es sein das Du dem DataSet IBKunde über den Feldeditor (rechter Mausklick auf die Komponente) Felder zugewiesen hast?
Wenn ja wäre dies nämlich die Erklärung für den Fehler. Wenn im Feldeditor Einträge vorhanden sind erwartet das DataSet diese auch bei jeder SELECT-Abfrage und giebt genau diese Felder zurück.

Ich würde an deiner Stelle eine extra Funktion in deinem DataModule erzeugen welches Dir die Anzahl der Datensätze aus einer Tabelle zurückgibt:

Delphi-Quellcode:

function TDM.TableCount(aTable: string): integer;
begin
  Result := -1;
  with TIBQuery.Create(nil) do
  begin
    try
      Database := IBDataBase1;
      Close;
      SQL.Text := Format('SELECT Count(*) FROM %s', [aTable]);
      Open;
      Result := Fields[0].AsInteger;
    finally
      Free;
    end;
  end;
end;

Diese Funktion kannst Du dann in deiner Form benutzen.

Delphi-Quellcode:

procedure TFilmFact.FormActivate(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := Format ('Kunden Gesammt: %d',[DM.TableCount('kunde')]);
end;