30-06-13, 12:23 PM
السلام عليكم ورحمه الله وبركاته
لدي قاعدة بيانات اكسس مكونه من جدولين
جدول الدكتور ويتكون : جدول الاقسام ويتكون من :
رقم الدكتور 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
فماهو السبب او الحل ؟؟
علما بانني لو الغيت العلاقه بين الجدولين في رقم القسم تشتغل ازارير الحذف والتعديل بدون مشاكل
افيدونا جزاكم الله خير
لدي قاعدة بيانات اكسس مكونه من جدولين
جدول الدكتور ويتكون : جدول الاقسام ويتكون من :
رقم الدكتور 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
فماهو السبب او الحل ؟؟
علما بانني لو الغيت العلاقه بين الجدولين في رقم القسم تشتغل ازارير الحذف والتعديل بدون مشاكل
افيدونا جزاكم الله خير