SQL Sorgusu ile AY-YIL Bazında genel toplamları listelemek.

[antonio]

Herkese iyi seneler ve kolay gelsin.
Eklediğim rar dosyası içinde bulunan excel çalışma kitabında gerekli açıklamaları örnekleri ile sıralamış bulunmaktayım.
Dosya indirmeden önce konu hakkında bilgi sahibi olmak isteyen arkadaşlar için şu açıklamayı yapayım:
vtb.accdb isimli access veritabanında tbl isimli tablo bulunmaktadır. Bu tabloda: id, tarih, konu, gelir, gider şeklinde başlıklar var. Excel sayfasında ki UserFormda bulunan "AYLAR BAZINDA GENEL TOPLAM" butonuna basıldığı zaman Listbox üzerinde aşağıda ki gibi bir tablo oluşmasını istiyorum:

...................... Gelir......Gider 'Bilgi için yazılmıştır. Bu başlıkların gelmesine gerek yok.
Ocak 2015.........115........105
Şubat 2015..........85.........50
Mart 2015..........150.........85
Nisan 2015.........161.........88
Mayıs 2015.........209.......159
.....
Listede ki tarihlere ait aylar hangi aya kadarsa o kadar uzaması gerekiyor.
İlgilenen herkese önceden teşekkürler...

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton3_Click()

Dim conn As Object, rs As Object, yol As String

yol = ThisWorkbook.Path & "\vtb.accdb"
Set conn = CreateObject("adodb.connection")
conn.provider = "microsoft.ace.oledb.12.0"
conn.Open yol
Set rs = CreateObject("adodb.recordset")
sorgu = "select distinct format(tarih,'mmmm yyyy'),sum(gelir),sum(gider) from tbl group by tarih"
Set rs = conn.Execute(sorgu)
With ListBox1
    .RowSource = Empty
    .ColumnCount = 3
    .ColumnWidths = "90;90;60"
    .Column = rs.getrows
End With
rs.Close
Set rs = Nothing
Set conn = Nothing

End Sub

 

[antonio]

Evren Bey, ilgilendiğiniz için çok teşekkür ederim. Ancak Ay bazında gelir ve gider alt toplamları yerine ayrıntılı gelir - gider toplamları gelmeye devam ediyor.
Kodlarınızı inceledim:

sorgu = "select distinct format(tarih,'mmmm yyyy'),sum(gelir),sum(gider) from tbl group by tarih"

Distinct komutu ile normal olarak ay-yıl olarak istenen tarihin tekrar gelmemesi lazım. Ancak Aynı aya ait kaç gider ve gelir varsa gelmeye devam ediyor.
Örneğin:
Ay-Yıl Formatında her tarihin birer kez gelmesi gerekirken,
Mayıs 2015 alt alta 4 kez, Temmuz 2015 alt alta 3 kez geliyor.
Sebebini çözemedim.

 

[Orion1]

O zaman vt'ye bir alan ekleyip o alanı metin olarak tanımlayıp,ay ve yılı oraya yazıp,sonra sorguda o alanı kullanabilirisiniz.

 

[antonio]

Biraz kurcaladıktan sonra sınama-deneme yolu ile aşağıda ki şekilde ay bazında alt toplamları almayı başardım:

sorgu = "select distinct(format(tarih,'MMMM-YYYY')),sum(gelir),sum(gider) from tbl " & _
"group by format(tarih, 'MMMM-YYYY') order by format(tarih, 'MMMM-YYYY')"

Ancak sorun bitmiş değil.
Çünkü bu kezde sıralamayı ayların alfabetik sırasına göre yapıyor.
(Ağustos, Aralık, Ekim, Eylül, ...)
Sorun günceldir, katkılarınızı bekliyorum.

 

[Orion1]

Aşağıdaki kod işinizi görecektir.

sorgu = "select format(month(tarih),'00'),format(tarih,'MMMM-YYYY'),sum(gelir),sum(gider) from tbl " & _
"group by format(month(tarih),'00'),format(tarih, 'MMMM-YYYY') order by format(month(tarih),'00')"

 

[antonio]

Aşağıdaki kod işinizi görecektir.

sorgu = "select format(month(tarih),'00'),format(tarih,'MMMM-YYYY'),sum(gelir),sum(gider) from tbl " & _
"group by format(month(tarih),'00'),format(tarih, 'MMMM-YYYY') order by format(month(tarih),'00')"

Evren Bey, çok teşekkür ederim. Gerçekten güzel bir çözüm bulmuşsunuz..

 

[Mukteda]

Merhabalar,

Aşağıdaki sorguda en alt satıra kolon dip toplamlarını nasıl aldırabilirim?

Teşekkürler

SELECT BAYİADI ,
Yıl ,
[1] Ocak ,
[2] Şubat ,
[3] Mart ,
[4] Nisan ,
[5] Mayıs ,
[6] Haziran ,
[7] Temmuz ,
[8] Ağustos ,
[9] Eylül ,
[10] Ekim ,
[11] Kasım ,
[12] Aralık
FROM ( SELECT BAYİADI ,
YEAR(TARİH) [Yıl] ,
MONTH(TARİH) [Ay] ,
TOPLAMKG
FROM dbo.TBLİSLEMLİNE
) TableDate PIVOT ( SUM(TOPLAMKG) FOR [Ay] IN ( [1], [2], [3], [4],
[5], [6], [7], [8],
[9], [10], [11], [12] ) ) PivotTable;

 

[Haluk]

Aşağıdaki linke bir bakın, işinize yarayabilir....

SQL - Pivot

Merhaba; Ekli dosyadaki örnek tablodaki verilerle elde edilen Pivot tablonun benzerini, dosyanın 2. sayfasında VBA kodlarıyla "SQL-Pivot" komutunu kullanarak elde etmeye çalıştım ama sorguda hata mesajı aldım. Dosyadaki SQL sorgusunda düzeltme önerisi olan arkadaşlar, iletirse şimdiden...

www.excel.web.tr

.

 

[Mukteda]

Merhaba Haluk Bey,

Değerlendirmeniz için teşekkür ederim.

O konuyu bütün mesajları ile birlikte iki defa okudum ama bir sonuç çıkaramadım.

Eklentileri göremem ile ilgili olabilir.

Siz nasıl çözmüştünüz?

SQL - Pivot

Korhan Bey, transform ile union işlemi doğrudan yapılamıyor. İstenen sonuc iki aşamalı birleşim ile MS Access ile yapılabiliyor (şimdilik) .

www.excel.web.tr

Bu eklentiyi dosya.tc adresine yükleyebilir misiniz?

 

[Haluk]

Ufak bir örnek ekledim....

SQL_V4_GrandTotals.xlsm dosyasını indir - download

SQL_V4_GrandTotals.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

.

 

[Mukteda]

Eyvallah üstad,

Çok teşekkür ederim. Kolay gelsin.

 

[Haluk]

Bilgi için;

Bu işin "Google Sheets" de yapılmasına ilişkin örnek, kişisel blog'um da yer almaktadır....







Link:

Kod anlatılmaz, yazılır...: QUERY - SQL Kullanımı (3)

Google Sheets ve scripting için Türkçe kaynak... bazı özel konularda Excel VBA örnekleri

excelhaluk.blogspot.com

.