arkadaşlar merhaba ben formumda birden fazla kritere gore arama yapmak istiyorum ama beceremedim.
yani diyelimki 12 adet combobox um var ve herbir combobox bir alana ait. ve bu alanlar sadece onceden kayıtlı olan verileri gosteriyor(accsess) sectiklerim ise SQL icinde bir tabloya kaydediliyor.
ben bu accsess e bağlantılı comboboxlardan secim yapmak istiyorum ve yaptığım secim conucunda kayıtların bir textboxa aktarılması gerekiyor.
ama her combobox birbiri ile etkileşimli olması lazım

şoyle anlatayım:
diyelimki accsessten cektiğim 3 tablo olsun (ozellikleri.mbd)bunlar;
ili, ilcesi ve koyu
SQL de ise ;
(uyeler.mdf) adı altında
adı, soyadı, ili, ,lcesi ve koyu alanları olsun.
accsessten cektiğim tablolar combobox ta listelenir hangisini secersem SQL deki uyeler tablosunda gerekli alanlara yazılır.
arama formunda ise yine 3 combobox olsun
ara butonuna bastığımda bana 3 comboboox uda değerlendirip varsa kayıdı gostersin. eğer 3 şartıda sağlamıyorsa listbox ya boş kalabilir ya da uyarı verebilir.
arkadaşlar ben bu arama olayına kadarki kısmı gayet guzel yaptım gel gelelim burda tıkandım.
aşağıdaki kod parcasını buldum ama nasıl uygulayacağımı birturlu cozemedim.
bana bunu bilenleriniz bir yazıverse ne kadar makbule gececek.
aramadığım yer kalmadı.
hatta sorgu sonuclarının bir textboxa nasıl getirilebileceğine dair konu da ictım ama cevap gelmedi.
bileniniz varsa bi el atabilirmi bu işe
ilgilenenlere şimdiden teşekkurler

__________________________________________________ ______
Dim sql As String
Dim son_sql As String
Dim alan(12) As String
Dim sorgu(12) As String
Dim i As Byte

alan(1) = "sno"
alan(2) = "tc"
alan(3) = "adi"
alan(4) = "soyadi"
alan(5) = "bolgeadi"
alan(6) = "mahalle"
alan(7) = "sokak"
alan(8) = "dogumtarihi"
alan(9) = "dogumyeri"
alan(10) = "cinsiyet"
alan(11) = "telefon"
alan(12) = "ogrenimdurumu"


sorgu(1) = txtetfno.Text
sorgu(2) = txttc.Text
sorgu(3) = txtadi.Text
sorgu(4) = txtsoyadi.Text
sorgu(5) = txtbolge.Text
sorgu(6) = txtmahalle.Text
sorgu(7) = txtsokak.Text
sorgu(8) = txtdogumtarihi.Text
sorgu(9) = txtdogumyeri.Text
sorgu(10) = txtcinsiyet.Text
sorgu(11) = txttelefon.Text
sorgu(12) = txtogrenimdurumu.Text


sql = "select tfno,tc,adi,soyadi,bolgeadi,mahalle,sokak,dogumtar ihi,dogumyeri,cinsiyet,telefon,ogrenimdurumu from table where "


For i = 1 To 12
If sorgu(i) "" Then
sql = sql + alan(i) + "=`" + sorgu(i) + "` and "
End If
Next i


son_sql = Mid(sql, 1, (Len(sql) - 5))


Dim adapter As New OdbcDataAdapter(son_sql, MyConnection)
ks = New DataSet()
adapter.Fill(ks, "etf")
Grid.DataSource = ks.Tables(0)
__________________