|
تعديل سجلات العمود id بشكل تصاعدي ..
|
12-05-16, 09:01 PM
انا عندي عمود اسمو id و هو مرقم تصاعديا ، بس عمليات الحذف و الاضافة خلت الارقام غير متسلسلة و فيها قطع ..
المطلوب انو تساعدوني كيف عدل ارقام id بشكل تصاعدي من واحد إلى نهاية السجلات ... و إلكون الشكر أصدقائي .. يا رب انو يكون المنتدى شغال ... 
12-05-16, 09:16 PM
الجواب مبني على الاستفسار التالي:
لماذا تستخدم الترقيم؟ هل لشيء جوهري ام ظاهري؟ ان كان لشيء جوهري فلا يهمك عدم تسلسل الارقام حال الحذف فهو هنا لحفظ بيانات الاشخاص . اما لو اردته كظاهر فقط فيمكنك استخدام اكواد الضغط والاصلاح واعادة الترقيم بالكود. ارفع مثال بسيط(بسيط) للتعديل عليه [مع حذف كافة الملفات التنفيذية قبل الرفع] اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
12-05-16, 09:31 PM
(آخر تعديل لهذه المشاركة : 12-05-16, 09:38 PM {2} بواسطة حلا ابوحامضة.)
(12-05-16, 09:16 PM)سعود كتب : الجواب مبني على الاستفسار التالي: بالحقيقة يهمني ان اعرف الطريقة التي يمكنني بها تعديل عمود ببيانات مختلفة و لا سيما الأرقام .. و الأمر جوهري و يهمني ان تكون الأرقام بدون قطع .. إن كان يمكن المساعدة . ... و أنا أشكرك على جميع الأحول للإهتمام (12-05-16, 09:16 PM)سعود كتب : الجواب مبني على الاستفسار التالي: هذا الكود كنت استخدمه في فيجول6 و لكنه لم يعد يصلح في فيجول نت : Dim i
i = 0 Set DB = Nothing DB.Provider = "Microsoft.JET.OLEDB.4.0;" DB.Open DBName$ Set Rs = Nothing Rs.Open "select * from Tab_ar order by id ", DB, adOpenStatic, adLockPessimistic If Rs.BOF = False And Rs.EOF = False Then Do Until Rs.EOF i = i + 1 Rs!mob = i Rs!ID = i Rs.Update Rs.MoveNext Loop End If Rs.Close Set Rs = Nothing Lwait.Caption = "" MsgBox "تمت عملية التعديل بنجاح .."
12-05-16, 09:54 PM
إقتباس :انا عندي عمود اسمو id و هو مرقم تصاعدياهل تقصد ان خاصيته ترقيم تلقائي؟؟ ام انك تستخدم دالة للترقيم؟ لو خاصيته ليست ترقيم تلقائي فالامر بسيط. اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
13-05-16, 12:44 AM
13-05-16, 03:35 AM
Don't Be The Perfect one
be the right one
13-05-16, 05:26 PM
(13-05-16, 03:35 AM)boudyonline كتب : راجع هذا الموضوع تم حل الموضوع : فقط باستدعاء مكتبة Adodb في فيجول نت و استخدام شفرة فيجول6 فيه ... و قد عملت الشفرة بشكل تام ... لكن برأيكم هل سأواجه متاعب منها في المستقبل ..!؟؟ 
14-05-16, 12:02 AM
والله أنا انحرجت أن أدخل بإسم عضويتي المعروفة لخجلي من أعضاء منتدى قسم أسئلة VB.NET الذين تسببوا بالأخت "حلا" من أن تظطر لخلع محرك سيارتها الفخمة وتركيب محرك سيارتها القديم لتسير عربتها.
الله معك أختي "حلا ابوحامضة".
14-05-16, 12:20 AM
(14-05-16, 12:02 AM)amsndhf كتب : والله أنا انحرجت أن أدخل بإسم عضويتي المعروفة لخجلي من أعضاء منتدى قسم أسئلة VB.NET الذين تسببوا بالأخت "حلا" من أن تظطر لخلع محرك سيارتها الفخمة وتركيب محرك سيارتها القديم لتسير عربتها. الكلام هذا هل هو لغز؟شيفرة؟ترميز معين؟ وكيف نكون سبب بماذكرته؟!! اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
تم الشكر بواسطة: amsndhf
18-05-16, 11:04 PM
(14-05-16, 12:20 AM)سعود كتب :(14-05-16, 12:02 AM)amsndhf كتب : والله أنا انحرجت أن أدخل بإسم عضويتي المعروفة لخجلي من أعضاء منتدى قسم أسئلة VB.NET الذين تسببوا بالأخت "حلا" من أن تظطر لخلع محرك سيارتها الفخمة وتركيب محرك سيارتها القديم لتسير عربتها. اخي سعود لم أفهم قصدك .. ، هل سأواجه متاعب مع هذه الشيفرة التي تقول عنها انها محرك قديم .. ، هل من حل آخر برأيك .. لقد كان ردك قاسيا بعض الشيء .. تحياتي لإلك .. |
|
|
