ADO ile İki Ayrı Tablodan Veri Listeleme

Bu dosya, aynı çalışma kitabındaki iki ayrı sayfanın ADO bağlantısı ve SQL sorgusu ile KOD alanı üzerinden eşleştirilerek veri listelenmesini gösterir. RAPOR sayfasında seçilen yıl ve aya ait ödenek adları ile miktarları bir düğmeyle listelenir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• YANHAKLAR: A1:B11 aralığında KOD başlığı altında 1'den 10'a kadar kodlar yer alır. Sorguda bu sayfadan ADI alanı okunur.
• ODENEKLER: A1:D9 aralığında KOD ve AY sütunları ile örnek kayıtlar bulunur. Aynı kod farklı aylarda birden fazla kez geçebilir.
• RAPOR: Yıl için C4, ay için C5 hücresi kullanılır. B7 hücresindeki ÖDENEK ADI başlığının altında sonuçlar B ve C sütunlarına listelenir.

Yıl ve ay hücreleri sırasıyla yil ve ay adlarıyla tanımlıdır. Dosyada hücre formülü kullanılmamıştır; hesaplama SQL sorgusu ile yapılır.

Makrolar​

• Baglanti_Yap (Baglanti modülü): ADODB.Connection nesnesini oluşturur ve bu çalışma kitabını microsoft.ace.oledb.12.0 sağlayıcısı ile veri kaynağı olarak açar. Başlık satırı kullanılır (hdr=yes). Excel sürümüne göre ayrı bağlantı satırları yazılmış olsa da hepsi aynı bağlantı dizesini kurar. Bağlantı zaten açıksa makro bağlantıyı kapatıp çıkar.
• CommandButton1_Click (RAPOR sayfasındaki düğme): Önce bağlantıyı kurar, ardından YANHAKLAR ve ODENEKLER sayfalarını KOD eşleşmesi ve seçilen yıl ile ay koşuluyla birleştiren bir SELECT sorgusu çalıştırır. Kayıt bulunursa B8:C500 aralığı temizlenir; ADI değerleri B sütununa, MIKTAR değerleri sayıya çevrilerek C sütununa satır satır yazılır.

Kodda dosya silme veya dışarıya bağlantı işlemi yoktur; bağlantı yalnızca dosyanın kendisine kurulur. Microsoft ACE OLEDB sağlayıcısının bilgisayarda yüklü olması gerekir.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. RAPOR sayfasında yıl ve ay hücrelerine değer girin.
3. Sayfadaki düğmeye tıklayın.
4. Eşleşen kayıtlar ÖDENEK ADI başlığının altına listelenir.
5. Kendi verilerinizi kullanmak için ODENEKLER ve YANHAKLAR sayfalarındaki kayıtları değiştirin; sorgudaki YIL ve MIKTAR alan adlarına karşılık gelen sütun başlıklarının sayfada bulunmasına dikkat edin.