ADO ile Yaş Bulma

Bu dosya, PERSONEL sayfasındaki çalışan kayıtlarından doğum tarihlerine göre yaşları hesaplar ve sonucu ayrı bir sayfada listeler. İşlem hücre formülleriyle değil, ADO bağlantısı ve SQL sorgusu ile bir makro üzerinden yapılır. Büyük personel listelerinde yaş bilgisine ihtiyaç duyan kullanıcılar için ADO yönteminin uygulamalı bir örneğidir.

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

Dosyanın içeriği​

• PERSONEL: Kaynak veri sayfasıdır. A1:H4657 aralığında SİCİL, SOYADI, GİRİŞTARİHİ gibi sütunlar ve sicil numarası 145001'den başlayan personel kayıtları bulunur. Yaş hesabında DOĞUMTARİHİ sütunu kullanılır.
• Sheet2: Sonuç sayfasıdır. Başlık satırında SİCİL ve SOYADI alanları hazır gelir; makro çalıştığında kayıtlar A2 hücresinden itibaren buraya yazılır.

Makrolar​

Dosyada Module1 içinde tek makro vardır: ADO_Yas.

• Çalışma kitabının kendisine ADO bağlantısı açar. Office sürümüne göre Microsoft.ACE.OLEDB.12.0 veya Microsoft.Jet.OLEDB.4.0 sağlayıcısı otomatik seçilir.
• PERSONEL sayfasından SİCİL, ADI ve SOYADI alanlarını okur. Yaş, bugünün tarihi ile DOĞUMTARİHİ farkının 365,25'e bölünüp yuvarlanmasıyla hesaplanır.
• Sheet2 üzerinde A2:D65536 aralığını temizler ve sorgu sonucunu A2 hücresinden itibaren yazar. Sorgu kayıt döndürmezse A2 hücresine "Veritabanında veri yok" yazılır.
• Dosya silme veya dışarıya bağlantı gibi işlemler yapılmaz; bağlantı yalnızca dosyanın kendisine kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. PERSONEL sayfasındaki verilerin, sorguda kullanılan SİCİL, ADI, SOYADI ve DOĞUMTARİHİ sütun başlıklarını içerdiğini kontrol edin.
3. Alt+F8 ile ADO_Yas makrosunu seçip çalıştırın.
4. Sheet2 sayfasında sicil, ad, soyad ve hesaplanan yaş listelenir.
5. Veriler değiştiğinde makroyu yeniden çalıştırın; önceki sonuçlar temizlenerek liste yenilenir.

Makro, çalışma kitabının kayıtlı dosya yolunu kullandığından dosyanın önce bir klasöre kaydedilmesi gerekir.