Tum kayitlari silme

[dtgb]

merhaba arkadaslar ms acces veritabanını kullanarak bir program yazdım
tablomdaki tum kayıtları dongu kurmadan silebilirmiyim?

[rsimsek]

Kod: Tümünü seç

delete from tablo_adi

ile tüm kayıtları silebilirsin.

[dtgb]

SQL cümlecigini disinda silme olayımız varmıydı acaba
mesela
dm.tbladi.delete ile tek bir kayırt silebiliyorum
bu sekilde sql cumlesi kullanmadan silebilirmiyim??

[gkimirti]

Kod: Tümünü seç

with dm.tbladi do
try
  DisableControls;
  First;
  while not eof do
  begin
    Delete;
    Next;
  end;
finally
  EnableControls;
end;

bu sekilde olur sanırım

[dtgb]

bende boyle bir dongu dusunmustum ama
silme islemini parca parca yapıyor ornegin 10 tane kaydım varsa 4 unun siliyor digerleri kalıyor ayrıca bu dongudeki "DisableControls" un kullanım amacı nedir?

[gkimirti]

tablo bir datasource aracılıgı ile dbgrid gibi bilesenlere baglı ise bu kontrollere
kayıtlar arasındaki gecisler iletilmiyor.
eger parca parca siliyor diyorsanız kayıt sayısını bir query ile ogrenip (zira recordcount özelligi de aynı seyi yapabilir) for dongusu ile silebilirsiniz.

[dtgb]

begin
dm.TBLHesaplama.first;
for i:=0 to dm.TBLHesaplama.RecordCount-1 do
begin
dm.TBLHesaplama.Delete;
dm.TBLHesaplama.Next;
end;
Showmessage('KAYIT SİLME İŞLEMİNİZ BAŞARIYLA TAMAMLANDI...');
end;

for donfusu kullanarak yaptıgımda tamamını silebiliyorum ama 860 kaydı
yaklasık 50 sn yede siliyor
bildigim kadarıyla for dongusu hız acısından en iyisiydi sizce bu normal mi yada butur silme yada tum kayırları tarama islemlerinde onerebileceginiz baska yontemler var mı?

[gkimirti]

eger sql kullanma sansınız varsa sql ile yapmanızı oneririm.
eger for dongusu ile yapacagım diyorsanız disablecontrols-enablecontrols ozelliklerini kullanın
hızda artıs olacaktır.
Eger Tablonun baglı oldugu datasource un ondatachange olayına bazı kodlar yazmıs iseniz bu da epey yavaslatacaktır.
Ayrıca Calculated alan kullanmıssanız bununda hıza bir etkisi olacaktır, tabiki negatif yonde...

[mege]

bde de emptytable die bi bde komutu var tabi access de varmı bilemicem bi bakın isterseniz

[TRSoft]

begin
dm.TBLHesaplama.first;
for i:=0 to dm.TBLHesaplama.RecordCount-1 do
begin
dm.TBLHesaplama.Delete;
dm.TBLHesaplama.Next;

-Burada Next komutunu kullanırsanız tüm verilerinizi silemezsiniz.

-Zaten kaydı sildikten sonra bir sonraki kayda konumlanıyor ama bir de sonraki kayda kendimiz konumlandırırsak birer atlayarak silecektir.

-Ayrıca for döngüsü yerine @gkimirti hocamında yukarıda söylediği gibi "while not Eof " şeklinde bir döngü daha sağlıklı olacaktır.

[gkimirti]

ewt bu next olayı gozden kacmıs olmaması gerekiyor.
ama mege nin de dedigi gibi zaten emptytable diye bir metod varmıs

[hdayi]

Kod: Tümünü seç

begin
  dm.TBLHesaplama.first; 
    for i:=0 to dm.TBLHesaplama.RecordCount-1 do
      begin
          dm.TBLHesaplama.Delete;
          dm.TBLHesaplama.Next;
       end;
       Showmessage('KAYIT SİLME İŞLEMİNİZ BAŞARIYLA         TAMAMLANDI...');
  end;

Bu kodla hepsini silememen normal, muhtemelen yarısını ya da yarısının bir fazlasını siliyorsundur.
bu satır fazla gibi geldi bana

Kod: Tümünü seç

dm.TBLHesaplama.Next;

Kod: Tümünü seç

begin
  dm.TBLHesaplama.first; 
    for i:=0 to dm.TBLHesaplama.RecordCount-1 do
          dm.TBLHesaplama.Delete;
       Showmessage('KAYIT SİLME İŞLEMİNİZ BAŞARIYLA         TAMAMLANDI...');
  end;

[dtgb]

arkadaslar ilginctir ama
dm.tblhesaplar.next
i kullanmama ragmen tum kayırlar silinmekte. temel problemim tablomdaki tum kayıtları daha kısa zamanda silememem.
ayrıca ms accesste emptytable methodu varmı ?

[Asri]

Ben database den anlamam, ufak tefek paradox la bir kaç program yazdım.
Tüm datayı silmek istediğimde bosdata dizinin deki hiç kayıt girmediğim dataları üstüne atıyorum sıfırlanıyor

çok mu acemice bir iş

[dtgb]

arkadaslar sanırım en ideali
begin
with dm.TBLHesaplama do
try
DisableControls;
First;
while not eof do
begin
Delete;
end;
finally
EnableControls;
end;
yada

begin
dm.TBLHesaplama.DisableControls;
for i := 0 to dm.TBLHesaplama.RecordCount-1 do
dm.TBLHesaplama.Delete;
dm.TBLHesaplama.EnableControls;
end;

denemelerimde en hızlıları bunlar oldu
kolay gelsin