Merhaba,
Bu işi yapması için kullandığım kod aşağıdadır.
bu kodu tek satıra nasıl indirebilirim.
dosyamda 100 binden fazla satır var. detay_kod sütununda ise gurupladığımda 5000 civarında satır oluşuyor.
ben bu işlemi vba ile yapıyorum. Doğan sonuçları tekrar excele alıp tablolar oluşturmada kullanıyorum. SQL ile yaptıklarımı excel formülleri ile de yapabiliyorum ancak bu defa hesaplamada sıkıntılar başlıyor.
aşağıdaki kod bu işi 5 dakikada çözüyor ancak iki kod birleştirilirse işin yapılma süresi düşecektir.

dsum kullanmaktan kaçıyorum çünkü kodun sql server a taşınabilir olmasını istiyorum.

bu arada çok iyi sql bilmediğimi ifade etmeliyim. bilgim ancak aşağıdaki kodu yazabiliyor.
Saygılar


mystr = "SELECT detay_kodu, SUM(BORC) AS TBORC, sum(alacak) as talacak FROM " & dbtable & " where yil=" & yil & " and tip=1 group by detay_kodu"

rst1.Open mystr, cnt

Do While rst1.EOF = False

If IsNull(rst1("tborc")) Then tborc = 0 Else tborc = rst1("tborc")
If IsNull(rst1("talacak")) Then talacak = 0 Else talacak = rst1("talacak")
tbakiye = tborc - talacak


mystr = "Update " & dbtable & " SET borc_toplami = '" & tborc & "', alacak_toplami = '" & talacak & "' ,bakiye= '" & tbakiye & "' where detay_kodu='" & rst1.Fields("detay_kodu") & "' and yil=" & yil
rst2.Open mystr, cnt
rst1.movenext
loop