ACCESS VERİ TABANLI LİSTBOXTAN 2 DEĞİŞKENLİ İŞLEM ARAMA

[ofbayoglu]

ARKADAŞLAR MERHABA AŞAĞIDAKİ KODLARDA LİSTBOXTA ARAMA YAPABİLİYORUM. HEM FİRMA HEMDE DURUMU ŞEKLİNDE ARAMA YAPMAK İSTİYORUM FAKAT YAPAMIYORUM. ARAMA İŞLEMİNİ NASIL YAPABİLİRİM..





Private Sub ComboBox6_Change()
Dim baglan As New Connection
Dim rs As New Recordset

ListBox1.Clear

On Error Resume Next

T1 = Me.ComboBox6.Text

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select * from siparis where firma=('" & T1 & "')", baglan, adOpenKeyset, adLockPessimistic

With siparis.ListBox1
.ColumnCount = 13
.ColumnWidths = "0;20;50;100;120;40;40;40;50;50;70;70"
.Column = rs.GetRows

End With

rs.Close

baglan.Cl

 

[Korhan Ayhan]

Lütfen bağırmayınız.

Forum kurallarını okuyunuz.

 

[ofbayoglu]

Lütfen bağırmayınız.

Forum kurallarını okuyunuz.

çok özür dilerim hocam farketmedim capslock açık kaldı paylaştıktan sonra farkettim.

 

[Zeki Gürsoy]

Detayları bilmiyoruz ama şunun gibi birşey olsa gerek...

...where firma = '" & T1 & "' And durum = '" & combobox & "'"