SQL Kodu oluşturma

[sadettincetin]

Table da 3 kolon var
Tarih
Borç
Alacak

Ben ise koda dördüncü bir sütun ekleyerek bakiye kolonu oluşturmak
istiyorum. Bunu yaparken de 4.sütun için hesaplatma yapmam gerekiyor.
Hesaplama ise ilk satır için ( borc - alacak ) olacak. Sonraki tüm
satırlarda ise bir önceki satırın sonucuna bu satırın borç alacak farkı
ilave edilecek.
Yani :
( bir önceki satırın bakiyesi +(borc - alacak) )

Örnek:
Tarih Borç Alacak Bakiye
25.01.2006 150,25 85,00 (150,25-85,00) a diyelim
20.02.2006 200,00 12,25 a+(200,00-12,25) b diyelim
31.03.2006 101,20 8,30 b+(101,20-8,30) c diyelim
15.04.2006 25,25 7,00 c+(25,25-7,00)

Sonuç olarak database deki verileri alarak cari hesap ekstresi oluşturmak
istiyorum.
Şimdiden Teşekkürler.
Sadettin ÇETİN
S.M.M.M.
Konya

 

[dost]

Merhaba,

Database olarak ne kullandığınızı ve nasıl bağlandığınızı bilmediğim için, database olarak exceli kullanığınızı varsayarak, VBA kodlarını yazdım, siz kendinize uyarlarsınız.

[vb:1:6e09310d49]
Sub bakiye()
bak = 0
sonsat = Range("A65536").End(xlUp).Row
bak = Range("B2") - Range("C2")
Range("D2") = bak
For i = 3 To sonsat
bak = bak + (Range("B" & i) - Range("C" & i))
Range("D" & i) = bak
Next
End Sub
[/vb:1:6e09310d49]


Eğer SQL olarak istiyorsanız;

[vb:1:6e09310d49]
i = 2
RS.MoveFirst
bak = RS("Borc") - RS("Alacak")
Range("D" & i) = bak
RS.MoveNext

Do While Not RS.EOF
i = i + 1
bak = bak + (RS("Borc") - RS("Alacak"))
Range("D" & i) = bak
RS.MoveNext
Loop

Set RS = Nothing
[/vb:1:6e09310d49]