« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Silme  (Okunma sayısı 214 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Tahsin49

  • Üye
  • ***
  • İleti: 20
  • Rep: +0/-0
Silme
« : 26 Ocak 2012 02:33:24 »
iyi geceler

veri Tabanını silmek için aşağıdaki kodu kullanı yorum ancak!
silme işleminden vaz geçsemde veri tabanını siliyor bu husta yardım lütfen,


if MessageDlg('Kayıtların Tümü Silinecektir.'+#13+'Silme İşlemini Onaylıyormusunuz ?',
   mtConfirmation,[MByes,mbNo],0)=mrYes then
DM3.QUERY1.Close;
DM3.QUERY1.SQL.CLEAR;
DM3.QUERY1.SQL.Add('DELETE FROM ILCEPER.DB');
DM3.QUERY1.Prepare;
DM3.QUERY1.ExecSQL;
DM3.TILCEPER.Refresh;
begin
ShowMessage('Bütün tablolar hatasız temizlendi');
end;
Kayıtlı

Çevrimdışı Ali İbrahim

  • Üye
  • ***
  • İleti: 29
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #1 : 26 Ocak 2012 08:50:32 »
Ben bu şekilde yapıyorum;

if Application.MessageBox('Muayeneyi boşa almak istediğinizden eminmisiniz?','Uyarı',MB_ICONQUESTION+MB_YESNO) = IDYES then begin
       //Yapılmasını istediğin işlemler
 end else begin
   Exit;
end;


Çoğunlukla işe yarıyor...
Kayıtlı
Ne Mutlu Türküm Diyene !!!

Çevrimdışı sheshman

  • Kıdemli Üye
  • *****
  • İleti: 424
  • Rep: +6/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #2 : 26 Ocak 2012 09:23:06 »
Then ile biten her cümleden sonra Begin ve End; kullanmayı alışkanlık haline getirin yoksa bu tür hatalar ile çok karşılaşırsınız.
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.

Çevrimdışı sheshman

  • Kıdemli Üye
  • *****
  • İleti: 424
  • Rep: +6/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #3 : 26 Ocak 2012 09:52:29 »
ayrıca db de tablo içindeki verilerin gerçekten silinip silinmediğini kontrol etmeden kullanıcıya Silindi şeklinde mesaj verdirmek pek doğru değil. Onu da kontrol ettirmelisin.
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.

Çevrimdışı maydin60

  • Kıdemli Üye
  • *****
  • İleti: 76
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #4 : 28 Ocak 2012 18:48:54 »
if MessageDlg('Kayıtların Tümü Silinecektir.'+#13+'Silme İşlemini Onaylıyormusunuz ?',
   mtConfirmation,[MByes,mbNo],0)=mrYes then

Begin
try
   DM3.QUERY1.Close;
   DM3.QUERY1.SQL.CLEAR;
   DM3.QUERY1.SQL.Add('DELETE FROM ILCEPER.DB');
   DM3.QUERY1.Prepare;
   DM3.QUERY1.ExecSQL;
   DM3.TILCEPER.Refresh;

 if  (DM3.QUERY1.IsEmty) and (DM3.QUERY1.recordcount=0 )then
  ShowMessage('Bütün tablolar hatasız temizlendi');
except
raise;
end else
Begin
  ShowMessage('Silinme işlemi başarısız');
end;
end;
« Son Düzenleme: 28 Ocak 2012 18:49:40 Gönderen: maydin60 »
Kayıtlı
Nokta Kadar Menfaat için Virgül Kadar Eğilme...

Çevrimdışı sheshman

  • Kıdemli Üye
  • *****
  • İleti: 424
  • Rep: +6/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #5 : 28 Ocak 2012 21:03:49 »
Alıntı yapılan: maydin60 - 28 Ocak 2012 18:48:54
if MessageDlg('Kayıtların Tümü Silinecektir.'+#13+'Silme İşlemini Onaylıyormusunuz ?',
   mtConfirmation,[MByes,mbNo],0)=mrYes then

Begin
try
   DM3.QUERY1.Close;
   DM3.QUERY1.SQL.CLEAR;
   DM3.QUERY1.SQL.Add('DELETE FROM ILCEPER.DB');
   DM3.QUERY1.Prepare;
   DM3.QUERY1.ExecSQL;
   DM3.TILCEPER.Refresh;

 if  (DM3.QUERY1.IsEmty) and (DM3.QUERY1.recordcount=0 )then
  ShowMessage('Bütün tablolar hatasız temizlendi');
except
raise;
end else
Begin
  ShowMessage('Silinme işlemi başarısız');
end;
end;

yani :)
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.

Çevrimdışı maydin60

  • Kıdemli Üye
  • *****
  • İleti: 76
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #6 : 30 Ocak 2012 15:01:46 »
Neden güldün şişman
Kayıtlı
Nokta Kadar Menfaat için Virgül Kadar Eğilme...

Çevrimdışı sheshman

  • Kıdemli Üye
  • *****
  • İleti: 424
  • Rep: +6/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #7 : 30 Ocak 2012 15:12:19 »
o sırada örnek kod yazıyordum gönder tuşuna bastığımda senin kodu gördüm o yüzden yani dedim güldüm, sorunmu var ? gülmeyelim mi ?
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.

Çevrimdışı maydin60

  • Kıdemli Üye
  • *****
  • İleti: 76
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #8 : 30 Ocak 2012 15:17:34 »
yok kardeş sıkıntı yok...
SORUN da yok...
Cevap verme hakkı herkesin var tabiki..
Kayıtlı
Nokta Kadar Menfaat için Virgül Kadar Eğilme...

Çevrimdışı Tahsin49

  • Üye
  • ***
  • İleti: 20
  • Rep: +0/-0
Ynt: Silme
« Yanıtla #9 : 30 Ocak 2012 19:03:24 »
cevap için teşekkürler
 ancak kod evete cevap vermiyor hayıra cevap veriyor denedim sonuç alamadım
else  de hata veriyor
Kayıtlı

Çevrimdışı sheshman

  • Kıdemli Üye
  • *****
  • İleti: 424
  • Rep: +6/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #10 : 30 Ocak 2012 22:38:24 »
maydin'in kodu doğru, sorunsuz çalışması lazım ama şunu da deneyebilirsin;

Kod: (delphi) [Seç]
var cvp:word;
begin
  cvp:=Application.MessageBox('UYARI : Kaydı Silmek İstediğinize Eminmisiniz ?',
                            'Kayıt Silme',
                            MB_YESNO+
                            MB_ICONEXCLAMATION+
                            MB_DEFBUTTON1+
                            MB_SYSTEMMODAL);
  if cvp=IDYES then
begin
   DM3.QUERY1.Close;
   DM3.QUERY1.SQL.CLEAR;
   DM3.QUERY1.SQL.Add('DELETE FROM ILCEPER.DB');
   DM3.QUERY1.Prepare;
   DM3.QUERY1.ExecSQL;

   DM3.QUERY1.Close;
   DM3.QUERY1.SQL.CLEAR;
   DM3.QUERY1.SQL.Add('SELECT * FROM ILCEPER.DB');
   DM3.QUERY1.open;
if (dm3.query1.recordcount>=1) then
begin
//silinemedi hatası ver
end
else
begin
//silindi mesajı ver
end;
end
else
begin
//birşey yapma
end;
« Son Düzenleme: 30 Ocak 2012 22:48:14 Gönderen: sheshman »
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.

Çevrimdışı Tahsin49

  • Üye
  • ***
  • İleti: 20
  • Rep: +0/-0
Ynt: Silme
« Yanıtla #11 : 31 Ocak 2012 22:26:49 »
eline ve emeğine sağlık
kod çalışıyor

kodun
raise;
end else   kısmında hata vardı düzelttik
tek tek silme sıkıntısından kurtulduk.
sonsuz saygı ve sevgiler.
Kayıtlı

Çevrimdışı sheshman

  • Kıdemli Üye
  • *****
  • İleti: 424
  • Rep: +6/-0
  • Cinsiyet: Bay
Ynt: Silme
« Yanıtla #12 : 01 Şubat 2012 10:45:02 »
enteresan, maydin'in kodunu denedim hata vermeden çalıştı, çözdüyseniz sorun yok
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
Sayfa: [1]   Yukarı git
« önceki sonraki »