Tarihe göre sqlden veri alma

[cakmaka]

Merhaba,
Bir select cümlesi ile sql db den excel e veri alıyorum. Yapmak istediğim aylık bir tablo. Ayın 1'i için select çalışıp 1. sütuna, 2 si için 2. sütuna ...... 31'i için 31. sütuna yazacak. DB bağlantısında sorun yok sadece döngüyü yazamadım.
Bu şekilde tarih değişkenli bir düzenlemeyi nasıl yaparım?
:yardim:

 

[Recep İpek]

Kullandığınız kodları buraya eklerseniz çözüm bulacak arkadaşlara fikir verebilir.

 

[cakmaka]

Excel kodu

aşağıda cancelnet değerini zdate değişkenine göre her gün için ayrı stüna yazdırmak istiyorum......


Sub Deneme()
'On Error Resume Next
Dim Rst As ADODB.Recordset
Dim CnnMicros As ADODB.Connection

Set Rst = New ADODB.Recordset
Set CnnMicros = New ADODB.Connection
CnnMicros.Open "DSN=micros;Password=******;User ID=******;"
VSQL = "SELECT ZreportsHistory.cancelnet, rvc_def.obj_num,rvc_def.name FROM custom.ZReportsHistory INNER JOIN micros.uws_def ON ZReportsHistory.WsId=uws_def.obj_num INNER JOIN micros.rvc_def ON uws_def.rvc_seq=rvc_def.rvc_seq where zdate='2007-04-24' order by name"
Rst.Open VSQL, CnnMicros, adOpenStatic, adLockReadOnly

Sheets("deneme").Select
Range("A3:c155").Select
Selection.ClearContents

For i = 3 To Rst.RecordCount + 2
Range("a" & i).Value = Rst("obj_num")
Range("b" & i).Value = Rst("name")
Range("c" & i).Value = Rst("cancelnet")
Rst.MoveNext

Next i
Cells.Select
Cells.EntireColumn.AutoFit
Range("A3").Select


End Sub

 

[cakmaka]

Arkadaşlar, bu konuda yardımcı olabilecek kimse yokmu?:???: