Form Kapatıldığında Diğer Formları Etkileme Sorunu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html) +--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html) +--- Konu Başlığı: Form Kapatıldığında Diğer Formları Etkileme Sorunu (/konu-form-kapatildiginda-diger-formlari-etkileme-sorunu.html) |
Form Kapatıldığında Diğer Formları Etkileme Sorunu - emremzrk - 25/03/2012 Merhaba Arkadaşlar Benim Sorunum Eklemiş Olduğum Uygulamada Form2 deki ComboBox da veritabanından gösterilen kayıtlara yeni kayıt eklemek için ekle butonuna tıklayınca form1 açılıyor orda veritabanına yeni bi değer ekleyip form1 i kapattığım yada yeni kaydı girdiğim zaman form2 deki Private Sub listelec() in çalışmasını istiyorum ama olmadı görünürde bir hata yok gibi ama yardım ederseniz sevinirim. Cvp: Form Kapatıldığında Diğer Formları Etkileme Sorunu - ercansahin - 25/03/2012 2008 ile açamıyorum. Versiyon sorunu yaşadım. Bilginize. Cvp: Form Kapatıldığında Diğer Formları Etkileme Sorunu - emremzrk - 25/03/2012 2010 İle düzenlemiştim Genede Teşekkürler. Kodlarını da paylaşabilirim FORM1 --------------------------------------------------------------------------- Imports System.Data.OleDb Public Class Form1 Private baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Veritabani.mdb") Private komut As New OleDbCommand() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click baglanti.Open() komut.Connection = baglanti komut.CommandText = "INSERT INTO statu(statu_tur) VALUES ('" + TextBox1.Text & "') " komut.ExecuteNonQuery() komut.Dispose() MsgBox("Statü kaydedildi") baglanti.Close() End Sub Private Sub FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Form2.listelec() End Sub End Class FORM2 --------------------------------------------------------------------------- Imports System.Data Imports System.Data.OleDb Public Class Form2 Private baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Veritabani.mdb") Private Sub listele() baglanti.Open() Dim Sql As String Sql = "select statu_tur from statu group by statu_tur" Dim komut As New System.Data.OleDb.OleDbCommand(sql, baglanti) Dim veri_okuyucu As Data.OleDb.OleDbDataReader veri_okuyucu = komut.ExecuteReader ComboBox1.Text = "" ComboBox1.Items.Clear() While (veri_okuyucu.Read()) ComboBox1.Items.Add(veri_okuyucu("statu_tur")) End While baglanti.Close() End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load listele() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click listelec() End Sub End Class Cvp: Form Kapatıldığında Diğer Formları Etkileme Sorunu - ayhan2122 - 26/03/2012 Projene bir modül ekle ve örn: Module Module1 'Modülde kullanacağın genel kod Public Sub listec() MsgBox(Now) End Sub End Module Public Class Form1 'Form1'in kodları Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call listec() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub End Class Public Class Form2 'Form2'nin kodları Private Sub Form2_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed Call listec() End Sub End Class bilmem anlatabildim mi : ) Cvp: Form Kapatıldığında Diğer Formları Etkileme Sorunu - emremzrk - 26/03/2012 Teşekkür Ederim Sayenizde yaptım Private Sub listec() Yerine Public Sub listec() yazdıgım Zaman Modül Oluşturmadanda oldu hata vermedi Kolay Gelsin |