SQL SELECT TOP Kullanımı hk.

[tamer42]

Merhaba,

SQL SELECT TOP Kullanımında ; aşağıdaki kodda ayları ifade m değeri "1" olduğunda ilginç bir biçimde ilk 17 veriyi getirmekte; onun dışındaki tüm aylarda yazıldığı şekliyle sorunsuz ilk 15 değeri getirmekte;
bunun sebebi hikmeti ne olabilir? sorgunun başına TOP yazdığımızda her şekilde 15' te sınırlaması gerekmiyor mu?

şimdiden teşekkürler,

Set Sht = ActiveSheet

y = Sht.Range("F3").Value
m = Sht.Range("F4").Value

xdeg1 = CLng(DateSerial(y, 1, 1))
xdeg2 = CLng(DateSerial(y, m + 1, 1))

Set RS2 = CreateObject("ADODB.RecordSet")

Sql2 = "Select TOP 15 Brand, SUM(Frequency) As Toplam FROM [Data$A5:Y" & LR & "]" & _
" Where [Insert Start Date]>=" & xdeg1 & " And [Insert Start Date]<" & xdeg2 & _
" And [Sales Channel] Like '" & chn & "' And [Publication Type] Like '" & tip & "' And [Category] Like '" & ktg & "'" & _
"  And Brand <> 'NO BRAND' GROUP BY Brand ORDER BY SUM(Frequency) DESC"

RS2.Open Sql2, Con, 1, 3

iyi Çalışmalar.

 

[Mehmet Şahin]

 DISTINCT TOP 15

olarak dener misiniz?

 

[tamer42]

 DISTINCT TOP 15

olarak dener misiniz?

Sonuç değişmedi Hocam

 

[tamer42]

Merhaba,

SQL SELECT TOP Kullanımında ; aşağıdaki kodda ayları ifade m değeri "1" olduğunda ilginç bir biçimde ilk 17 veriyi getirmekte; onun dışındaki tüm aylarda yazıldığı şekliyle sorunsuz ilk 15 değeri getirmekte;
bunun sebebi hikmeti ne olabilir? sorgunun başına TOP yazdığımızda her şekilde 15' te sınırlaması gerekmiyor mu?

şimdiden teşekkürler,

Set Sht = ActiveSheet

y = Sht.Range("F3").Value
m = Sht.Range("F4").Value

xdeg1 = CLng(DateSerial(y, 1, 1))
xdeg2 = CLng(DateSerial(y, m + 1, 1))

Set RS2 = CreateObject("ADODB.RecordSet")

Sql2 = "Select TOP 15 Brand, SUM(Frequency) As Toplam FROM [Data$A5:Y" & LR & "]" & _
" Where [Insert Start Date]>=" & xdeg1 & " And [Insert Start Date]<" & xdeg2 & _
" And [Sales Channel] Like '" & chn & "' And [Publication Type] Like '" & tip & "' And [Category] Like '" & ktg & "'" & _
"  And Brand <> 'NO BRAND' GROUP BY Brand ORDER BY SUM(Frequency) DESC"

RS2.Open Sql2, Con, 1, 3

iyi Çalışmalar.

Arkadaşlar bu konuyla ilgili örnek dosyayı ekledim;
desteğiniz için şimdiden teşekkürler;



Not: Bu arada bir şey farkettim, sql sorgusunun sonundaki;

ORDER BY SUM(Frequency) DESC

silince sorun düzeliyor.

iyi pazarlar dilerim.

 

[Murat OSMA]

İlgili kodları bu şekilde kullanım deneyiniz.

xDeg1 = CLng(DateSerial(y, m, 1))
xDeg2 = CLng(DateSerial(y, m + 1, 0))

Set RS2 = CreateObject("ADODB.RecordSet")

sorgu = "SELECT TOP 15 Brand FROM [Data$A5:D" & LR & "]"
sorgu = sorgu & " WHERE [Insert Start Date] BETWEEN " & xDeg1 & " AND " & xDeg2 & ""
sorgu = sorgu & " AND Brand <> 'NO BRAND' GROUP BY Brand"

RS2.Open sorgu, Con, 1, 3