SQL'de gereksiz döngü

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
hido
Üye
Mesajlar: 268
Kayıt: 29 Mar 2014 04:32

SQL'de gereksiz döngü

Mesaj gönderen hido »

Merhaba.
Tesadüfen test ederken fark ettim, databasede sadece bir satır olmasına rağmen, verileri çekerken showmessage ile test ettim fakat showmessage dört kez mesaj verdi, veri tabanında sadece bir kayıt olmasına rağmen dört kez döngüye girmesini nasıl çözebilirim???

Kod: Tümünü seç

procedure TForm3.Ayarlarim(Sender: TObject);
begin
  try
    with Ayarlar do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From ayar');
      Prepared := True;
      Open;
      if Not IsEmpty then 
      begin

        SHOWMESSAGE('Test');

      end;
    end;
  finally
  end;
end;
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: SQL'de gereksiz döngü

Mesaj gönderen freeman35 »

Ben with do ... kullanmam hiç bir zaman. "IsEmpty" kimin ve neye göre değişiyor?
TQuery.Open;
TQuery.First;
While not TQuery.EOF do begin
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: SQL'de gereksiz döngü

Mesaj gönderen ihalilcoban »

freeman35 yazdı:Ben with do ... kullanmam hiç bir zaman. "IsEmpty" kimin ve neye göre değişiyor?
TQuery.Open;
TQuery.First;
While not TQuery.EOF do begin
Aynen katılıyorum. While Do döngüsüyle kontrol daha sağlam oluyor. Tablonun son kaydına gelince döngü sona eriyor. Ben de While Do kullanıyorum.
Kullanıcı avatarı
hido
Üye
Mesajlar: 268
Kayıt: 29 Mar 2014 04:32

Re: SQL'de gereksiz döngü

Mesaj gönderen hido »

Sanırım yanlış anlaşıldım veya anlatamadım, databasede tek satır var with do döngü ile ne ilgisi var, (While not TQuery.EOF do) da onlarca döncüye giriyor...
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: SQL'de gereksiz döngü

Mesaj gönderen freeman35 »

Haklısın kusura bakma, tecrübelerimi paylaşmak gibi bir alışkanlığım varda. Gönderdiğin kodda zaten döngü yok, döngüyü sormuşsun bende döngü kontrolü hakkında öneride bulundum.
TForm3.Ayarlarim burayı tetikleyen kodlarını kontrol et.
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Cevapla