çapraz Sorgu Hk.

snapper · 13-10-2023, 07:27

Arkadaşlar Merhaba,

Veri tablosunda yer alan Veri1,veri2,veri3,veri4,veri5 ve veri6 alanlarında hangi hata kodundan kaç tane olduğunu günlük olarak yeni tabloya insert edilmesini istiyorum. Yeni tablodaki alan adları için hata tablosunda ki kodları kullanmasını istiyorum. Yeni tabloda olmasını istediğim örnek bulunmaktadır. 0 değerleri yerine hata kodlarını saymasını istiyorum

Bir türlü yapamadım. Bu konuda yardımcı olursanız çok sevinirim.

Saygılarımla,

dsezgin · 13-10-2023, 08:59

Bir tane çapraz sorgu hazırlayın,

Visual Basic
TRANSFORM Count(Veri.veri2) AS VerSay SELECT Format([tarih],"Short Date") AS Trh FROM Veri GROUP BY Format([tarih],"Short Date") PIVOT Veri.veri2

Bir tanede Ekleme sorgusu

Visual Basic
INSERT INTO [Yeni Tablo] ( Tarih, [Veri Adı], 1, 3, 13, 108, 114, 132, 136, 140 ) SELECT Query1.Trh, "Veri2" AS TIPI, Query1.[1], Query1.[3], Query1.[13], Query1.[108], Query1.[114], Query1.[132], Query1.[136], Query1.[140] FROM Query1

Ekleme sorgusunu çalıştırdıktan sonra 3, 13,... sütunlarına ait çapraz sorguda ki PIVOT alanını değiştirin ve ekleme sorgusundaki TIPI allananındaki Veri1.2. 3.... olan yeri değiştirin ve ekleme sorusunu çalıştırın.

140 sütuna kadar tekrarlarsanız Yeni Tablo verileri oluşturursunuz.

VBA da Kod ile Hata tablosunu SELECT yaparak yukarıdaki SQL'ler ile prosedür hazırlayabilirsiniz.

Analizlerini icin VBA da DAO da veri cagirma islemi her daim bilmelisiniz.

Visual Basic
Sub Isle()
Dim Kyt As Recordset
Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM Hata")
If Kyt.RecordCount = 0 Then
Do Until Kyt.EOF
******islem yapilacak yer*******
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
End Sub

snapper · 13-10-2023, 09:28

(13-10-2023, 08:59)dsezgin demiş ki: Bir tane çapraz sorgu hazırlayın,
Visual Basic
TRANSFORM Count(Veri.veri2) AS VerSay SELECT Format([tarih],"Short Date") AS Trh FROM Veri GROUP BY Format([tarih],"Short Date") PIVOT Veri.veri2
Bir tanede Ekleme sorgusu
Visual Basic
INSERT INTO [Yeni Tablo] ( Tarih, [Veri Adı], 1, 3, 13, 108, 114, 132, 136, 140 ) SELECT Query1.Trh, "Veri2" AS TIPI, Query1.[1], Query1.[3], Query1.[13], Query1.[108], Query1.[114], Query1.[132], Query1.[136], Query1.[140] FROM Query1
Ekleme sorgusunu çalıştırdıktan sonra 3, 13,... sütunlarına ait çapraz sorguda ki PIVOT alanını değiştirin ve ekleme sorgusundaki TIPI allananındaki Veri1.2. 3.... olan yeri değiştirin ve ekleme sorusunu çalıştırın.

140 sütuna kadar tekrarlarsanız Yeni Tablo verileri oluşturursunuz.

VBA da Kod ile Hata tablosunu SELECT yaparak yukarıdaki SQL'ler ile prosedür hazırlayabilirsiniz.

Analizlerini icin VBA da DAO da veri cagirma islemi her daim bilmelisiniz.
Visual Basic
Sub Isle() Dim Kyt As Recordset Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM Hata") If Kyt.RecordCount = 0 Then Do Until Kyt.EOF ******islem yapilacak yer******* Kyt.MoveNext Loop Kyt.Close Set Kyt = Nothing End Sub

Hocam valla bir işe bulaştım ama bulaşmaz olaydım. Aslında herşeyi yapmıştım ama program yavaş çalışınca değişikliğe gittim. Şimdi en önemli raporlama kısmını yeni şekilde dönüştüremiyorum.

Çapraz sorguları oluşturup en son bir sorgu ile birleştirip rapor sayfasını oluşturmuştum. Ama veri sayfasında çok aşırı veri olduğu için yarım saatlik verilerden günlük ve aylık verileri hesaplarken program çok yavaş çalıştı. Bu nedenle veri sayfasındaki saatlik verileri, ortalama ve say gibi işlevler ile günlük verilere dönüştürüp başka bir tabloya günlük veri olarak insert ettim ve veri sayfasını sildim. Bu şekilde program daha hızlı çalıştı.

Ama hata kodlarını sql ile bir şekilde saydırıp yeni tabloya alamıyorum.

Bana açıkcası aşağıdaki gibi mantıkla bir kod lazım. Left join leri arttırdığım zaman bu şekilde sadece veri1'in hata kodunu sayıyor ve hem veri1'de hemde veri2'de aynı değerler oluyor.

Belki iç içe sorgu yapmak lazım ama yapamadım.

Visual Basic
Dim Kyt As New ADODB.Recordset
sQLA = "SELECT [hata].[kod] as kod,day([veri].[tarih]) as gun,Count([veri].[veri1) AS txtveri1,Count([veri].[veri2) AS txtveri2 FROM [hata] LEFT JOIN [veri] ON [hata].[KOD] = [veri].[veri1] and [hata].[KOD] = [veri].[veri2]  " & _
"WHERE (((Year([veri].[tarih])) = ""2023"")) GROUP  BY [hata].[kod],day([veri].[tarih])"
Kyt.Open Replace(sQLA, "|", Chr(34)), CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If Kyt.RecordCount = 0 Then Exit Sub
Dim GecGun As String, Veri As Double
Do Until Kyt.EOF
 
        CurrentDb.Execute "INSERT INTO YeniTablo (gun,hata,veri1,veri2) VALUES(t1(),veri()," & Kyt!gun & "," & Kyt!Hata & ", " & Replace(Kyt!veri1, ",", ".") & ", " & Replace(Kyt!txtveri2, ",", ".") & ")"
 
 
 
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing

dsezgin · 13-10-2023, 22:05

Visual Basic
Sub jj()
CurrentDb.Execute "DELETE * From [Yeni Tablo]"
Dim SW As Long
For SW = 1 To CurrentDb.TableDefs("Veri").Fields.Count - 2
CurrentDb.Execute "INSERT INTO [Yeni Tablo] ( Tarih, [Veri Adı]) SELECT Format([tarih],'Short Date') AS Trh, 'veri" & SW & "' As Sutun FROM Veri GROUP BY Format([tarih],'Short Date') ORDER BY Format([tarih],'Short Date')"
Next SW
Dim Kyt As New ADODB.Recordset, SutSay, Sayac As Long
Kyt.Open "SELECT * FROM [Yeni Tablo] ORDER BY Tarih", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If Kyt.RecordCount = 0 Then Exit Sub
SutSay = Kyt.Fields.Count - 1
Do Until Kyt.EOF
    For Sayac = 3 To SutSay
             Kyt(Sayac) = DCount("*", "Veri", "Format([tarih],'yyyymmdd')=" & Format(Kyt.Fields(1), "yyyymmdd") & "  And  Veri.[" & Kyt![Veri Adý] & "]=" & Kyt.Fields(Sayac).Name)
    Next Sayac
    Kyt.Update
Sayac = 3
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
End Sub

ile yapılır.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	çapraz Sorgu	toros333	2	133	04-12-2023, 22:02 Son Mesaj: hüsün
	Acces Raporda Metin Kutusundaki Yaziyi Sol Alttan Sağ üste Doğru çapraz Yazdırmak	ŞabanTR	4	170	09-01-2023, 12:43 Son Mesaj: ŞabanTR
	[SORGU] çapraz Sorgu Koşulu Sağlayamayan Görülmüyor	snapper	5	229	26-05-2022, 13:56 Son Mesaj: snapper
	[SORGU] Access çapraz Sorgu Koşul Kullanmak	erdalcetinoutlook	3	460	04-02-2021, 10:14 Son Mesaj: sametunal
	[SORGU] çapraz Sorgu Temelli Raporlarda Koşul / Filtre Kullanmak	ctnerdal	2	484	31-01-2021, 19:48 Son Mesaj: ctnerdal
	[SORGU] çapraz Sorgu Ile Oluşturulan Grafik	ekremer1969	2	395	28-01-2021, 17:39 Son Mesaj: ekremer1969
	[SORGU] Acces çapraz Sorguların Hesaplanması	admylmaz@gmail.com	1	386	08-01-2021, 20:22 Son Mesaj: dsezgin
	[SORGU] çapraz Sorguda Sıralamayı Değiştirme	ekremer1969	2	412	30-12-2020, 07:45 Son Mesaj: ekremer1969

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL