Arşiv Anasayfa ASP.NET Makaleleri
Sayfalar: 1
Sayaç Gönderen: maliseren Tarih: 06 April 2007 17:17:27
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 Smile
Sitenin default giriş sayfası olarak index.aspx oluşturdum. bu sayfanın onload özelliği şöyle;
: onload
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:
: Fonksiyon Tanımlaması
public
    function FBaglantim:string;
fonksiyonun içeriği ise şöyle;
: Fonksiyon
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:
: anasayfa.aspx
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.
Ynt: Sayaç Gönderen: kocaturk Tarih: 07 April 2007 10:51:59
Eline sağlık teşekkürler
Ynt: Sayaç Gönderen: maximus51 Tarih: 13 May 2008 19:39:05
Valla çok güzel anlatmışsın hocam eline sağlık