(29/12/2020, 08:52)berduş yazdı: Bu da ADO yöntemi referanslardan ADO xx eklenmeli

Set ADO_RS = New ADODB.Recordset

Set ADO_CN = New ADODB.Connection



Sql = "SELECT deneme.[Sipariş No], Sum(deneme.Miktar) AS ToplaMiktar, Sum(deneme.Tutar) AS ToplaTutar " & _

      "FROM deneme " & _

      "GROUP BY deneme.[Sipariş No] " & _

      "ORDER BY deneme.[Sipariş No];"



ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\deneme.accdb"

ADO_CN.Open

ADO_RS.Open Sql, ADO_CN, 3, 1

'

'  Eğer Hiç Kayıt Yoksa

If ADO_RS.RecordCount = 0 Then

    MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"

    GoTo son

End If

ADO_RS.MoveLast

ADO_RS.MoveFirst

 

Sheets("sayfa1").Range("A5").CopyFromRecordset ADO_RS 'excelde



son:

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

Berduş hocam bende Ado ile denemiştim sizin kodlarının benzeriyle aynısıyla.
O kod ve sizin kod sanıyorum 6 sütunuda getirmiyor benimki getirmemişti çünkü.
Select içine tüm sütun başlıklarını yazıp group by ilede gelmeyip hata veriyordu.
6 sütunluk nasıl gelecek abeyimizin dosyasındaki gibi sonuç olarak?
Yani lazım olursa ileride diye sordum.