تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل]ما سبب عدم تنفيذ أكواد الحذف والتعديل
#1
السلام عليكم ورحمه الله وبركاته


لدي قاعدة بيانات اكسس مكونه من جدولين
جدول الدكتور ويتكون : جدول الاقسام ويتكون من :
رقم الدكتور 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

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

افيدونا جزاكم الله خير
الرد }}}
تم الشكر بواسطة:
#2
جرب ألا تعطي قيمة العمود مباشرتاً في الـCommandText بمعنى..
ما بعد WHERE أجعله "WHERE doc_id = @doc_id"
بعدين قبل ما تعمل Execute
ضع هذا الكود:
كود :
cmd.Parameters.AddWithValue("@doc_id", Txtid.Text)
الرد }}}
تم الشكر بواسطة:
#3
جزاك الله خير اخي الكريم
اصبح كود التعديل
" cmdupdate.CommandText = "UPDATE doctor SET doc_name = ' " + Txtname.Text + " ' WHERE doc_id =@ doc_id

طبعا مع اضافة
cmd.Parameters.AddWithValue("@doc_id", Txtid.Tex)
وحلت المشكله وجزيت الف خير

لكن بالنسبة لكود الحذف

وايضا كود البحث ان كان هناك امكانية لديك لكتابته

فجزاك الله خيرا على كرمك
الرد }}}
تم الشكر بواسطة:
#4
عبدالعزيز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
الرد }}}
تم الشكر بواسطة:
#5
اي انه كالتالي


" cmddelete.CommandText = "Delete From doctor Where doc_ID = @ doc_id

تظهر الرساله التالية

Syntax error(missing operator)in query expression 'doc_id =@doc_id
الرد }}}
تم الشكر بواسطة:
#6
[color="#800080"]السلام عليكم

تم نقل الموضوع الى قسم أسئلة وبرمجة قواعد البيانات تحت بيئة الـ.net و تعديل عنوان الموضوع ,برجاء كتابة عنوان مناسب للموضوع بدون كلمات (رجاءا ,مساعدة , .........) ,وكتابة المواضيع في الاقسام المخصص لها وخلاف ذلك سيتعرض الموضوع للحذف ,شكرا لتعاونكم.[/color]
الرد }}}
تم الشكر بواسطة:
#7
قد حللت المشكله وذلك بوضع الكود اللذي اعطيتني اياه الباراميتر قبل الكوماند تكست ديليت فروم ثم حلت المشكله
وسأحاول لاحقا في حل كود البحث

ادعي لي بالتوفيق
الرد }}}
تم الشكر بواسطة:
#8
ممكن تشوف المثال هنا#29
الرد }}}
تم الشكر بواسطة:
#9
اريد عمل قريد فيو واحد من جدولين بينهم علاقه لاظهارهما معا
ايضا اريد عندما اضغط مثلا كليك على الحقل في القريد فيو تظهر البيانات مباشرة في التكست الموجوده في المشروع
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,241 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 4,032 28-05-19, 10:50 PM
آخر رد: sniperjawadino
  مشكلة في كود الحذف Delete khaled12345 5 2,621 15-07-17, 10:58 PM
آخر رد: أبوبكر سويدان
  [سؤال] مشكلة في كود الاضافة والتعديل في المشروع khaled12345 11 4,273 15-07-17, 02:17 AM
آخر رد: سعود
  [سؤال] عملية حفظ التعديلات بعد الحذف أو التعديل لا تتم في DataSet السندبااد 5 3,499 17-08-16, 12:24 PM
آخر رد: أبوبكر سويدان
  تنفيذ هذا الاستعلام رجاء رجاء الافادة badr123456 2 2,266 23-11-15, 09:56 AM
آخر رد: badr123456
  [عنوان معدل]كيفية انشاء جدول مصروفات يومية dhetos 2 3,027 21-04-15, 01:33 AM
آخر رد: ابوميار
  كيف يتم تنفيذ السكريبت بالكود محاسب يوسف 1 1,761 08-01-15, 05:48 PM
آخر رد: sami2015
  عند الحذف لا يحفظ لماذا؟؟ المشاعر 6 2,927 30-08-14, 10:48 AM
آخر رد: المشاعر
  سؤال الحفظ والتعديل والحذف والبحث script محاسب يوسف 1 2,026 09-04-14, 10:03 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم