13-12-17, 01:42 AM
حاولت اعدل النظام كلة واعمل تحديث وظهر بث حدثت مشكلة اخري يكتب الخطا
the connectionstring property has not been intialized
الكود الجديد ويعمل جيدا مع الخطا
con.Open()
Dim Sav As New OleDb.OleDbCommand
Sav.Connection = con
Sav.CommandType = CommandType.Text
Sav.CommandText = "UPDATE web_tb SET name_web = '" & addsave_form.XylosTextBox1.Text & "' where ID_web LIKE '" & addsave_form.Label1.Text & "'"
con.Open()
Sav.ExecuteNonQuery()
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM web_tb Order By ID_web", con)
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "web_tb")
DataGridView1.Refresh()
count()
If con.State = ConnectionState.Open Then
con.Close()
End If
MsgBox("تم الاضافه والحفظ بنجاح")
the connectionstring property has not been intialized
الكود الجديد ويعمل جيدا مع الخطا
con.Open()
Dim Sav As New OleDb.OleDbCommand
Sav.Connection = con
Sav.CommandType = CommandType.Text
Sav.CommandText = "UPDATE web_tb SET name_web = '" & addsave_form.XylosTextBox1.Text & "' where ID_web LIKE '" & addsave_form.Label1.Text & "'"
con.Open()
Sav.ExecuteNonQuery()
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM web_tb Order By ID_web", con)
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "web_tb")
DataGridView1.Refresh()
count()
If con.State = ConnectionState.Open Then
con.Close()
End If
MsgBox("تم الاضافه والحفظ بنجاح")