+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22914)
مشكلة عند تحديث البيانات بالداتا جريد فيو - محمد اسماعيل - 12-12-17
يتم عمل الاضافة والحفظ بدون مشاكل والحذف ولكن عند التحديث
لايتم التحديث للمعلومات الجديدة علما باني استدعيت كل خلية بالتيكست المخصص لها ويظهر معلومات الخلايا المحفوظة بالتيكست ولا تقبل التحديث
استخدمت الكود التالي ولكن فشل معي
PHP كود :
Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\web.accdb;Jet OLEDB:Database Password=12345")
كود :
con.Open()
Dim cmd As New OleDbCommand("update web_tb set name_web=@name_web where ID_web=@ID_web", con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@name_web", TextBox1.Text)
con.Open()
Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
con.Close()
DataGridView1.Refresh()
DataSet1.Tables("web_tb").AcceptChanges()
DataAdapter1.Update(DataSet1, "web_tb")
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Close() : con.Dispose()
MsgBox("تم الاضافه والحفظ بنجاح")RE: مشكلة عند تحديث البيانات بالداتا جريد فيو - طالب برمجة - 12-12-17
لايتم التحديث للمعلومات الجديدة لأنك لم تضع له باراميتر ID_web@
RE: مشكلة عند تحديث البيانات بالداتا جريد فيو - محمد اسماعيل - 13-12-17
بردك نفس المشكلة
con.Open()
Dim cmd As New OleDbCommand("update web_tb set name_web=@name_web where ID_web=@ID_web", con)
cmd.Parameters.AddWithValue("@ID_web", Label1.Text)
cmd.Parameters.AddWithValue("@name_web", TextBox1.Text)
cmd.ExecuteNonQuery()
DataGridView1.Refresh()
DataSet1.Tables("web_tb").AcceptChanges()
DataAdapter1.Update(DataSet1, "web_tb")
RE: مشكلة عند تحديث البيانات بالداتا جريد فيو - طالب برمجة - 13-12-17
ترتيب أسماء الباراميترات داخل الاستعلام هو name_web@ ثم ID_web@
لازم ترتيب Parameters يكون نفس الترتيب
PHP كود :
con.Open()
Dim cmd As New OleDbCommand("update web_tb set name_web=@name_web where ID_web=@ID_web", con)
cmd.Parameters.AddWithValue("@name_web", TextBox1.Text)
cmd.Parameters.AddWithValue("@ID_web", Label1.Text)
cmd.ExecuteNonQuery()
DataSet1.Tables("web_tb").AcceptChanges()
DataAdapter1.Update(DataSet1, "web_tb")
RE: مشكلة عند تحديث البيانات بالداتا جريد فيو - محمد اسماعيل - 13-12-17
حاولت اعدل النظام كلة واعمل تحديث وظهر بث حدثت مشكلة اخري يكتب الخطا
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("تم الاضافه والحفظ بنجاح")
RE: مشكلة عند تحديث البيانات بالداتا جريد فيو - طالب برمجة - 13-12-17
the connectionstring property has not been intialized
يقصد أن الاتصال غير مهيئ يعني ده
PHP كود :
Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\web.accdb;Jet OLEDB:Database Password=12345")
بالاضافة أني لاحظت أنك عملت Open مرتين
RE: مشكلة عند تحديث البيانات بالداتا جريد فيو - محمد اسماعيل - 13-12-17
(13-12-17, 01:50 AM)طالب برمجة كتب : the connectionstring property has not been intialized
يقصد أن الاتصال غير مهيئ يعني ده
PHP كود :
Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\web.accdb;Jet OLEDB:Database Password=12345")
بالاضافة أني لاحظت أنك عملت Open مرتين
تم حل المشكلة
حسبي الله ونعم الوكيل في البرمجة الي توهت الواحد ههههة
جزاك الله خيرا عني وعن غيري وبارك الله فيك وزادك من فضلة وعلمة