tablodaki kayıt sayısını bulma

[mussimsek]

Label1.Caption := Query1.Fields[0].AsString;

Kolay gelsin.

[mymenis]

Edit1.Texte girmiş olduğum 'Ahmet' adlı kişinin Table de kaç tane olduğunu(Rakamla) nasıl bulabilirim.

[Glen]

Edit1.Texte girmiş olduğum 'Ahmet' adlı kişinin Table de kaç tane olduğunu(Rakamla) nasıl bulabilirim.

SELECT COUNT(*) FROM TABLE
WHERE ADI = :ISIM

parameters.parambyname('ISIM').value := Edit1.text;

active := true;

[mymenis]

SQL komutlarıyla değilde normal delphi komutlarıyla nasıl yazabilirim.
Mesela Label1 e Edit1.Text de girdiğim bir ifadenin tablede kaç adet olduğunu yazmak istiyorum.

[Uğur1982]

slm..

SQL ile niye yaptırmıyorsun + daha hızlı...
Bu stil yavaş olacaktır ama işini görür...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var Kisi: integer;
begin
  if Table1.Active=False Then Table1.Active=True;
  kisi := 0;
  while not Table1.Eof do
  begin
    if Table1.FieldByName('AD').AsString = Edit1.text then
      Kisi := Kisi + 1;
    Table1.Next;
  end;
ShowMessage('Aradığınız kişi sayısı' + IntToStr(Kisi));
end;

iyi günler...