Veritabanında Kayıt Bulma

[bluefalcon]

Arkadaşlar merhaba,

635 kayıt bulunan MAC isimli bir Acces accdb dosyasındaki PERSONEL tablosunun SICIL başlıklı sütundan userform üzerindeki textbox a yazılan bir değer ile arama yaptırmak istiyorum. Kodu şu şekilde düşündüm ama bulamıyor. Nerede hata yapıyorum yardımcı olabilir misiniz?

Set baglan = New ADODB.Connection
Set ks = New ADODB.Recordset

Call baglanti
ks.Open "select * from [MAC] WHERE [PERSONEL].SICIL LIKE '%" & TextBox1.Value & "%'", baglan, 1, 1

 

[Orion1]

Deneyiniz.

ks.Open "select * from [PERSONEL] WHERE SICIL LIKE '%" & TextBox1.Value & "%'", baglan, 1, 1

 

[bluefalcon]

Yanıtınız için teşekkür ederim. Denediğimde aşağıdaki hata mesajını aldım;

Run-time error

The connection cannot be used to perform this operation. It ıs either closed or invalid in this context

 

[Orion1]

Yanıtınız için teşekkür ederim. Denediğimde aşağıdaki hata mesajını aldım;

Run-time error

The connection cannot be used to perform this operation. It ıs either closed or invalid in this context

connectionda bir hata var.Excel dosyanızı ve ilgili veritabanınız ekleyiniz.Yada siz connectionu gözden geçiriniz.

 

[bluefalcon]

Sayın Orion1 connection kontrolünü yaptım ama çözüm bulamadım. Dosyaları ekte bulabilirsiniz. Access dosyasındaki kayıtları UserPersonel formu üzerinde bulunan BUL butonuna bastığımda Listbox da sadece bulunması istenen kaydın görünmesini istiyorum. Ama 2 gündür aklıma gelen tüm değişiklikleri yapmama rağmen beceremiyorum.. Bu kodları da farklı bir uygulamadan uyarlamaya çalıştığımı belirtmeliyim. Desteğiniz için şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

 

[bluefalcon]

Çok teşekkür ederim, emeğinize sağlık.

 

[Orion1]

Çok teşekkür ederim, emeğinize sağlık.

Rica ederim.
İyi çalışmalar.