AccessTr.neT

Tam Versiyon: Listbox yenileme sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
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.
çok teşşekür ederim.diğer soru için yeni bir konu açayım mı burda cevaplarmısınız ?
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.
gerçekten çok teşşekür ederim.bu site mükemmel bi site.sorularla ilgilendiğiniz için Allah razı olsun.
Teşekkürler. Sitemizin farkını hissetmiş olmanız mutluluk verici.
Sayfalar: 1 2