Merhaba,
Sitede bir sayaç örneği vermek istiyorum.
database : SAYAC.FDB
Tablo      : SAYACIM
Fileds      : SAYACID   (Float)
Not: SAYACID nin değerini hemen 0 yapın ki ileride null değere işlem yapmaya kalkmasın
Sitenin default giriş sayfası olarak index.aspx oluşturdum. bu sayfanın onload özelliği şöyle;

var
Baglanti:FbConnection;
FbKomut:FbCommand;
okuyucu:fbdatareader;
sql,user:string;
say:integer;
begin
baglanti := fbconnection.Create(FBaglantim);
baglanti.Open;
sql:='select * from SAYACIM';
fbkomut:=fbcommand.Create(sql, Baglanti);
okuyucu:=fbkomut.ExecuteReader;
while okuyucu.Read do
 begin
  say:=convert.ToInt32(okuyucu['SAYACID'].ToString);
  say:=say+1;

 end;
okuyucu.Close;
baglanti.Close;
sql := 'UPDATE SAYACIM SET SAYACID='+#39+say.ToString+#39;
baglanti.Open;
fbkomut := fbcommand.Create(sql, baglanti);
fbkomut.ExecuteNonQuery;
baglanti.Close;

FbConnection.ClearPool(baglanti);

  response.Redirect('anasayfa.aspx');

FbConnection.ClearPool(baglanti); kod satırını yazma sebebim ise aynı proje içinde başka veri tabanlarına bağlanmam ve transaction kullanmamam. Bunu yazmadığım zaman sorunlar çıkıyor.
burada kullandığım FBaglantim fonksiyonunu pas kısmındaki "public" kısmında şöyle tanımladım:

public
    function FBaglantim:string;

fonksiyonun içeriği ise şöyle;

function TWebForm1.fbconstr: string;
var
FbStr:FbConnectionStringBuilder;
begin
FbStr:=FbConnectionStringBuilder.Create;
Fbstr.Database:=Server.MapPath('SAYAC.FDB');
Result:=FbStr.ToString;
end;

index.aspx sayfasının onload kodlarında görülen

response.Redirect('anasayfa.aspx');

ile anasayfa.aspx e yönlendirmiş oluyoruz sayfayı.

anasayfa.aspx de ise herhangi bir yere Label koyup, anasayfa.aspx in onload olayına da:

var
Baglanti:FbConnection;
FbKomut:FbCommand;
okuyucu:fbdatareader;
sql,user:string;
say:integer;
begin
baglanti := fbconnection.Create(FBaglantim);
baglanti.Open;
sql:='select * from SAYACIM';
fbkomut:=fbcommand.Create(sql, Baglanti);
okuyucu:=fbkomut.ExecuteReader;
while okuyucu.Read do
 begin
  sayacLabel.Text:=(okuyucu['SAYACID'].ToString);
 end;
 baglanti.Close;
end;

yazıyoruz ve FBaglantim fonksiyonunu aynen bu sayfaya da ekliyoruz.
ve program bitti.

Valla çok güzel anlatmışsın hocam eline sağlık