Listbox yenileme sorunu
Tarih
06/03/2011 18:05
Konu Sahibi
bodabas57
Yorumlar
7
Okunma
2958
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



bodabas57
Üye
Kullanici Avatari
Üye
23
4
05/02/2011
0
İstanbul
Belirtilmemiş
31/03/2011,16:12
Çözüldü 
Merhaba,
Listbox'a veri kaydettirebiliyorum ancak veriyi kaydedildiğini görmek için programı açıp kapamak gerekiyor.Kısacası listbox yenilenmiyor.Güncellemeleri programı kapatmadan nasıl görebilirim ?
Birde listbox da butona tıklayıp gösteriyorum.onu listboxdan direkt seçerek göstertebilirmiyim ?
Sorunun anlaşılması için ekte örnek gönderiyorum


Ek Dosyalar
.rar   dersimm.rar (Dosya Boyutu: 153,82 KB / İndirme Sayısı: 37)
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.731
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,00:07
Çözüldü 
Bunun için kayıt işlemi sonrasında öncelikle ListBox'ı boşaltıyoruz ve tekrar verileri çağırıyoruz. Uygulamadaki Ders Ekle Button'un kodunu;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("Boş bıraktığınız alanlar var!", "Boş alan var!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Baglanti()
        Dim Kayit = Bag.Execute("Select * From dersler Where ders = '" & TextBox1.Text & "'")
        Dim Kayit2 = Bag.Execute("Select * From notlar Where ders = '" & TextBox1.Text & "'")
        If Button1.Text = "Ders Ekle" Then

            If Kayit.EOF Or Kayit2.EOF Then
                Bag.Execute("INSERT INTO dersler (ders) VALUES ('" & TextBox1.Text & "')")
                Bag.Execute("INSERT INTO notlar (ders,not1,not2,not3,not4,soz1,soz2,soz3,soz4) VALUES ('" & TextBox1.Text & "', '', '', '', '', '', '', '', '')")
                MessageBox.Show("Kaydınız başarıyla eklenmiştir.", "İşlem Başarılı.", MessageBoxButtons.OK, MessageBoxIcon.Information)
                TextBox1.Text = ""
                TextBox2.Text = ""
            Else
                MessageBox.Show("' " & TextBox1.Text & " ' Bu kayıt mevcut.Lütfen başka bir kayıt seçin", "Kayıt mevcut", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        End If
        ListBox1.Items.Clear()'Listview'i temizle
        doldurs()'Tekrar verileri getir.
    End Sub

şeklinde değiştiriniz.

Cevapla


bodabas57
Üye
Kullanici Avatari
Üye
23
4
05/02/2011
0
İstanbul
Belirtilmemiş
31/03/2011,16:12
Çözüldü 
çok teşşekür ederim.diğer soru için yeni bir konu açayım mı burda cevaplarmısınız ?
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.731
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,00:07
Çözüldü 
Pardon onu atlamışım. Bunun içinde ;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='data.mdb'")

        baglanti.Open()
        Dim komut As New OleDb.OleDbCommand("SELECT * FROM notlar Where ders = '" & ListBox1.SelectedItem & "'", baglanti)

        Dim getir As OleDb.OleDbDataReader
        getir = komut.ExecuteReader()
        getir.Read()
        TextBox4.Text = getir("not1")
        baglanti.Close()
    End Sub

eklemeniz yeterli olacaktır.

Tabi burada sadece TextBox4 için ayarlamışsınız, diğerlerinide aynı şakilde tanımlamalısınız.

Cevapla


bodabas57
Üye
Kullanici Avatari
Üye
23
4
05/02/2011
0
İstanbul
Belirtilmemiş
31/03/2011,16:12
Çözüldü 
gerçekten çok teşşekür ederim.bu site mükemmel bi site.sorularla ilgilendiğiniz için Allah razı olsun.
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.731
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,00:07
Çözüldü 
Teşekkürler. Sitemizin farkını hissetmiş olmanız mutluluk verici.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Vb.net print formunda alt satıra geçme sorunu alican60 2 94 23/11/2016, 20:33 alican60
Çözüldü ListBox Ve TextBox ~~KaG~~ 6 2.607 14/10/2015, 13:12 atoz112
Çözüldü Vb de SETUP Sorunu hatice.haa 3 724 14/06/2015, 18:33 hatice.haa
Çözüldü Değişken kullanarak Access de tablo oluşturma sorunu Gorkemku 2 1.772 13/05/2014, 12:37 Gorkemku
Çözüldü Farklı Ekran çözünürlüklerinde PROJE sorunu chevy 10 3.432 12/03/2014, 10:16 chevy


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya