منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] خطأ فى كود الحذف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : [سؤال] خطأ فى كود الحذف (/showthread.php?tid=16151)

خطأ فى كود الحذف - اسلام الكبابى - 15-06-16

لدى قاعدة بيانات بها جدول EMPLOYEE  به حقل salary
ولدى Adodc1 متصل بهذا الجدول و DataGrid1 متصلة بال Adodc1
وكتبت كودآ للزر DELET بحيث يقوم البرنامج بعد الحذف باعادة ترتيب الأرقام المسلسلة للموظفين
فمثلآ اذا كانوا 6 موظفين أرقامهم المسلسلة 1,2,3,4,5,6 وقمت بحذف السجل صاحب الرقم  2
أجد السجلات الخمسة المتبقية  أرقامهم المسلسلة 1,2,3,4,5 (لا أجدها 1,3,4,5,6)
فكان يعمل دون أى مشاكل أثناء وجود جملتى الmsgbox التى وضعتهما مؤقتين لنفسى لمتابعة سير خطوات البرنامج لحين الانتهاء من اجراء تجاربى عليه
MsgBox "/////////////", vbOKOnly, "fffffffffff"
فلما حذفت هتين الجملتين من الكود ظهرت رسالة خطأ عند عمل ال RUN 
أرجو تصحيح الكود أو تصحيح البرنامج المرفق بأى طريقة
بحيث لا يوجد فى الكود أى جملة MSGBOX
وبحيث يتم اعادة ترتيب الأرقام المسلسلة فى ال DataGrid بعد الضغط على الزرDELET

ولكم ألف شكر

RE: خطأ فى كود الحذف - Ahmed_Mansoor - 17-06-16

أهلا أخي الكريم , أعتقد السبب هو في الإتصال بقاعدة البيانات بالـ ADO وأداة الـ ADODC في نفس الوقت , تم التعديل .

RE: خطأ فى كود الحذف - اسلام الكبابى - 18-06-16

جزاك الله خيرآ  أستاذ أحمد
ولكنه رفض التنفيذ من البداية معترضآ على الجملة
PHP كود :
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 


RE: خطأ فى كود الحذف - Ahmed_Mansoor - 19-06-16

أهلا أخي الكريم , لم يعترض علي شئ عندي يعمل المثال بشكل جيد , يمكن أنت أضفت اكواد أخرى .

RE: خطأ فى كود الحذف - اسلام الكبابى - 19-06-16

إقتباس :يمكن أنت أضفت اكواد أخرى .
لم أضف أى شئ لا فى الأكواد ولا فى خصائص الأدوات
بمجرد أن حملت الفولدر فتحته وقمت بعمل الRUN فأظهر رسالة اعتراضية بعنوان  compile error  يقول فيها
procedure declaration does not match description of event or procedure having the same name