Çözüldü ADO ile sorgu hatası DESC

[FERAZ]

Merhaba.
ORDER BY [f7] desc burda hata var f7 yerine f2 yazarsam sorun yok.
Çözüm rica ediyorum.
Dosya linkte.

http://s7.dosya.tc/server11/xjc7d5/ado_iki_tarih_arasi_desc.rar.html

Private Sub CommandButton1_Click()

Dim con As Object, rs As Object
 sayac = 6
    With Sheets("Tabelle1")

        Set con = CreateObject("adodb.connection")
        Set rs = CreateObject("adodb.recordset")
      
        con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no;imex=1"""
      
sorgu = "SELECT top 5 f2,sum([F7])" & _
   " FROM [Tabelle2$A2:G65536] WHERE  [f6] >= #" & Format(.Range("C1").Value, "mm\/dd\/yyyy") & "# and [f6] <= #" & Format(.Range("C2").Value, "mm\/dd\/yyyy") & "# GROUP BY [f2] ORDER BY [f7] desc"
  
        rs.Open sorgu, con, 1, 1
      
       If rs.RecordCount > 0 Then
          Do While Not rs.EOF
            .Range("F" & sayac).Value = sayac - 5
            .Range("G" & sayac).Value = rs(0).Value
            .Range("H" & sayac).Value = rs(1).Value
            sayac = sayac + 1
            rs.MoveNext
          Loop
       End If
      
        End With

    rs.Close
    Set con = Nothing: Set rs = Nothing: sorgu = ""


End Sub

 

[Haluk]

Yüklediğiniz siteden indirirken virüs uyarısı veriyor. Google Drive gibi düzgün bir yere yükleyebilir misiniz?

.

 

[FERAZ]

Dropbox olur mu?

 

[FERAZ]

Bundan inebilir Dropboxda oturum felan açmadan.
https://www.dropbox.com/s/miu9eo018k67nsz/ado iki tarih arasi desc.xlsm?dl=0

 

[Haluk]

Açıklaması hata mesajında var zaten ...

.

 

[FERAZ]

Açıklaması hata mesajında var zaten ...

.

Çözüm nedir?

 

[Erdem Akdemir]

Telefondan yazıyorum deneme şansım olmadı. sum([F7]) bölümünü sum([F7]) As F7 olarak değiştirin öyle deneyin.Eğer olmazsa sondaki f7 ifadesini sum(F7) olarak deneyin.(As f7 yine kalsın.)

 

[FERAZ]

Telefondan yazıyorum deneme şansım olmadı. sum([F7]) bölümünü sum([F7]) As F7 olarak değiştirin öyle deneyin.Eğer olmazsa sondaki f7 ifadesini sum(F7) olarak deneyin.(As f7 yine kalsın.)

Hocam çok sağolun,elinize sağlık.

sorgu = "SELECT top 5 f2,sum([F7])As F7" & _
   " FROM [Tabelle2$A2:G65536] WHERE  [f6] >= #" & Format(.Range("C1").Value, "mm\/dd\/yyyy") & "# and [f6] <= #" & Format(.Range("C2").Value, "mm\/dd\/yyyy") & "# GROUP BY [f2] ORDER BY sum([f7]) desc"