Visual basic Databe...
 
Bildirimler
Hepsini Temizle

Visual basic Databesede arama yapma  

  RSS
Ramazan Düzgün
(@RamazanDuzgun)
Üye

slm arkadaslar suanda bır servıs takıp programı ıle ugrasıyorum personel bolumunden combobox a dolan okul ısımlerınden bırını secınce o okula gore ogrencılerı okul ısmını okul no servıs adı vs.. bunları lıstelıcek bunun ıcın ornek bı kod bılenınız var mı kafam cok karısık :S yardım edersenız cok sevınırım..


Alıntı
Gönderildi : 24/11/2009 17:30
Hikmet SOYDAM
(@HikmetSOYDAM)
Üye

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.

 

CevapAlıntı
Gönderildi : 24/11/2009 17:42
Ufuk Deniz
(@UfukDeniz)
Üye

uygulamaniz VB.NET mi yoksa VB 6.0 mi ?

CevapAlıntı
Gönderildi : 24/11/2009 21:32
Ramazan Düzgün
(@RamazanDuzgun)
Üye

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


s1 = Len(ComboOkul.Text)


s11 = Len(TextBoxAdi.Text)


s12 = Len(TextBoxSoyAdi.Text)


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()


s2 = 0


t2 = DST.Tables("DTpert")


a31 = 0


' 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


t2.Rows.Add(r2)


s2 = s2 + 1


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


t2.Rows.Add(r2)


s2 = s2 + 1


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

CevapAlıntı
Gönderildi : 25/11/2009 14:13
ugur pek
(@ugurpek)
Üye

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/

CevapAlıntı
Gönderildi : 25/11/2009 14:24
Paylaş: