adoquery1.open progressbar hk

[metemete]

Adoquery1.open ile mssql serverda sorgu ile bilgi alması 5dk yı buluyor
bu süre yi progressbar ile gostermem mumkunmudur;?

[sabanakman]

Öncelikle süreyi kısaltmayı sağlayacak yolları zorlamanı öneririm ama progress işi mümkünse de öğrenmek iyi olurdu. Hiç birisi olmazsa bir avi ile bekletme diyaloğu hazırlamak (kum saati imlecinden daha şık olur ) kullanıcıya beklemesi gerektiğini sıkıcı olmayan bir yoldan bildirir.

[metemete]

böyle bir şey bir programda görmüştüm veritabanını acarken progressbarr ile o süreyi gosterıyodu, olmaması mumkun degıl bence
avi ile kandırmaca istemıyorum ayrıca zaman kısaltamam oyle olması gerekıyor.

bir bilen vardır mutlaka ??

[conari]

Jedi de Dbprogresbar var. bu işler için olabilir, kullanmadım. İncelemek lazım.

[metemete]

onu ınceledım o iş gormuyor. o field dakı degere gore gosterge gorevı yapıyor

[sabanakman]

Böyle bir örneğe nerede rastladınız biraz merak ettim doğrusu. Şöyle bir anılarımı gözden geçirince ben sanki hiç karşılaşmamışım gibime geliyor .

[conari]

Burda BDE ile ilgili bir şeyler konuşulmuş.
http://en.allexperts.com/q/Delphi-1595/ ... y-Open.htm

http://delphi.about.com/od/dbbde/a/batchprogress.htm

[Opt2000]

Selam,

Aşağıdaki linkte basit bir örnek var. Belki işinize yarar.

http://www.delphidunyasi.net/index.php? ... 1#msg21561

Kolay gelsin,
Bahadır Alkaç

[metemete]

evet bu işe yaradı.istedigim oldu cok tşklerr allah razı olsun

Kod: Tümünü seç

  //Önce kayıt sayısını bulmamız gerekiyor
  qryTest.SQL.Text := 'SELECT COUNT(*) AS KayitSayisi FROM TABLO';
  qryTest.Active := True;
  pbProgress.Max := qryTest.FieldByName('KayitSayisi').AsInteger;
  qryTest.Active := False;

  //qryTest'in ayarlarını yapalım
  qryTest.ExecuteOptions := [eoAsyncFetchNonBlocking];

  //qryTest'in sorgusunu hazırlayalım ve açalım
  qryTest.SQL.Text := 'SELECT * FROM TABLO';
  qryTest.Active := true;

  //Fetch işlemi yapılırken qryTest.RecordCount fetch edilen kayıt sayısını gösterir.
  //Buna göre qryTest.RecordCount = pbProgress.Max olana kadar fetch işlemi devam ediyor demektir
  //Fetch edilen data aynı zamanda işlemin ne kadarının bittiğini de gösterecektir.
  while qryTest.RecordCount <> pbProgress.Max do
    pbProgress.Position := qryTest.RecordCount;