Visual basic Databesede arama yapma

Ekran görüntüsü veya biraz daha açıklayacı bilgi verirsen yardımcı olabilirim.

Ancak, anladığımı kadarıyla söyleyeyim. SQL den her tıklanan comboya göre süzme yapıp o alanları temizlediğin combolara tekrar yazman lazım.

Kolay gelsin.

uygulamaniz VB.NET mi yoksa VB 6.0 mi ?

cevaplarınız ıcın cok teskkr ederım uygulama vb.net de yapıormda konuyu acıcam resım eklenmıyor nedense forma buraya yanı prın lıcem ama yaptım gozukmedı olayım benım su bakın

 formum servıs takıp programımda personel kısmında sayfa yuklendıgınde butun personeller okullar ekrana grıdwıew a doluyor bunda sıkıntı yok yukarda arama butonum ve combolarım textlerım var burdan herhangı bseyı arama yapıorm ancak hıcbırını doldurmadan sadece combodakı okullardan bırını secıtıgımde o okula kayıtlı ogrencıler vs bunların gelmesını ıstıorm ama butona bastıgımda ekranda hata alıorm kod kısmım bu

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a11, a21, a31, s1, s2, s11, s12 As Integer

a11 = DST.Tables("DTpert").Rows.Count - 1

If a11 > 0 Then

For a21 = 0 To a11 Step 1

DST.Tables("DTpert").Rows(0).Delete()

Next

End If

If TextBoxSoyAdi.Text <> "" Then

End If

'SADECE OKULA GRE

DST.Tables("DTpert").Clear()

t2 = DST.Tables("DTpert")

' Dim adsay As Integer

For a31 = 0 To t.Rows.Count - 1 Step +1

If IsDBNull(t.Rows(a31)("okulu")) Or IsDBNull(t.Rows(a31)("adi")) Or IsDBNull(t.Rows(a31)("soyadi")) Then

MessageBox.Show("hata")

End If

If Mid(t.Rows(a31)("okulu"), 1, s1) = ComboOkul.Text And _

Mid(t.Rows(a31)("adi"), 1, s11) = TextBoxAdi.Text _

And Mid(t.Rows(a31)("soyadi"), 1, s12) = TextBoxSoyAdi.Text _

Then

r2 = DST.Tables("DTpert").NewRow()

r2("id") = s2

r2("okulno") = t.Rows(a31)("okul_no")

r2("okulu") = t.Rows(a31)("okulu")

r2("adi") = t.Rows(a31)("adi")

r2("soyadi") = t.Rows(a31)("soyadi")

r2("semtkodu") = t.Rows(a31)("semt_kodu")

r2("servisno") = t.Rows(a31)("arac_no")

r2("aciklama") = t.Rows(a31)("aciklama")

r2("indx") = a31

Else

If ComboOkul.Text = "" Or Len(ComboOkul.Text) = 0 Then

r2 = DST.Tables("DTpert").NewRow()

r2("id") = s2

r2("okulno") = t.Rows(a31)("okul_no")

r2("okulu") = t.Rows(a31)("okulu")

r2("adi") = t.Rows(a31)("adi")

r2("soyadi") = t.Rows(a31)("soyadi")

r2("semtkodu") = t.Rows(a31)("semt_kodu")

r2("servisno") = t.Rows(a31)("arac_no")

r2("aciklama") = t.Rows(a31)("aciklama")

r2("indx") = a31

End If

End If

Next

'SADECE OKULA GRE BTT

 hata sole dbnull de verıor ordakı altı ve ustu cızılı kodu ben ekledım sonradan bu seferde sectıgımde msg boxta sureklı hata yazımı ekrana basıor sorun ne olabılır:S:S yardım edersenız sevınırm:S

foruma resimle bir şeyler ifade edebilmeniz için resmi bir yere yükleyip link atmanız gerekebilir

bu linke ilgili resmi yükleyip foruma linki verebilirsiniz

http://imageshack.us/