منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة عند تحديث البيانات بالداتا جريد فيو

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

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

استخدمت الكود التالي ولكن فشل معي

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("تم الاضافه والحفظ بنجاح")

لايتم التحديث للمعلومات الجديدة لأنك لم تضع له باراميتر ID_web@

بردك نفس المشكلة

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")

ترتيب أسماء الباراميترات داخل الاستعلام هو 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") 

لا تحتاج لعمل Refresh للأداة DataGridView1

حاولت اعدل النظام كلة واعمل تحديث وظهر بث حدثت مشكلة اخري يكتب الخطا

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
يقصد أن الاتصال غير مهيئ يعني ده

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 مرتين

(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 مرتين

تم حل المشكلة

حسبي الله ونعم الوكيل في البرمجة الي توهت الواحد ههههة

جزاك الله خيرا عني وعن غيري وبارك الله فيك وزادك من فضلة وعلمة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

طالب برمجة

محمد اسماعيل

طالب برمجة

محمد اسماعيل

طالب برمجة

محمد اسماعيل