[ÇÖZÜLDÜ] ListView'den Text ve Combobox Kutularına Nasıl Veri Aktarabilirim?

[Tasarım]

Formda bir adet Listbox var ve içerisinde çeşitli veriler var. Ben Textbox kutusuna yazdığım veriyi Excel'i kullanmadan sadece Listbox'ta süzmek istiyorum. Bunu en kısa ve anlaşılır yoldan nasıl yapabilirim? Forumu 2 gündür araştırıyorum ancak böyle bir soruyla veya bilgiye rastlayamadım.

Bu konuda yardımlarınızı bekliyorum arkadaşlar.

 

[Tasarım]

Formda bir adet Listbox var ve içerisinde çeşitli veriler var. Ben Textbox kutusuna yazdığım veriyi Excel'i kullanmadan sadece Listbox'ta süzmek istiyorum. Bunu en kısa ve anlaşılır yoldan nasıl yapabilirim? Forumu 2 gündür araştırıyorum ancak böyle bir soruyla veya bilgiye rastlayamadım.

Bu konuda yardımlarınızı bekliyorum arkadaşlar.

Bu konuda bilgisi olan yok mu arkadaşlar.? Takıldım kaldım burda.

 

[Zeki Gürsoy]

Hangi sütun süzülecek?
Kriter nasıl değerlendirilecek?(ile başlar, ile biter, içerir)
Kriter hangi textbox nesnesinden bakılacak?
Nasıl tetiklenecek? (Butonla, tuş olayıyla, çıkınca, değişince.. vs)

Sorularınızı daha açık sormaya gayret edin ki cevapsız kalmasın..

 

[Tasarım]

Hangi sütun süzülecek?
Kriter nasıl değerlendirilecek?(ile başlar, ile biter, içerir)
Kriter hangi textbox nesnesinden bakılacak?
Nasıl tetiklenecek? (Butonla, tuş olayıyla, çıkınca, değişince.. vs)

Sorularınızı daha açık sormaya gayret edin ki cevapsız kalmasın..

Süzülecek Sütun: Veri Sayfası B sütunu
Süzülecek Kriter: Adı ve Soyadı isimli Textbox
Kriter Değerlendirme: İçerir

Textbox kutusuna isim yazılıp, çıkıldıktan sonra (Exit) olay tetiklenecek
veri sayfası, B sütununda ilgili kayıt varsa Listboxta sadece onu göstermesini istiyorum.

 

[Zeki Gürsoy]

"veritabani" sayfasında sütun başlıkları yok. .satırda sütun başlıkları osun..

Private Sub adi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
adi.Value = StrConv(adi.Value, vbProperCase)
'**************
Set cn = CreateObject("ADODB.Connection")
cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & _
ThisWorkbook.FullName

Set rs = cn.Execute( _
"select * from [veritabani$] where adi like '%" & adi & "%'")

With Me.ListBox1
    .ColumnCount = rs.fields.Count
    .Column = rs.getrows
End With

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub

 

[Tasarım]

Üzgünüm ama yine çalışmadı. Dosyayı ekliyorum. Yapmak istediğim Yeni_Kayit formuyla "veri" isimli sayfada daha önce yapılan kayıtlar arasında sorgu yapmak istiyordum ama bir türlü beceremedim.

Gösterdiğiniz ilgiye teşekkür ederim.

 

[Zeki Gürsoy]

Private Sub adi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
adi.Value = StrConv(adi.Value, vbProperCase)

Set cn = CreateObject("ADODB.Connection")
cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & _
ThisWorkbook.FullName

Set rs = cn.Execute( _
"select * from [veri$] where [Adı ve Soyadı] like '%" & adi & "%'")

With Me.Liste
    .RowSource = Empty
    .ColumnWidths = "28;70;120;50;60;60;58;45;45;140"
    .ColumnCount = rs.fields.Count
    .Column = rs.getrows
End With

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub

 

[Tasarım]

Sorun aşağıdaki kodla çözülmüştür. Katkılarından dolayı Sayın Zeki Gürsoy Beyfendiye ve diğer arkadaşlara çok teşekkür ederim.

[FONT="Tahoma"]Private Sub Listele_Click()
kriter = Yeni_Kayit.adi
If kriter = Empty Then Exit Sub
Yeni_Kayit.Liste.RowSource = ""
say = WorksheetFunction.CountIf([B:B], kriter)
For b = 1 To say
adr = "B" & sat + 1 & ":b65536"
sat = WorksheetFunction.Match(kriter, Range(adr), 0) + sat
Yeni_Kayit.Liste.AddItem
For a = 1 To 10
Yeni_Kayit.Liste.List(c, a - 1) = Cells(sat, a)
Next
c = c + 1
Next
    Liste.ColumnHeads = False
    Liste.ColumnCount = 10
    Liste.ColumnWidths = "28;70;120;50;60;60;18;35;35;140"
End Sub[/FONT]