ADO ile ComboBox Nesnesine Veri Alma

Bu şablon, ADO (ADODB) bağlantısı ve SQL sorguları kullanarak ComboBox nesnelerine çalışma sayfasındaki verilerin nasıl alınacağını gösterir. İki ComboBox birbirine bağlıdır: ilkinde kişi seçilir, ikincisinde seçilen kişiye ait kayıtlar listelenir.

Dosyanın içeriği​

• home: ComboBox nesnelerinin bulunduğu ana sayfadır. Kullanıcı seçimleri bu sayfadan yapılır.
• data: A1:C3 aralığında kişi listesi bulunur. Sorgu bu sayfadaki NAME, SURNAME ve ID alanlarını kullanır.
• data1: A1:C5 aralığında her kişinin NUMBERID değerine bağlı TEXT kayıtları bulunur. İkinci ComboBox bu sayfadan beslenir.

Dosyada çalışma sayfası formülü yoktur; tüm işleyiş VBA kodu ile sağlanır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar olay tabanlıdır, ayrıca çalıştırılması gerekmez.

• Workbook_Open (ThisWorkbook): Dosya açıldığında çalışır. Dosyanın kendisine ADO bağlantısı kurar, data sayfasından ad ve soyadı birleştirilmiş şekilde ve ID değeriyle birlikte, ada ve soyada göre sıralı olarak okur. Sonucu ilk ComboBox'a aktarır. Görünen sütun ad soyaddır, ID sütunu genişliği 0 olduğu için gizlidir.
• ComboBox1_Change (Sheet1): İlk ComboBox'ta seçim değiştiğinde çalışır. İkinci ComboBox'ı temizler, seçilen kişinin ID değerini sorguya katar ve data1 sayfasında NUMBERID değeri eşleşen TEXT kayıtlarını ikinci ComboBox'a yükler.

Bağlantı sağlayıcısı Excel sürümüne göre seçilir: 12.0 ve 14.0 sürümlerinde Microsoft.ACE.OLEDB.12.0, diğer sürümlerde Microsoft.Jet.OLEDB.4.0 kullanılır. Kod dosyanın kendi klasöründeki kopyasına bağlandığı için dosya kaydedilmiş olmalıdır. Kodda dosya silme veya dışarıya bağlantı işlemi yoktur.

Nasıl kullanılır​

1. Dosyayı bir klasöre kaydedin ve açarken makroları etkinleştirin.
2. home sayfasında ilk ComboBox'ın listesinin yüklendiğini görün ve bir kişi seçin.
3. İkinci ComboBox'ta seçilen kişiye ait kayıtların listelendiğini kontrol edin.
4. Kendi verinizi kullanmak için data ve data1 sayfalarındaki satırları değiştirin; başlık adlarını (NAME, SURNAME, ID, NUMBERID, TEXT) koruyun.