SQL deki alanları farklı hücrelere işlemek

[hamzasaricicek]

Merhabalar,

Set MasraflarRs = Baglan.execute("Select Sum(Masraf)as Masraf, Sum(ToptanBayi)As ToptanBayi, Sum(TamirBakim)As TamirBakim From BayiKitDagilimMasraf Where SubeID=4 and Yil=2010 Group By Ay")

Bu sorguda yer alan "Masraf" toplamını A3 hücresine, "ToptanBayi" toplamını D3 hücresine ve "TamirBakim" toplamınıda G3 hücresine kayıt etmek istiyorum.

Sheets("Kayseri").Range("A3").CopyFromRecordset MasraflarRs
Bu şekilde kullandığım zaman A3, B3, C3'e sırasıyla kayıt ediyor. Ben sırasıyla kayıt etmek istemiyorum. Sorgumdaki istediğim alanı istediğim hücreye kayıt etmek istiyorum ama bulamadım bir türlü.

Sheets("Kayseri").Range("A3").CopyFromRecordset MasraflarRs("Masraf")
şeklinde denedim ama yemedi


Şimdiden teşekkür ediyorum.

 

[hamzasaricicek]

Biraz uğraştım ama öğrenmiş oldum en azından.. ASP mantığı ile yaklaşmak işime yaradı.

İşine lazım olan arkadaşlar olur ise paylaşmak istedim. Saygılar..


Set MasrafRs = Baglan.Execute("Select Sum(Masraf)As Masraf, Sum(ToptanBayi)As ToptanBayi, Sum(TamirBakim)As TamirBakim From BayiKitDagilimMasraf Where SubeID=4 and Yil=2010 Group By Ay")

Satir = 3
MasrafRs.MoveFirst
While Not MasrafRs.EOF
Sheets("Kayseri").Range("A" & Satir) = MasrafRs.Fields("Masraf").Value
Sheets("Kayseri").Range("D" & Satir) = MasrafRs.Fields("ToptanBayi").Value
Sheets("Kayseri").Range("G" & Satir) = MasrafRs.Fields("TamirBakim").Value
MasrafRs.Movenext
Satir = Satir + 1
Wend