ADO ile bul, sil, değiştir, ekle

Bu dosya, ADO (ActiveX Data Objects) bağlantısı ile bir Excel sayfasının veri tabanı gibi kullanılmasını gösterir. Bir UserForm üzerinden personelin sicil numarası, ad soyad, beden ve kan grubu bilgileri listelenir; yeni kayıt eklenebilir, mevcut kayıt değiştirilebilir veya silinebilir.

Dosyanın içeriği​

• Sayfa1: A1:F14 aralığında veri bulunur. Görünen başlıklar Sicil No, Elbise ve Ayakkabı sütunlarıdır; 13 satır kayıt vardır (örneğin sicil 110279, elbise 54, ayakkabı 43). Koddaki sorgulara göre tabloda Adı SOYADI, T-Şört ve Kan Grubu alanları da kullanılmaktadır.
• Module1: Makro1 adlı makro UserForm1 formunu açar.
• UserForm1: Kayıtların görüntülendiği ListBox, altı adet TextBox ve üç CommandButton içerir.

Dosyada formül bulunmaz; tüm işlemler makro ve SQL sorguları ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem görünmemektedir; bağlantı yalnızca açık olan çalışma kitabının kendisine kurulur.

• Makro1: UserForm1 formunu gösterir.
• UserForm_Initialize: Form açılırken microsoft.ace.oledb.12.0 sağlayıcısı ile çalışma kitabına ADO bağlantısı kurar (başlık satırı kabul edilir) ve listele yordamını çağırır.
• listele: Sayfa1 içindeki tüm kayıtları Select sorgusuyla alıp ListBox içine aktarır ve sütun genişliklerini ayarlar.
• ListBox1_Click: Listeden seçilen kaydın alanlarını TextBox kutularına taşır.
• CommandButton1_Click (Ekle): TextBox değerleriyle insert sorgusu çalıştırır, listeyi yeniler ve kutuları temizler.
• CommandButton2_Click (Sil): Listeden seçim yapılmamışsa uyarı verir. Seçim varsa ilgili Sicil No'lu satırın tüm alanlarını update sorgusuyla boş (null) yapar. Satır sayfadan kaldırılmaz, hücreleri boşaltılır.
• CommandButton3_Click (Değiştir): Seçili kaydı, TextBox içindeki değerlerle update sorgusu kullanarak günceller.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Makro1 makrosunu çalıştırarak (Alt+F8) formu açın.
3. Kayıt eklemek için kutuları doldurup Ekle düğmesine basın.
4. Değiştirmek veya silmek için önce listeden kaydı seçin; değişiklikte kutulardaki bilgileri düzenleyip Değiştir düğmesine, silmek için Sil düğmesine basın.

Bağlantı ACE sağlayıcısını kullandığından bilgisayarınızda Microsoft Access Database Engine bulunmalıdır. Bağlantı dosyanın kendi yolunu kullandığı için dosyanın kayıtlı olması gerekir.