+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل (/showthread.php?tid=9463)
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - عبدالعزيز2013 - 30-06-13
السلام عليكم ورحمه الله وبركاته
لدي قاعدة بيانات اكسس مكونه من جدولين
جدول الدكتور ويتكون : جدول الاقسام ويتكون من :
رقم الدكتور 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
فماهو السبب او الحل ؟؟
علما بانني لو الغيت العلاقه بين الجدولين في رقم القسم تشتغل ازارير الحذف والتعديل بدون مشاكل
افيدونا جزاكم الله خير
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - Aly El-Haddad - 30-06-13
جرب ألا تعطي قيمة العمود مباشرتاً في الـCommandText بمعنى..
ما بعد WHERE أجعله "WHERE doc_id = @doc_id"
بعدين قبل ما تعمل Execute
ضع هذا الكود:
كود :
cmd.Parameters.AddWithValue("@doc_id", Txtid.Text)[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - عبدالعزيز2013 - 30-06-13
جزاك الله خير اخي الكريم
اصبح كود التعديل
" cmdupdate.CommandText = "UPDATE doctor SET doc_name = ' " + Txtname.Text + " ' WHERE doc_id =@ doc_id
طبعا مع اضافة
cmd.Parameters.AddWithValue("@doc_id", Txtid.Tex)
وحلت المشكله وجزيت الف خير
لكن بالنسبة لكود الحذف
وايضا كود البحث ان كان هناك امكانية لديك لكتابته
فجزاك الله خيرا على كرمك
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - Aly El-Haddad - 30-06-13
عبدالعزيز2013 كتب :جزاك الله خير اخي الكريم
اصبح كود التعديل
" cmdupdate.commandtext = "update doctor set doc_name = ' " + txtname.text + " ' where doc_id =@ doc_id
طبعا مع اضافة
cmd.parameters.addwithvalue("@doc_id", txtid.tex)
وحلت المشكله وجزيت الف خير
لكن بالنسبة لكود الحذف
وايضا كود البحث ان كان هناك امكانية لديك لكتابته
فجزاك الله خيرا على كرمك
نفس الكود مع تغير النص من update set where إلى delete from where
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - عبدالعزيز2013 - 30-06-13
اي انه كالتالي
" cmddelete.CommandText = "Delete From doctor Where doc_ID = @ doc_id
تظهر الرساله التالية
Syntax error(missing operator)in query expression 'doc_id =@doc_id
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - Sajad - 30-06-13
[color="#800080"]السلام عليكم
تم نقل الموضوع الى قسم أسئلة وبرمجة قواعد البيانات تحت بيئة الـ.net و تعديل عنوان الموضوع ,برجاء كتابة عنوان مناسب للموضوع بدون كلمات (رجاءا ,مساعدة , .........) ,وكتابة المواضيع في الاقسام المخصص لها وخلاف ذلك سيتعرض الموضوع للحذف ,شكرا لتعاونكم.[/color]
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - عبدالعزيز2013 - 30-06-13
قد حللت المشكله وذلك بوضع الكود اللذي اعطيتني اياه الباراميتر قبل الكوماند تكست ديليت فروم ثم حلت المشكله
وسأحاول لاحقا في حل كود البحث
ادعي لي بالتوفيق
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - سعود - 01-07-13
ممكن تشوف المثال هنا#29
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل - عبدالعزيز2013 - 03-07-13
اريد عمل قريد فيو واحد من جدولين بينهم علاقه لاظهارهما معا
ايضا اريد عندما اضغط مثلا كليك على الحقل في القريد فيو تظهر البيانات مباشرة في التكست الموجوده في المشروع