Integer aus DataSet Laden

[WizoHulk]

Hallo
ich mal wieder.
habe da mal eine kleine Frage, und zwar wie kann ich den Inhalt vom DataSet in eine Variable mit dem Typ Integer/SmallInt laden.

Ich will ermitteln wieviele Records die Technikid 70 haben.

Was mache ich falsch?
ich denkl mal das ich was ganz simples übersehen hab.

Delphi-Quellcode:

function TForm2.GetRecordCount: SmallInt;
var
  LSql: String;
  LRecordcount : Smallint;
begin
  LSQl := 'Select count(technikid) from technik_image where technikid = 70';
  IBDSetThumbnail.SelectSQL.Text := LSql;
  IBDSetThumbnail.Open;
  IBDSetThumbnail.FetchAll;
  dsThumnails.DataSet := IBDSetThumbnail;
  LRecordcount := IBDSetThumbnail.RecordCount;
  Result := LRecordcount;

  showMessage(IntToStr(Result));

das Result gibt mir immer nur 1 raus.

[mkinzler]

Die Abfrage ergibt auch nur einen Datensatz!

Delphi-Quellcode:

LRecordcount := IBDSetThumbnail.Fields[0].Value;

[WizoHulk]

danke hatt geklappt,
aber wieso ..Field[0]...

[mkinzler]

Weil deine Abrage ein Feld zurückliefert und der Index bei 0 beginnt

[shmia]

Du kannst die Stückzahl auf 3 verschiedene Arten auslesen.
(Alternative 1 bis 3)
Beachte, dass ich im SQL die Feldumbenennung "as Anzahl" hinzugefügt habe.

Delphi-Quellcode:

function TForm2.GetRecordCount: SmallInt;
begin
  IBDSetThumbnail.SelectSQL.Text := 'Select count(technikid) as Anzahl from technik_image where technikid = 70';
  IBDSetThumbnail.Open;
  // Alternative 1
  Result := IBDSetThumbnail['Anzahl'];
  // Alternative 2
  Result := IBDSetThumbnail.Fields[0].AsInteger;
  // Alternative 2
  Result := IBDSetThumbnail.FieldByName('Anzahl').AsInteger;

  IBDSetThumbnail.Close;  // Query wird nicht mehr gebraucht

  showMessage(IntToStr(Result));