COMFORT

تفضل أخي الفاضل محمدVB هذا مثال آخر باستخدام المكتبة MicroSoft Scripting RunTime Example.rar

ربنا يكرمك من زمان و أنا أدور لمثال لتعامل مع هذه الاداة

أخي layan لنفرض أن المتغير الذي قمت بتعريفه كاكائن الاتصال بقاعدة البيانات اسمه db و كائن السجلات هو rs طيب ؟ الأن عندما تريد قطع الاتصال بالسجلات فإن العمل سيكون كالتالي : rs.Close لقد قمنا بقطع الاتصال بالسجلات و الجدوال و لكن قاعدة البيانات لا تزال متصلة با…

جزاك الله خيراً أختي zahrah هذا هو المطلوب بالضبط .

السلام عليكم و رحمة الله وبركاته إخواني الكرام أريد أن أستفسر عن كيفية إنشاء حقل على شكل قائمة منسدلة مثال هذا : يعني مثلاً عندي عدة أصناف و أريد أن أجعلها في قائمة بهذا الشكل و جزاكم الله خيراً .

Up

أخي الفاضل redahashem كيف أفتح الملف لم أستطيع الاستفادة منه بشيء

جزاك الله كل خيرا أخي الكريم FemTo ، MR^King و جعل ما قدمتوه في ميزان حسناتكم إن شاء الله .

مثال جميل بارك الله فيك

نعم أخي يا ريت لو يكون في توضيح بمثال و اعتذر عن التثقيل -_- :rolleyes:

هذه طريقة If Not RS.BOF Then RS.MoveFirst Do Until RS.EOF RS![Marital_State] = "متزوج" RS.MoveNext Loop

طيب ما هي الطريقة التي تستخدمها في الربط بالقاعدة

و لا يهمك جزاك الله خيراً على اهتمامك

هذا بالضبط ما أريده أخي الفاضل MR^King و لكن هناك مشكلة ماذا لوكان الملف مثلاً اسمه " File v1.0 " ستكون هناك نقطة أخرى غير نقطة الامتداد . و جزاكم الله خيراً إخواني جميعاً على المساعدة و الاهتمام .

استخدم جمل الـ SQL لعمل ذلك

Up

رااااااااااااااااااااااااااااااااااااااااائع جزاك الله كل خيرا

شكراً لك أخي MR^King ولكن أنا أريد أجعل المستخدم يختار صورة فاسأضع الـ Filter = يساوي امتدادات الصور المعروفة لذلك أريد أن أعرف امتداد النوع الذي اختاره المستخدم ياريت يا أخي إن كانت تختلف عما أريد لأني أريده في غرض آخر أيضاً و جزاك الله خيراً .

السلام عليكم ورحمة الله وبركاته إخواني الكرام أريد معرفة امتداد الملف الذي تم اختياره بواسطة الاداة CommonDialog و أكيد طبعاً الــ Filter = * . * يعني All Files و جزاكم الله خيراً .

أخي الفاضل Femto عندي سؤال أريد أن أعدل هذه المكتبة بحيث تظهر الرسالة كا VbModal للفورم الذي تظهر عليه حاولت بأن عدلت الاجراء Show الموجود في المكتبة ليصبح كالتالي : Public Sub Show(Frm As Form) MsgForm.Show VbModal , Frm End Sub لكنه أعطاني الخطأ التالي : أرج…