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

كيفية حفظ مربعات النصوص على شكل مصفوفة في قاعدة البيانات

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

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

اخواني الاعضاء :

سؤالي متعلق بالاتي :

المشروع يتكون من مربعات نصوص على شكل مصفوفة وجعلتها على شكل صفوف ولكن الذي يعجزني كيفية حفظ هذه الصفوف في قاعدة البيانات بحيث يتم حفظ المربعات التي تحتوي بيانات اما المربعات التي لا تحتوي على بيانات لا يتم حفضها

ارجوا المساعدة

المرفقات

______.rar

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#2
اقتباس
حفظ المربعات التي تحتوي بيانات اما المربعات التي لا تحتوي على بيانات لا يتم حفضها

for next

if end if

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#3

اخي الكريم اشكرك على المرور

اخي الكريم بالنسبة لحلقة الفور فقد قمت باستخدامها في المثال المرفق ولكنني لم احسن استخدامها فحاول ان تحمل المرفق وارى الموضوع

وشكرا

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#4

السلام عليكم...

الكود الأصلي:

  1. Dim p As Integer
  2. If ro.State = adStateOpen Then ro.Close
  3. ro.Open "SELECT * FROM [info]", cn, adOpenStatic, adLockPessimistic
  4. For p = 0 To p
  5. With ro
  6. .AddNew
  7. ![Name] = Text1(p)
  8. ![Add] = Text2(p)
  9. ![phone] = Text3(p)
  10. .Update
  11. End With
  12. 'ro.Close
  13. Next p
  14. ro.Close
  15. p = p + 1
  16.  

لاحظ أن حلقة For يتم تنفيذها مرة واحدة فقط لأن قيمة p المبدئية هي 0 (صفر). أما وجود الجملة p = p + 1 فليس له أي تأثير.

الكود المعدل:

  1. Dim p As Integer
  2.  
  3. If ro.State = adStateOpen Then ro.Close
  4. ro.Open "SELECT * FROM [info]", cn, adOpenStatic, adLockPessimistic
  5. For p = 0 To 4 ' ضع الرقم الذي يتناسب مع عدد خانات النص لديك
  6. ' نتأكد من وجود اسم الشخص. إذا كانت خانة الاسم فارغة فلا نضيف سجلاً
  7. If Trim(Text1(p)) <> "" Then
  8. With ro
  9. .AddNew
  10. ![Name] = Trim(Text1(p))
  11. ' إذا كانت خانة العنوان فارغة نضع في الحقل عبارة لا يوجد - هذا أمر احتياري و يمكن تركها فارغة إذا كانت قاعدة البيانات تسمح بذلك
  12. ![Add] = IIf(Trim(Text2(p)) = "", "لا يوجد", Trim(Text2(p)))
  13. ' إذا احتوت خانة رقم الهاتف على قيمة غير رقمية نضع 0 في الحقل
  14. ![phone] = IIf(IsNumeric(Text3(p)), Text3(p), 0)
  15. .Update
  16. End With
  17. End If
  18. Next p
  19. ' نغلق مجموعة السجلات بعد انتهاء الحلقة
  20. ro.Close
  21. MsgBox "تم الحفظ"
  22.  

الدالة IIF المستخدمة لها الصيغة التالية:

  1. X = IIF(Condition, TruePart, FalsePart)
  2.  

حيث Condition هو شرط نريد اختباره. TruePart هو القيمة التي تعيدها الدالة إذا كان الشرط (Condition) صحيحاً. FalsePart هو القيمة التي تعيدها الدالة إذا كان الشرط (Condition) خاطئاً.

نصيحة: إذا كان لديك قيم رقمية لا تدخل في عمليات حسابية (مثل رقم الهاتف أو رقم جواز السفر ... إلخ.) فلا تستعمل لها حقولاً رقمية لأنك لن تقوم في يوم من الأيام بجمع أو طرح أو ضرب أو قسمة أرقام هواتف مع بعضها، و ثانياً و هو الأهم أن بعض هذه الأرقام قد تحتوي على أصفار على يسارها، مثلاً رقم الهاتف قد يكون هكذا "002182378889" (باعتباره رقماً دولياً يبدأ بصفرين). إذا حفظت هذا الرقم في حقل رقمي فسوف يتم حذف الصفرين الموجودين على اليسار.

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…