Ayni satirlari silme

[41linea41]

Merhaba

Tabloda bir sütunda ayni satirlari bulup silmek istiyorum

Yardimci olur musunuz yada tavsiyede bulinur musunuz?

İyi calismalar

[adelphiforumz]

Bu işi yapmanın bir çok yolu var
önce şuna karar ver bu işlemi delphi içerisinden kodlamı yapacaksın yoksa bir veritabanı ise SQL cümleleri ilemi yapacaksın

Program ile yapacaksan misal
ilk kayda gel, kaydı bir değişkene sakla, kaydın recno karşılığınıda bir değişkene sakla,
sonraki kaydı oku eğer aynı ise sil
DİKKAT = Silme işleminden sonra next kullanma bir kayıt atlamış olursun bunun yerine döngünün başına git.
Dosyanın sonu geldi ise ve ve dosyanın recordcount değeri recno değerine eşit ise çık
değil ise
Tabloadi.recno := Saklalanan recno ve bir sonraki satıra gidip işlemi tekrarla.

[shooterman]

Selamlar
Şu şekilde bir sql işini görecektir.

Delete From personel Where Id Not In (Select MAX (Id) From personel Group By ad, Soyad)

[41linea41]

Cevaplar için teşekkürler.

[mcuyan]

Sql ile biraz kasarsınız fakat for döngüsü en mantikli cozun gibi tek sefer kullanacaksaniz..

[41linea41]

(03-05-2019, Saat: 10:59)mcuyan Adlı Kullanıcıdan Alıntı: Sql ile biraz kasarsınız fakat for döngüsü en mantikli cozun gibi tek sefer kullanacaksaniz..

Ewet 5 dk bekledim sonuç dönmedim . delphi tarafındqa hallettim.

[adelphiforumz]

(03-05-2019, Saat: 10:59)mcuyan Adlı Kullanıcıdan Alıntı: Sql ile biraz kasarsınız fakat for döngüsü en mantikli cozun gibi tek sefer kullanacaksaniz..

@mcuyan sql neden kasıyor ben genelde sql üzerinden hallediyorum
nedenini açıklarsanız ona göre bu tür kodları delphi içerisine taşıyalım
delphi tarafının artısı ne oluyor sonuçta işi sql yapıyor
yada sorunu döngü mü çözüyor eğer öyleyse sql tarafında döngü ile yaparsak delphi ile aynı sonuca ulaşırmıyız
burada biraz kafam karıştı
Teşekkürler

[mrmarman]

@adelphiforumz  kasar konusu sql'e aşina olmayınca yanlış kayıtlar silinir vb. kaygılarla sürekli select cümleleri ile silinecek kayıtların teyidi ile delete sql için emin olma ikileminden bahistir diye değerlendiriyorum hızdan değil.

Tabii ki en hızlısı veritabanının yuvasında gerçekleşen sql sorgusudur.

[mcuyan]

@mrmarman hocamın dediği gibi.. aynı kayitlari haveing by ile alip sonrasinda silme işi bayagi bi sorunlu.. heleki kayit sayisi milyonlar hatta milyarlar olunca çok sağlam bir sunucya ve saglam bir sabra ihtiyaciniz oluyor..

[anemos]

"select distinct..." ile dönen sonucu geçici bir tabloya aktardıktan sonra esas tablonun içi boşaltılarak geçici tablodaki distinct kayıtlar tekrar esas tabloya "insert" yapılabilir.