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.

 

[LeonardObrien]

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.
Modtodays offers a wide range of safe and free game apps for Android, making it easy for users to experience exciting games on their mobile phones without having to worry about downloading from untrusted sources.

Thanks for your support, I will try it and share my results.

 

[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