تحديث الداتا ست لا يتم

هل تقوم بإستدعاء DataAdapter.update?

لم توضح كيف تقوم بعملية الاضافة والتخزين، الرجاء وضع الكود ليتسنى لنا معرفة المشكلة بالضبط

مشكور اخي الحبيب على الرد

نعم انا استخدم dataadapter.update

واضع الايعاز الخاص بالتحديث في زر خاص

هل تم حل المشكلة؟

اخواني الكرام شكرا لردودكم التي اضفتموها الى الان ولكنها لم تنفع للاسف في حل المشكلة

جزاكم الله خيرا وياريت تواصلوا معي لحين الوصول الى الحل مشكورين مرة اخرى

:(

أخي طلبت منك ان تكتب الكود الذى تستخدمه حتى يتسنى معرفة وين المشكلة

كيف نستطيع تشخيص مشكلة ولا نرى سببها؟

اخي سؤال غير واضح

اذا تقصد انك تريد اضافة سجل جديد فيجب ان تستخدم جملة INSERT اما اذا كنت تريد ان تعدل على سجل موجود فأستخدم جملة UPDATE

  mycon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=workord.mdb"

Dim mycom As New OleDb.OleDbCommand()

mycom.Connection = mycon

mycon.Open()

Try

mycom.CommandText = "insert into main([OnOrder],[Dept],[sect],[Date_Work],[Date_finish],[TypeMech],[sN],[TagNum],[desc]values(" & TB1.Text & ",'" & TB3.Text & "','" & TB4.Text & "',#" & tb2.Text & "#,#" & tb9.Text & "#,'" & TB5.Text & "','" & TB6.Text & "','" & TB7.Text & "','" & TB8.Text & "')"

اخي سؤال غير واضح

اذا تقصد انك تريد اضافة سجل جديد فيجب ان تستخدم جملة INSERT اما اذا كنت تريد ان تعدل على سجل موجود فأستخدم جملة UPDATE

 mycon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=workord.mdb"
        Dim mycom As New OleDb.OleDbCommand()
        mycom.Connection = mycon
        mycon.Open()
        Try
            mycom.CommandText = "insert into main(OnOrder,Dept,sect,[Date_Work,Date_finish,TypeMech,SN,TagNum,descvalues(" & TB1.Text & ",'" & TB3.Text & "','" & TB4.Text & "',#" & tb2.Text & "#,#" & tb9.Text & "#,'" & TB5.Text & "','" & TB6.Text & "','" & TB7.Text & "','" & TB8.Text & "')"
 mycom.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        mycon.Close()

اما اذا كانت تعديل على سجل فخذ هذا الكود

mycon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=workord.mdb"

        mycom.CommandText = "update main set Dept='" & TB3.Text & "',sect='" & TB4.Text & "',Date_Work=#" & tb2.Text & "#,Date_Finish=#" & tb9.Text & "#,TypeMech='" & TB5.Text & "',SN='" & TB6.Text & "',TagNum='" & TB7.Text & "'where OnOrder= " & TB1.Text & ""
mycom.Connection = mycon
        mycon.Open()
        Try
            mycom.ExecuteNonQuery()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        mycon.Close()

الاخوة الكرام

السلام عليكم

شكرا جزيلا لتفاعلكم معي وساضع الكود حتى يسنى لكم فهم مشكلتي بالضبط والرد عليها وجزاكم الله الف الف خير