sql araması yaparken progressbar eklemek

[onselder]

selamun aleykum
arkadaşlar tablomda 2000 den fazla kayıt var
where komutu ile arama yaptırırken buna nasıl progressbar ekleyebelirim

[pro_imaj]

Merhaba,

Sql ile yapmış olduğunuz arama işlemlerinin progresbar kullanacak kadar ağır çalışması sizin yapınızda sorun olduğunu gösterir.

Been 1.000.000 ile 5.000.000 kayıt arasında işlem hacmine sahip ve her bir veri tabanı ve her veri tanaında 30 ile 100 arasında alan var.

Yani uzun sözün kısası hocam sen yanlış bir denklem kurmuşsun bu yüzden senin sorgulama işlemin uzun sürüyordur.

Saygılarımla
Kolay gelsin.

[onselder]

yardımın için teşekkur ederim
tekrar inceleyeceğim
tekrar sağol

[pro_imaj]

Merhaba,

Rica ederim hocam ne demek.

eğer sorunu çözemezseniz yazarsanız yadrımcı olurum.

Not: SQL ile arama yaparken yapılan sorgunun karmaşıklığı ve birleştirilme veri tabanlarıda göz önünü alınarak sorgunun süresinde uzama olağandır. Ama Sizin çok karmaşık bir yapınız olmadığını düşünerek bu cevabı verdim. Bu arada, Not kısmı açıklamadan uzun olmuş

Saygılarımla
Çalışmalarınızda başarılar.
Kolay gelsin.

[aLonE CoDeR]

Rx paketinde bunun için bir bileşen var, inceleyebilirsiniz..
Kolay gele..

[onselder]

rx paketinde ki bilşenin adı nedir? veya başka bir yolunu bilen arkadaş var mı? sorgumu düzelttim artık 1 saniyede açılıyor. ama öğrenmek için soruyorum arkadaşlar

[sadettinpolat]

sorgunun ne kadar surecegini bilemediigimiz icin bi progresbar koymak biraz zor bir is ama onun yerine sorgu suresince ekrana bi animasyon cikartmak uygun olabilir

mesela şöyle birşey yazılarıbilir

Kod: Tümünü seç

frmAnimasyon := tfrmAnimasyon.Create(nil)
frmAnimasyon.Show
Sorgu1.open;
frmAnimasyon.Close
frmAnimasyon.free;

sorgu suresince ekranda bi animasyon görünmüş olur.

[fduman]

sadettin o sorgu open'da çakılırsa senin animasyon ekranda habire dönüp durur yaw.

Şöyle yapsak.

Kod: Tümünü seç

with tfrmAnimasyon.Create(nil) do
try
  Show;
  Sorgu1.open;
finally
  free;
end;

[aLonE CoDeR]

Rx paketinde, DBAvare tabında DBProgress adında bu iş için yazılmış bir bileşen var.Demosunda örneği de mevcut..

Kolay gele..

[sadettinpolat]

@coderlord, haklısın finally bloguna almak lazım

@bLue aLonE, yanılmıyorsam bahsettigin bilesen sadece kendisine baglanan veriye gore progressbarın pozisyonunu değiştiriyor olması lazım.

[aLonE CoDeR]

Kendisine bağlanandan kastın nedir, sadece progress bağlıyorsun..

[sadettinpolat]

yani tablodaki adet alanını bu progrese bağlayınca ilgili kayıttaki adet 50 ise progresbarın pozisyonu 50 ye geliyor, 45 ise 45 e gibi... ben bi ara kullanmıştım ve bu şekilde olduğunu hatırlıyorum.

[aLonE CoDeR]

Farklı bileşenlerden bahsediyoruz gibime geldi;

Kod: Tümünü seç

  TDBProgress = class(TComponent)
  private
    FActive: Boolean;
    FStartTime: Longint;
    FTimer: TRxTimer;
    FWaitCursor: TCursor;
    FGauge: TControl;
    FMessageControl: TControl;
    FStreamedValue: Boolean;
    FGenProgressCallback: TObject;
    FQryProgressCallback: TObject;
    FOnMessageChange: TOnMessageChange;
    FOnPercentChange: TOnPercentChange;
    FOnProgress: TOnProgressEvent;
{$IFDEF WIN32}
    FTraceFlags: TTraceFlags;
    FTraceCallback: TObject;
    FTrace: Boolean;
    FOnTrace: TOnTraceEvent;
    FSessionName: string;
    FSessionLink: TObject;

[sadettinpolat]

evet farklı bileşenlerden bahsediyormuşuz.
rx'i indirip kurdum ilgili bileşenide biraz kurcaladım ama tam olarak nasıl çalıştığını anlamadım. ornekler var demişsiniz ama benim indirdiğim dosyada ornekler mevcut değildi.

incelediğim kadar arka plandaki sql leri trace edip ona göre hareket ediyor.

benim merak ettiğim, işlem süresi 5 dakika sürecek bir query1.open komutunda nasıl bir tepki verdiği. ufak bir örnek verebilirseniz sevinirim.

[aLonE CoDeR]

Evet aynen öyle, trace ederek yapıyor bu işi, detaylı olarak inceleme fırsatım olmadı gerçi.. Arkadaşın birisi bunu yapmıştı daha önce, bi sorayım hele...