Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Listviewden Excele Aktarımda Sumıf Kullanımı

kanakan52
kanakan52
Excel Cevaplanmış Soruları
54
3958

Listviewden Excele Aktarımda Sumıf Kullanımı

#16
kanakan52
Aktif Üye
kanakan52
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 41
Konum:
Ofis Versiyonu:
Son Oturumu: 18/07/2022,22:02
Yorumları: 275
Konuları: 29
Kayıt Tarihi: 09/05/2013
Teşekkür Puanı: 0
Kod:
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

Sql = "SELECT deneme.[Sipariş No], Min(deneme.Kimlik) AS EnAzKimlik, Min(deneme.[Firma Adı]) AS [EnAzFirma Adı], Min(deneme.[Stok Adı]) AS [EnAzStok Adı], Sum(deneme.Miktar) AS ToplaMiktar, Sum(deneme.Tutar) AS ToplaTutar FROM deneme, GROUP BY deneme.[Sipariş No],ORDER BY deneme.[Sipariş No], Min(deneme.Kimlik), Min(deneme.[Firma Adı]), Min(deneme.[Stok Adı])"


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("Sheet1").Range("A5").CopyFromRecordset ADO_RS 'excelde

son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
  




@berduş hocam hata verdi nerde yanlış nyapıyorum??
(29/12/2020, 14:17)kanakan52 yazdı:
Kod:
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

Sql = "SELECT deneme.[Sipariş No], Min(deneme.Kimlik) AS EnAzKimlik, Min(deneme.[Firma Adı]) AS [EnAzFirma Adı], Min(deneme.[Stok Adı]) AS [EnAzStok Adı], Sum(deneme.Miktar) AS ToplaMiktar, Sum(deneme.Tutar) AS ToplaTutar FROM deneme, GROUP BY deneme.[Sipariş No],ORDER BY deneme.[Sipariş No], Min(deneme.Kimlik), Min(deneme.[Firma Adı]), Min(deneme.[Stok Adı])"


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("Sheet1").Range("A5").CopyFromRecordset ADO_RS 'excelde

son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
  




@berduş hocam hata verdi nerde yanlış nyapıyorum??
[Resim: do.php?img=10654]
Son Düzenleme: 29/12/2020, 14:17, Düzenleyen: kanakan52.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Listviewden Excele Aktarımda Sumıf Kullanımı - Yazar: kanakan52 - 29/12/2020, 14:17
Task