Forum

Bildirimler

Hepsini Temizle

Visual basic Databesede arama yapma

Yazılım Genel

Son Cevaplar gön: ugur pek 14 yıl önce

5 Yazılar

4 Üyeler

0 Likes

515 Görüntüleme

RSS

Ramazan Düzgün

(@RamazanDuzgun)

Gönderiler: 25

Eminent Member

Konu başlatıcı

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..

Gönderildi : 24/11/2009 18:30

Hikmet SOYDAM

(@HikmetSOYDAM)

Gönderiler: 218

Reputable Member

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.

Gönderildi : 24/11/2009 18:42

Ufuk Deniz

(@UfukDeniz)

Gönderiler: 95

Estimable Member

uygulamaniz VB.NET mi yoksa VB 6.0 mi ?

Gönderildi : 24/11/2009 22:32

Ramazan Düzgün

(@RamazanDuzgun)

Gönderiler: 25

Eminent Member

Konu başlatıcı

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

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

'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

Gönderildi : 25/11/2009 15:13