silme kodu hatası

[EdaNuR]

arkadaşlar aşağıdaki kodta bana kayıt silerken eminmisiniz sorusunda evet te desem hayırda desem kaydı siliyor.. yanlışlık nerde acaba ?


procedure TFrmsecmen.BtnCikartClick(Sender: TObject);
begin
if MessageDlg('Kaydı Silmek İstediğinizden Emin misiniz?',mtCustom, [mbYes, mbNo], 0) = mrYes then
dm.Rehber.Close;
dm.Rehber.SQL.Clear;
dm.Rehber.SQL.Add('DELETE FROM secmen WHERE SQLNO='''+Edit11.Text+'''');
dm.secmen.ExecSQL;
showmessage('Kayıt Silindi');
end;

[naile]

if den sonra begin..end koymayı unutmuşsunuz, eğer koymazsanız if için if den sonra tek satır geçerli olur:

Kod: Tümünü seç

procedure TFrmsecmen.BtnCikartClick(Sender: TObject); 
begin 
if MessageDlg('Kaydı Silmek İstediğinizden Emin misiniz?',mtCustom, 
[mbYes, mbNo], 0) = mrYes then 
begin ////////////////
dm.Rehber.Close; 
dm.Rehber.SQL.Clear; 
dm.Rehber.SQL.Add('DELETE FROM secmen WHERE SQLNO='''+Edit11.Text+''''); 
dm.secmen.ExecSQL; 
showmessage('Kayıt Silindi'); 
end;/////////////////////
end;

[mrmarman]

Selamlar...

- Sorgu sonucunu begin/end bloğuna almayı unutmuşsunuz... Ondan değer mrYes ise sadece dm.Rehber.Close satırı işleme alınıyor veya gözardı ediliyor görüyor...

- Kodunuzu şimdi vereceğim şekilde güncelleyin...

- Bu arada gözüme çarpan bişi var... dm.Rehber üzerinde gerekli güncelleme yapılırken dm.secmen ExecSQL ediliyor... Özel bir nedeni yoksa gözden kaçmış olabilir dikkatli olalım...

Kod: Tümünü seç

procedure TFrmsecmen.BtnCikartClick(Sender: TObject); 
begin
  if MessageDlg('Kaydı Silmek İstediğinizden Emin misiniz?',mtCustom, [mbYes, mbNo], 0) = mrYes then 
  begin
    dm.Rehber.Close; 
    dm.Rehber.SQL.Clear; 
    dm.Rehber.SQL.Add('DELETE FROM secmen WHERE SQLNO='''+Edit11.Text+''''); 
    dm.secmen.ExecSQL; 
    showmessage('Kayıt Silindi'); 
  end;
end;

[naile]

Aynı anda

[mrmarman]

Aynen...

[EdaNuR]

Teşekkürler arkadaşlar sorun düzeldi