iki koşulda filtre vb6 icin

[Fuat Şirin]

Merhaba Arkadaşlar

Vb6 Hazırladığım Bir Projede

Private Sub Text1_Change()
On Error GoTo 11
Adodc1.Recordset.Filter = "model_no like '" & Text1.Text & "%' "
Set DataGrid2.DataSource = Adodc1
Label4 = Adodc1.Recordset.Fields(3)
Label5 = Adodc1.Recordset.Fields(4)
Label6 = Adodc1.Recordset.Fields(5)
Label7 = Adodc1.Recordset.Fields(6)
11
End Sub

Private Sub Text2_Change()
On Error GoTo 10
Adodc1.Recordset.Filter = "Alt_barkod like '" & Text2.Text & "%' "
Set DataGrid2.DataSource = Adodc1
Label4 = Adodc1.Recordset.Fields(3)
Label5 = Adodc1.Recordset.Fields(4)
Label6 = Adodc1.Recordset.Fields(5)
Label7 = Adodc1.Recordset.Fields(6)
10
End Sub

Bu Kodları Kullanarak datagridde ürünleri filtreliyorum
iki koşulu ayrı ayrı alıyor bu şekilde

istediğim iki koşulu bir alması
yani text1 ve text2 için iki koşulda aranan listeyi bulması

şimdiden çok teşekkür

 

[Fuat Şirin]

konu günceldir

 

[Taruz]

Merhaba..

and işleçi ile (amacınıza göre or da olabilir) birleştirerek iki ayrı kriteri tanımlayabilirsiniz..

Adodc1.Recordset.Filter = "Alt_barkod like '" & Text2.Text & "%' and model_no like '" & Text1.Text & "%' "



.