تقييم الموضوع :
  • 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
اريد عمل قريد فيو واحد من جدولين بينهم علاقه لاظهارهما معا
ايضا اريد عندما اضغط مثلا كليك على الحقل في القريد فيو تظهر البيانات مباشرة في التكست الموجوده في المشروع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عملية حفظ التعديلات بعد الحذف أو التعديل لا تتم في DataSet السندبااد 5 240 17-08-16, 12:24 PM
آخر رد: أبوبكر سويدان
  تنفيذ هذا الاستعلام رجاء رجاء الافادة badr123456 2 204 23-11-15, 09:56 AM
آخر رد: badr123456
  [عنوان معدل]كيفية انشاء جدول مصروفات يومية dhetos 2 786 21-04-15, 01:33 AM
آخر رد: ابوميار
  كيف يتم تنفيذ السكريبت بالكود محاسب يوسف 1 298 08-01-15, 05:48 PM
آخر رد: sami2015
  عند الحذف لا يحفظ لماذا؟؟ المشاعر 6 688 30-08-14, 10:48 AM
آخر رد: المشاعر
  سؤال الحفظ والتعديل والحذف والبحث script محاسب يوسف 1 515 09-04-14, 10:03 AM
آخر رد: سعود
  [سؤال] بخصوص جلب جدول والتعديل على محتواه بشرط معين عبد الله 8 1,443 16-03-14, 01:12 AM
آخر رد: عبد الله
  [سؤال] زر الحذف مرتبط بجدول اخر ABO.BANCIANA 9 1,188 09-02-14, 07:31 PM
آخر رد: سعود
  كيفية تنفيذ استعلام موجود في الاكسس atefkhalf2004 0 664 30-12-13, 01:14 AM
آخر رد: atefkhalf2004
Exclamation [سؤال] عدم تنفيذ برنامج مرتبط بقاعدة بيانات reyad 5 1,249 27-12-13, 12:11 AM
آخر رد: Sajad

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


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