10-12-17, 09:44 PM
(آخر تعديل لهذه المشاركة : 10-12-17, 09:47 PM {2} بواسطة محمد اسماعيل.)
السلام عليكم
ساعدني احد الاخوة بكود الاضافة ويعمل ولكن يجب غلق البرنامج واعادة فتحة مرة اخري لظهور البيانات الجديدة اريد كود التحديث والحفظ
كود الاضافة
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
اضفت الكود التالي لعمل حفظ ولكن وجودة مثل عدمة لايفعل شيء
دة كود ملاء البيانات لظهور بالداتا جريد
اريد كود لعمل ريفريش ويعيد البيانات بعد التغير من عملية الاضافة
ساعدني احد الاخوة بكود الاضافة ويعمل ولكن يجب غلق البرنامج واعادة فتحة مرة اخري لظهور البيانات الجديدة اريد كود التحديث والحفظ
كود الاضافة
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")
اريد كود لعمل ريفريش ويعيد البيانات بعد التغير من عملية الاضافة