VERİ TABANI......(UFAK BİR YARDIM)

gamze_m => VERİ TABANI......(UFAK BİR YARDIM) (7.06.2006 15:25:51)

Arkadaşlar...veitabanında diyelimki ali adında bir den fazla kayıt olsun.......
delpi de basit bir şekilde bu kayıtların sayısını bulan ve sayısını ekrana mesaj olarak veren program parçası .
bu konuda kodu yazmanızı bekliyorum şimdiden teşekkür....

ethan hunt => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 09:22:29)

SQL biliyomusun??

gamze_m => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 11:54:35)

soru sql kullanmadan olmalı...

mkaratas => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 13:59:20)

sql kullanmadan nasıl veri tabanına bağlanmayı düşünüyorsun.

ethan hunt => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 19:04:40)

quote:

Orjinalden alıntı: mkaratas

sql kullanmadan nasıl veri tabanına bağlanmayı düşünüyorsun.

harika bi cevap tebrikler

ISIS => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 19:37:34)

Veritabanının Paradox ya da dBase kökenli olduğunu varsaydım -
eğer bu ikisi de değilse, ODBC ile haberleştirebilirsin..
(tTable nesnesi ilgili veritabanını kullanabilir.)
Veritabanı bileşeninin adı Table1 olsun. (tTable nesnesi)
Aradığın bilgi tabloda "NickName" olsun (field name) .
Veritabanı bileşeninin Filtered özelliği ile sorgu yapabilirsin.

Filter içine "ali" olanlar yerine adı "ali" ile başlayanlar dersen :
Table1.Filter := 'NickName >='+''''+'ali'+'''' +' AND '+
'NickName <'+''''+'alizzzzzzzzzz'+'''';
Table1.Filtered:= true;
şeklinde minik bir numara çekebilirsin..

Eğer "ali" bilgisini formunda tanımladığın örn. edit1 alanından alacaksan :
Table1.Filter := 'NickName >='+''''+edit1.text+'''' +' AND '+
'NickName <'+''''+edit1.text + 'zzzzzzzzzz'+'''';
Table1.Filtered:= true;
olabilir..

Bunları bir button nesnesinin "onclick event"i içinde yazmalısın :
(edit1 içinde yazılı isim ile başlayanlar örn. "ali" => "ali, alican, aliye ...")

 
  procedure TForm1.SpeedButton1Click(Sender: TObject); 
  begin 
   
    Table1.Active := true; 
    DataSource1.Enabled := true; //bu nesne table1 ile bağlantılı olmalı 
      
     Table1.Filter := 'NickName >='+''''+edit1.text+'''' +' AND '+ 
                          'NickName <'+''''+edit1.text + 'zzzzzzzzzz'+'''';    
     Table1.Filtered:= true; 
   
     label1.Caption := 'Koşula uyan kayıt sayısı : ' + IntToStr(Table1.RecordCount); 
   
     //şimdi tabloyu eski haline getir : 
    Table1.Filtered:= false; 
   
  end;

Eğer yalnızca "ali" vb. olanların sayısı isteniyorsa
(.. ile başlayanlar yerine tam uyum => yalnızca örn. "ali" olanlar) :

 
  procedure TForm1.SpeedButton1Click(Sender: TObject); 
  begin 
   
    Table1.Active := true; 
    DataSource1.Enabled := true; //bu nesne table1 ile bağlantılı olmalı 
      
     Table1.Filter := 'NickName >='+''''+edit1.text+'''' ;    
     Table1.Filtered:= true; 
   
     label1.Caption := 'Koşula uyan kayıt sayısı : ' + IntToStr(Table1.RecordCount); 
   
     //şimdi tabloyu eski haline getir : 
    Table1.Filtered:= false; 
   
  end;

Burada büyük-küçük harf denetimi yapılmadı; belli bir standarda uyması gerekiyor..

gamze_m => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 19:56:01)

SGL KULLANMADAN NASIL YAPACAN HA......
BU YAZILANA ÇOK GÜLDÜM YAAAAAAAAAAAAAAAAAAAAA

BAK HALA GÜLÜYOUM......
bak ne diyim sana bilmiyorummm..(soru aynen şöye......sgl kullanmadan nasıl bir çözüm yolu bulursunuz....

yok anlamazsınız siz....
buarada yardımlar için teşekür.........

(veri tabanına o kadar da yabancı değiliz...saolun ..

gamze_m => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 20:23:24)

sql(SQL)

........

ethan hunt => VERİ TABANI......(UFAK BİR YARDIM) (8.06.2006 20:31:05)

paradox-delphi uyumlu bir veri tabanıdır sen bundan sonra devamlı delphi yazcaksan tabi küçük programlar olur bunlar bu ideal bir kullanıştır

yok ben kendimi geliştircem farklı diller öğrencem diyosan mesela vb,c,java gibi diller sql siz olmaz

sql şu yazılan paradoz kodlarından daha basit bir kullanımı vardır.

ve çok kullanıcılı programalr için idealdir
tercih senin ben şahsen her zman sql i önerim

gamze_m => VERİ TABANI......(UFAK BİR YARDIM) (9.06.2006 11:18:49)

sayın ...........;
pek tabi dedikleriniz çok doğru ama siz şunu anlamamışsınız...benim burda sorduğum şey bir kalıba göreydi...
aranan şey hangisinin daha iyi olduğu değildi...
elbette o zaman sql kullanımı daha kolay olurdu....
amaç bu soruyu sql kullanmadan cevabı oluşturmaktı yoksa ben ne diye sorayım ki???
neyse cevap bulundu zaten bu nu bu kadar anlamsızlaştırmaya gerek yok artık...
ÖEMLİ OLAN BİRBİRİMİZE YARDIMCI OLMAK.....(OLUR OLMADIK ZAMANLARDA UKALALIK TASLAMAK DEĞİL...

önerilerin için teşekkürler......

coderturks => VERİ TABANI......(UFAK BİR YARDIM) (9.06.2006 20:25:10)

quote:

Orjinalden alıntı: ethan hunt

paradox-delphi uyumlu bir veri tabanıdır sen bundan sonra devamlı delphi yazcaksan tabi küçük programlar olur bunlar bu ideal bir kullanıştır

yok ben kendimi geliştircem farklı diller öğrencem diyosan mesela vb,c,java gibi diller sql siz olmaz

sql şu yazılan paradoz kodlarından daha basit bir kullanımı vardır.

ve çok kullanıcılı programalr için idealdir
tercih senin ben şahsen her zman sql i önerim

+1

gamze_m => VERİ TABANI......(UFAK BİR YARDIM) (10.06.2006 00:07:42)

bu insanlar neden konu dışına çıkıp tahammül sınırını zorluyorlarki..

konunun açılış amacı dışında lütfen laf kalabalığı yapmayınız......

+1 +1 +1 +1 +1 +1 +1 +1 +1 +1(nedemekse???)