ADO ile İki Tarih Arası Sorgulama

Bu dosya, ADO bağlantısı ile bir Excel sayfasındaki kayıtların iki tarih arasında sorgulanmasını ve sonucun başka bir sayfaya aktarılmasını gösteren makrolu bir örnektir. Başlangıç ve bitiş tarihi Sayfa1'de girilir; makro bu aralığa uyan satırları SQL sorgusuyla seçer ve Sayfa2'ye yazar.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Kaynak veri sayfasıdır (A1:L19). Sütun başlıkları arasında Sicil, Adı, Soyadı, Işe Giriş T, Çıkış T., Görev ve ÇALIŞMA GÜNÜ bulunur. Sorgulanacak tarih aralığı L2 (başlangıç) ve L3 (bitiş) hücrelerinden okunur.
• Sayfa2: Sonuç sayfasıdır (A1:E5). Sorguya uyan kayıtlar A2 hücresinden itibaren listelenir.

Makrolar​

Dosyada Module1 içinde user adlı tek bir makro vardır. Makro sırasıyla şunları yapar:

1. Sayfa2'deki A2:E10000 aralığını temizler, böylece önceki sonuçlar silinir.
2. Microsoft ACE OLEDB 12.0 sağlayıcısı ile dosyanın kendisine ADO bağlantısı açar.
3. L2 ve L3 hücrelerindeki tarihleri okur.
4. Sayfa1'den Sicil, Adı, Soyadı, Işe Giriş T ve ÇALIŞMA GÜNÜ sütunlarını, Işe Giriş T değeri iki tarih arasında kalan ve Sicil alanı boş olmayan kayıtlar için seçer.
5. Sonucu CopyFromRecordset ile Sayfa2'nin A2 hücresinden başlayarak yazar.
6. Bağlantıyı kapatır, Sayfa2'yi açar ve "İşlem Tamam" mesajını gösterir.

Kodda dosya silme ya da dışarıya bağlantı yoktur; bağlantı yalnızca çalışma kitabının kendisine kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de L2 hücresine başlangıç, L3 hücresine bitiş tarihini girin.
3. Gerekirse Sayfa1'deki personel kayıtlarını kendi verilerinizle değiştirin; sütun başlıkları sorguda kullanıldığı için aynı kalmalıdır.
4. Alt+F8 ile user makrosunu çalıştırın.
5. Sayfa2'de listelenen kayıtları kontrol edin.

Bağlantı için bilgisayarda ACE OLEDB 12.0 sağlayıcısının (Microsoft Office ile gelir) kurulu olması gerekir.