Skip to main content

AccessTr.neT


Listbox yenileme sorunu

Listbox yenileme sorunu

Çözüldü #1
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
.rar dersimm.rar (Dosya Boyutu: 153,82 KB | İndirme Sayısı: 41)
Cevapla
Çözüldü #2
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;
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
Çözüldü #3
çok teşşekür ederim.diğer soru için yeni bir konu açayım mı burda cevaplarmısınız ?
Cevapla
Çözüldü #4
Pardon onu atlamışım. Bunun içinde ;
 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
Çözüldü #5
gerçekten çok teşşekür ederim.bu site mükemmel bi site.sorularla ilgilendiğiniz için Allah razı olsun.
Cevapla
Çözüldü #6
Teşekkürler. Sitemizin farkını hissetmiş olmanız mutluluk verici.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task