Access de Listview üzerinden arama yapmak

[everestinternet]

iyigünler;

Ben şöyle bir olay yapmak istiyorum. Access veritabanı kullanıyorum. Sürekli girilen müşteri listem var. Müşteri listesini listview ile yaptım. Access den listview e aktardığım listenin "ADI VE SOYADI" sütunda bulunan müşteri isimleri içinden textbox a yazacağım adı listview de bulmasını istiyorum. Yalnız arama yaparken isim içerisinde de arama yapmasını istiyorum. Bir örnek ile açıklayacak olursam;

Listview Görüntüsü
M. NO. ADI VE SOYADI ADRES USTA ADI
1 MEHMET AHMET YENİ MAH. HAYDAR USTA
2 VEDAT KENAN YENİ MAH. HAYDAR USTA

Burada ben textbox da "E" harfini yazdığım zaman hem 1 nolu hemde 2 nolu müşterileri listview den süzmesini istiyorum. Eğer "AH" yazarcam sadece 1 nolu müşteriyi listview de göstersin.

Umarım sorunumu anlatabilmişimdir. Böyle bir olay belirttiğim araçlar ile (access,listview) yapılması mümkünmüdür. Kodları yazabilirmisiniz.
Yardımcı olacak arkadaşlara şimdiden teşekkürler...

 

[Murat OSMA]

Şu konuda sabah bir örnek ekledim.

İnceleyiniz...
http://www.excel.web.tr/f48/deoi-ken-access-dosyasyndan-excele-t115229.html

 

[everestinternet]

Şu konuda sabah bir örnek ekledim.

İnceleyiniz...
http://www.excel.web.tr/f48/deoi-ken-access-dosyasyndan-excele-t115229.html

Hemen inceliyorum üstadım. Saolasın..

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[everestinternet]

Rica ederim, iyi günler.

Üsatadım tekrar rahatsız ettim kusura kalma. Ben aşağıdaki gibi bir kod bloğu yazdım.

Private Sub TextBox1_Change()

On Error Resume Next
On Error GoTo KAYIT_YOK:

Set baglan = CreateObject("adodb.connection")
baglan.Provider = ("microsoft.jet.oledb.4.0")
baglan.Open "c:\vt.mdb"

Set rs = CreateObject("ADODB.recordset")
  
strsql = "SELECT * FROM musteri WHERE musteri_adi Like '%" & TextBox1.Text & "%' ORDER BY musteri_adi"
rs.Open strsql, baglan, 1, 3
  If rs.EOF = True Then
    ListView1.ListItems.Clear
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    baglan.Close
    Set baglan = Nothing
    Exit Sub
    Else
      rs.MoveFirst
  End If

  ListView1.ListItems.Clear
  CommandButton1_Click 'Burası benim access vt de ki tüm kayıtları getiriyor
KAYIT_YOK:
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    baglan.Close
    Set baglan = Nothing
End Sub

aynen kendime bu şekilde uyarladım. çalışıyor. fakat süzme işlemini yapmıyor. örneğin müşteri isimleri içerisinde ismi AHMET MERCAN olan kişi için textbox içinde AHMET MERCAN yazmama rağmen bütün listeyi görüyorum halen. ama AHMET MERCAN1 (sonuna başka bir karakter eklediğim zaman) tüm liste kayboluyor. Sizce nerede yanlış yaptım...

 

[Murat OSMA]

Dosyanızı bir gönderin inceleyeyim...

 

[everestinternet]

Dosyanızı bir gönderin inceleyeyim...

Hocam dosyam çok karışık. gönderebilmem için baştan düzenleme yapmam lazım.
mümkünse benim yazdığım koda göre hatam nerede söyleyebilirmisiniz.

 

[everestinternet]

sayın üstadım
aynen sizin dosyadaki gibi bir yapı oluşturdum. baştan herşeyi yazdım.
ve sonuç mükemmel oldu. ilgi ve alakanızdan dolayı şükranlarımı sunuyorum.
teşekkürler...

 

[Murat OSMA]

Rica ederim, iyi akşamlar...