COMFORT

جزالك الله خيراً أخي الكريم

للرفع للرفع للرفع

جزالك الله خيراً أخي الكريم aswany و لكن المثال المرفق الخاص بالــ Vb.6 به أخطاء كثيرة و لم يعمل معي :rolleyes:

السلام عليكم ورحمة الله وبركاته يا جماعة أريد مساعدة في جزئية لكي أنهي برنامجي المطلوب طريقة ضغط و إصلاح قاعدة البيانات بطريقة ADO انا أعرف الكود الخاص بذلك ولكن عن طريق الــ DAO وهو كالتالي : 1. ضغط قاعدة البيانات Private Sub Command1_Click() 'ضغط قاعدة البيا…

لن أمل ولن أكل للرفع :(

أخي الكريم < حسن المنتصر > ، < ايهاب عثمان > شكراً على مروركم الطيب و جزام الله خيراً

السلام عليكم ورحمة الله وبركاته يا جماعة أنا عندي سؤال 1. ما هو الحد الأقصى لعدد الجداول في قاعدة بيانات ما من نوع Microsoft Access ؟ 2. ما أقصى حجم ممكن أن تصل إليه قاعدة البيانات أم أن هذا مفتوح ؟ و جزاكم الله كل خيرا .

و الله أنا أصلاً غلطان إن جيت هنا من أصله عند بتوع < Open Source > :rolleyes: :rolleyes:

السلام عليكم ورحمة الله وبركاته ألف مبروك لجميع مستخدمي لينكس بشرة سعيدة Microsoft Visual Studio .Net For Liunx علشان الحرب بين أنصار Liunx و Microsoft تهدأ :rolleyes:

للرفع :(

للرفع

أخي الكريم لقد فتحت الجول مرتين و بالتالي سينتج خطأ أكيد لأن الجدول لا يزال مفتوحاً SQL = "SELECT * From Mezania where [Date] Between #" & Text2 & "# and #" & Text1 & "#" SQL1 = "SELECT * From Mezania where [Kemia] = " & Trim(Text3.Text) & "" rs.Open SQL, db, …

لا أعلم لذلك حلاً أخي الكريم ولكن إذا أردت فإن الــ List العادية أسهل و أفضل و أنا مستعد أن أرفق لك مثال إذا أردت .

أخي الكريم The SNiper أنا بصراحة لم أتعامل مع هذه الأداة من فترة طويلة و بالتالي أنا نسيتها شوية تحدد أيضاً خاصية RowSource ====> Data1 وسوف تظهر معاك المعلومات إن شاء الله وهذا مثال مرفق تحياتي Exampel.rar

أشكرك أخي الكريم omani لقد عملت معي بالفعل أشكرك مرة أخى و أشكر الأخ المبرمج الطيب على التفاعل معي (h)

نعم فعلاً قد يكون هذاهو السبب لأني فتحت الجدول في و ضع ديناميكي rs2.Open "User_" & rs![User_No], db, adOpenDynamic, adLockOptimistic سأجرب و أرد عليك جزاك الله كل خير أخي الكريم omani

1. نعم أخي الكريم الكود في الـ Form_Load 2. أنا عملت Label لكي أعرف الــ RecordCount فظهر لي الرقم < -1 > بدون حاصرتين 3. لما أضع الشرط التالي : If rs.Recordcount = -1 Then Command1.Enabeld = False End If يظل المفتاح غير مفعل حتى و لو أصبح الجدول به بيانات و ج…

و عليكم السلام و رحمة الله وبركاته يمكن أن تفعل ذلك أخي الكريم عن طريق الأداة DataList1 و كذلك يمكن من خلال أداة الــ List العاية . -------------- : 1. بالنسبة للــ DataList1 فعليك أن تحدد أولاً : خاصية Data Source و ليكن Data1 ثم تحدد خاصية List Field إلى اسم…

السلام عليكم ورحمة الله وبركاته يا جماعة في خطأ حاصل معاية ، خطأ غريب جداً الخطأ في في الكود التالي : If rs.RecordCount = 0 Then Comman1.Enabeld = False End If المشكلة هنا أن الكود لا يتم تنفيذه حتى و لو الجدول فارغ من البيانات :blink: و كمان الــ rs.RecordCou…

تفضل أخي الكريم Kill "Path You Want" ' ثم أكتب مسار الفيل الذي تريده