الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خطأ في كود استعراض جدول لقاعدة اكسس

مغلق
بدأه النهر الخالد في 16 يناير 2007 · 3 رد · 589 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

هذا الكود عباره عن وصلة لفتح قاعدة بيانات بواسطة الاكسس تحتوي على ارقام وقد قمت بتغير نمط الارقام الى نص حتى يقبل الصفر وقمت بربط القاعدة مره ثانية واصبح البرنامج يعمل بشكل صحيح ماعده هذه الفورم تعطلت وظهر لي هذا الكود باللون الاصفر فأرجوا من الخبراء تصحيح هذا الكود

Set rs10 = New Recordset

rs10.Open "SELECT MFirstStageMarks.SCPR, SMaster.StudentName, MFirstStageMarks.Mark, MFirstStageMarks.StageID, MFirstStageMarks.ClassID, MFirstStageMarks.SubjectNo FROM SMaster INNER JOIN MFirstStageMarks ON SMaster.SCPR = MFirstStageMarks.SCPR WHERE (((MFirstStageMarks.SCPR)=" & SCPR.Text & ")" & " AND ((MFirstStageMarks.StageID)=" & StageID.Text & ")" & " AND ((MFirstStageMarks.ClassID)=" & txtClassID.Text & ")" & " AND ((MFirstStageMarks.SubjectNo)=" & SubjectNo.Text & "))", con1, adOpenStatic, adLockOptimistic

Set DataGrid2.DataSource = rs10

علما بأني غيرت حقل الارقام (SCPR)

ارجو التوضيح

تم تعديل هذه المشاركة بواسطة HnHn في 17 يناير 2007 في 00:18

#2

السلام عليكم

و الله انا مش فاهم اية الموضوع بالضبط بس انا ملاحظ انك كاتب في الكود كل حقول قاعدة البيانات

فممكن تكون غلط في اسم حقل ولا حاجة فعامل معاك مشكلة شوف اكتب الكود كدة احسن

rs10.Open "SELECT * FROM SMaster INNER JOIN MFirstStageMarks ON SMaster.SCPR = MFirstStageMarks.SCPR WHERE (((MFirstStageMarks.SCPR)=" & SCPR.Text & ")" & " AND ((MFirstStageMarks.StageID)=" & StageID.Text & ")" & " AND ((MFirstStageMarks.ClassID)=" & txtClassID.Text & ")" & " AND ((MFirstStageMarks.SubjectNo)=" & SubjectNo.Text & "))", con1, adOpenStatic, adLockOptimistic

Set DataGrid2.DataSource = rs10

يمكن ربنا يسهل الحال و يشتغل

5halid0np.jpg

834.gifcooltext497758lc.gif834.gif
#3

جزيل الشكر اخي على الرد وراح اجرب الكود ان شاء الله

تحياتي لك

#4

اخي ما رأيك ان اعلمك كيف تصيد السمكة بدل ان اقدمها لك ;)

اخي كمبدأ عام في اصلاح اي شيء وليس شرط في البرمجة وهو تبسيط المشكلة قدر المستطاع

فبدل ان تقدم الكود هنا و تنتظر ان يحلة احد و هي حالة قليل في مثل حالة هذا الكود فقم بالتالي

قم بتقليل الكلامات قدر المستطاع فبدل الاستعلام عن 10 حقول قم بلاستعلام عن حقل و تأكد منه فان عمل قم باضافة الحقل التالي و هكذا

يعني تبسيط الكود قدر المستطاع ثم قم بختبار كل جزء على حدا وتأكد من صحته و الجزء الذي تظهر به المشكلة قم باصلاحه

حتى تتدرجة في الكود من المرحلة البسيطة الى المعقدة

وعندما تنتهى و تشاهد الكود تقول يا الله !!! ما هذا هل انا الذي كتبت هذا الكود المعقد

على العموم هذا طريقتي في حل المشاكل بشكل عام برمجة او غير برمجة و خصوص جمل الـ Sql لأنها لا تعطيك الخطأ الذي حدث بظبط كباقي الاكواد

و في الاكواد الاخر حاول استعمال الـ دي بق Debug) للتتبع الكود بروية و تفحص قيم المتغيرات بوضع المؤشر فوق و معاينة قيمه

على العموم اذا تعلمت هذه الطريقة فاعلم ان قد و ضعت يدك على سر البرمجة الحقيقي و ليس الفي بي فقط ولكن اي لغة تختارها فقط تدلل :lol:

و اسف على الاطالة

تم تعديل هذه المشاركة بواسطة Super_Pro في 17 يناير 2007 في 21:37

مع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية

أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا

logo.png

هذا الموضوع مغلق.

مواضيع مشابهة