Sql Komut Yöntemi ile ADO işlemleri

Bu dosya, ADO'nun ADODB.Command ve ADODB.Parameter nesneleri ile Access veritabanındaki personel kayıtlarının nasıl yönetileceğini gösteren bir UserForm örneğidir. Kayıtlar parametreli SQL komutlarıyla eklenir ve güncellenir, liste form üzerindeki ListBox'ta gösterilir.

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

Dosyanın içeriği​

• Sayfa1: Boş bir sayfadır, formu açan CommandButton1 düğmesi burada bulunur.
• UserFormExcelDepo: Personel bilgilerinin girildiği ve kayıtların listelendiği kullanıcı formudur. Ad, soyad, TC kimlik no, görev, doğum tarihi, başlama tarihi, açıklama alanları ile "Aktif" onay kutusu ve kayıt numarasını tutan bir etiket (LabelNo) içerir.

Veritabanı dosyası olarak ThisWorkbook.Path klasöründe exceldepo.mdb aranır. Bu dosya özet içinde görünmediği için Excel dosyasıyla aynı klasörde bulunması gerekir.

Makrolar​

• CommandButton1_Click (Sayfa1): UserFormExcelDepo formunu açar.
• UserForm_Initialize: Form açılırken Personel tablosundaki tüm kayıtları listeler.
• ListelePmt: Microsoft.Jet.OLEDB.4.0 sağlayıcısıyla bağlantı kurar, ADODB.Command ile verilen SQL'i çalıştırır ve sonucu ListBox1'e aktarır. Kayıt yoksa listeyi boşaltır.
• BtnKaydet_Click: Kayıt numarası boşsa INSERT, doluysa UPDATE komutu hazırlar. Değerleri CreateParameter ile parametre olarak gönderir. Boş metin alanları Null olarak kaydedilir, geçerli olmayan tarihler de Null olur. Kayıttan sonra form temizlenir ve liste yenilenir.
• ListBox1_DblClick: Çift tıklanan satırın bilgilerini düzenlemek üzere form alanlarına doldurur.
• ListBox1_KeyDown: Listede bir satır seçiliyken Delete tuşuna (KeyCode 46) basılırsa seçili kaydı Personel tablosundan siler. Silme işlemi için onay sorulmaz.
• BtnClear_Click ve Temizle: Form alanlarını sıfırlar, Aktif kutusunu işaretler.
• BtnAra_Click ve btnRenew_Click: Arama ve listeyi yenileme düğmeleridir. Kodun bu bölümü özette kısaltıldığı için ayrıntıları burada verilmemiştir.

Kodda dışarıya bağlantı yoktur. Dosya silme benzeri bir işlem de yoktur. Yalnızca yerel exceldepo.mdb içindeki kayıtlar eklenir, değiştirilir veya silinir.

Nasıl kullanılır​

1. Zip dosyasını açın, ExcelDepo.xlsm ile exceldepo.mdb dosyasını aynı klasöre koyun.
2. Dosyayı açıp makroları etkinleştirin.
3. Sayfa1'deki düğmeye tıklayarak formu açın.
4. Bilgileri girip kaydet düğmesiyle yeni kayıt ekleyin.
5. Mevcut kaydı düzenlemek için listede çift tıklayın, değiştirip yeniden kaydedin.
6. Kaydı silmek için listeden seçip Delete tuşuna basın.

Jet 4.0 sağlayıcısı kullanıldığı için .mdb biçimi ve uygun bir ortam gerekir. Ayrıca VBA projesinde Microsoft ActiveX Data Objects kitaplığına başvuru eklenmiş olmalıdır.