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

Listviewden Excele Aktarımda Sumıf Kullanımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listviewden Excele Aktarımda Sumıf Kullanımı (/konu-listviewden-excele-aktarimda-sumif-kullanimi.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10

RE: Listviewden Excele Aktarımda Sumıf Kullanımı - berduş - 29/12/2020

first yerine min kullanmayı dener misiniz?
aslında bence de first olmalıydı ama bende de aynı sorun oldu

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ı]);

RE: Listviewden Excele Aktarımda Sumıf Kullanımı - feraz - 29/12/2020

(29/12/2020, 12:56)berduş yazdı: first yerine min kullanmayı dener misiniz?
aslında bence de first olmalıydı ama bende de aynı sorun oldu

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ı]);

Tamam abey akşam denerim,sağolun.

RE: Listviewden Excele Aktarımda Sumıf Kullanımı - berduş - 29/12/2020

Rica ederim
İyi çalışmalar

RE: Listviewden Excele Aktarımda Sumıf Kullanımı - kanakan52 - 29/12/2020

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??

RE: Listviewden Excele Aktarımda Sumıf Kullanımı - berduş - 29/12/2020

yaptığınız değişikliklerin olduğu çalışmanızın son halini ekler misiniz

RE: Listviewden Excele Aktarımda Sumıf Kullanımı - kanakan52 - 29/12/2020

@berduş hocam aynı dosya üzerinde çalışıyorum.

Ekte bulabilirsiniz.

Saygılarımla..