[عبدالعزيز2013]

السلام عليكم ورحمه الله وبركاته


لدي قاعدة بيانات اكسس مكونه من جدولين
جدول الدكتور ويتكون : جدول الاقسام ويتكون من :
رقم الدكتور number رقم القسم number
اسم الدكتور text اسم القسم text
رقم القسم number

المهم وهناك علاقة بين الجدولين (رقم القسم وطبعا هو مفتاح رئيسي في جدول الاقسام , فرعي في جدول الدكتور (اي يجب تعبئته اولا في جدول الاقسام )

القضيه هي تطبيق كود الحفظ وعدم تطبيق كود الحذف والتعديل

كود الحفظ

()CONN.Open
Try

Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = CONN

cmdinsert.CommandText = "insert into
" (' " & doctor (doc_ID,doc_name,dept_no) values(' " & Txtid.Text & "' , '" & Txtname.Text & "' , '" & Txtdept.Text
()cmdinsert.ExecuteNonQuery

MsgBox("تمت الاضافه")
() CONN.Close
Catch ex As Exception
(MsgBox(ex.Message.ToString
End Try


كود الحذف


() CONN.Open

Try

Dim cmddelete As New OleDbCommand
cmddelete.Connection = CONN


" ' " cmddelete.CommandText = "Delete From doctor Where doc_ID = ' " & Txtid.Text

()cmddelete.ExecuteNonQuery

MsgBox("تمت الحذف")
() CONN.Close
Catch ex As Exception
(MsgBox(ex.Message.ToString
End Try
() CONN.Close


وكذلك كود التعديل نفس الجملة باختلاف

" ' " + cmdupdate.CommandText = "UPDATE doctor SET doc_name = ' " + Txtname.Text + " ' WHERE doc_id = ' " + Txtid.Text


عند تطبيق كود الحذف والتعديل تظهر الرسالة التالية


data type mismatch in criteria expression

فماهو السبب او الحل ؟؟
علما بانني لو الغيت العلاقه بين الجدولين في رقم القسم تشتغل ازارير الحذف والتعديل بدون مشاكل

افيدونا جزاكم الله خير