Tæl poster i Database

statusbar1.Panels[1].Text:=inTtoStr(Table1.RecordCount) +' Posteringer';

Men hvad skal jeg skrive som SQL sætning med mindre jeg ikke skal bruge en ADOQuery...

den måde det skal stå på er noget i denne stil

Antal Indlæg: 1000

i min statusline

Her er en funktion der burde kunne klare det. Tager en connection og et tabelnavn som argument og returnerer antal records.

function TForm1.RecordCount(aConnection : TADOConnection; const aTablename: string): integer;
var
Query : TADOQuery;
begin
result := 0;
Query := TADOQuery.Create(nil);
try
  Query.Connection := aConnection;
  Query.SQL.Text := format('select count(*) from %s',[aTablename]);
  Query.Open;
  if not Query.Eof then
    result := Query.Fields[0].AsInteger;
finally
  Query.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Count : integer;
begin
  Count := RecordCount(ADOConnection1,'kode');
  StatusBar1.SimplePanel := IntToStr(Count) + 'records';
end;

Fandt løsningen udfra stone's forslag og det virker :)

Men ellers mange tak for forslagene :)