[محمد اسماعيل]

السلام عليكم

ساعدني احد الاخوة بكود الاضافة ويعمل ولكن يجب غلق البرنامج واعادة فتحة مرة اخري لظهور البيانات الجديدة  اريد كود التحديث والحفظ

كود الاضافة



           Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\database1.accdb;Jet OLEDBatabase Password=12345")
               Using cmd As New OleDbCommand("insert into web_tb (name_web,type_web,url_web) values(@name_web,@type_web,@url_web)", con)
                   cmd.Parameters.AddWithValue("@name_web", ("alie"))
                   cmd.Parameters.AddWithValue("@type_web", ("ebrahim"))
                   cmd.Parameters.AddWithValue("@url_web", ("goda"))
                   'فحص الاتصال بقاعدة البيانات
                   If con.State = ConnectionState.Open Then
                       con.Close()
                   End If
                   con.Open()
                   cmd.ExecuteNonQuery()
                   con.Close()
               End Using
           End Using
      



اضفت الكود التالي لعمل حفظ ولكن وجودة مثل عدمة لايفعل شيء

PHP كود :

 DataGridView1.Refresh()
        BindingSource1.EndEdit()
        DataAdapter1.Update(DataSet1, "web_tb") 


دة كود ملاء البيانات لظهور بالداتا جريد

كود :

  Dim Table1 As OleDbCommand = New OleDbCommand(" SELECT  * from web_tb ", con)
           DataAdapter1 = New OleDbDataAdapter(Table1)
           Dim builder As New OleDbCommandBuilder(DataAdapter1)

           DataSet1 = New DataSet()
           DataAdapter1.Fill(DataSet1, "web_tb")

           BindingSource1 = New BindingSource(DataSet1, "web_tb")

           BindingSource2 = New BindingSource(DataSet1, "web_tb")

اريد كود لعمل ريفريش ويعيد البيانات بعد التغير من عملية الاضافة