منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] المساعدة في اضافة وحفظ بيانات الداتا جريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] المساعدة في اضافة وحفظ بيانات الداتا جريد (/showthread.php?tid=22878)



المساعدة في اضافة وحفظ بيانات الداتا جريد - محمد اسماعيل - 10-12-17

السلام عليكم

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

كود الاضافة



           Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\database1.accdb;Jet OLEDBBig Grinatabase 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")


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


RE: المساعدة في اضافة وحفظ بيانات الداتا جريد - حريف برمجة - 10-12-17

وعليكم السلام ،،

يجب عليك وضع كود ملء الداتا قريد في حدث فورم لود لإظهار البيانات في الداتا قريد وبعد كود الحفظ أيضاً .