زر اغلاق قاعده البيانات

[Gamor]

السلام عليكم

شباب هل من الممكن عمل زر برمجي او مايكرو يقوم بغلق قاعدة البيانات عند جميع المستخدمين يعني اغلاق جميع نوافذ القاعده في جميع الاجهزه ؟؟

[أ / محمد صالح]

لا شيء مستحيل بإذن الله

المهم ترتيب الخطوات في الذهن للوصول للحل

يمكنك غلق قواعد البيانات الأخرى باستعمال هذا الكود

Dim DB2 As Object
db2Path = "Z:\path\to\db2.accdb"
Set DB2 = GetObject(db2Path)
DB2.Application.Quit

ويمكن تكرار السطرين الأخيرين لغلق أي عدد من قواعد البيانات المحدد مساراتهم في الكود

وفي الأخير غلق القاعدة الحالية بالكود التالي

DoCmd.CloseDatabase

بالتوفيق

[Gamor]

اخي محمد صباح الخير

سوف اقوم بتجربه واوافيك بالنتيجه

 

[Gamor]

اخي يتم اغلاق القاعده في الكمبيوتر الخاص بي فقط

[أ / محمد صالح]

هل يملك المستخدم الحالي حق إدارة الأجهزة الأخرى كمسئول administrator ؟

هل يملك حق التعديل على الملفات عبر الشبكة ؟

[kha9009lid]

في ١٩‏/٨‏/٢٠٢٠ at 09:48, Gamor said:

شباب هل من الممكن عمل زر برمجي او مايكرو يقوم بغلق قاعدة البيانات عند جميع المستخدمين يعني اغلاق جميع نوافذ القاعده في جميع الاجهزه ؟؟

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

الفكرة باختصار جدول ونموذجين

الجدول يحتوي على حقل من نوع نعم او لا

النموذج الاول فقط في قاعدة بيانات الواجهة للادمن يتم فيه تحديد قيمة الحقل الموجود بالجدول

النموذج الثاني موجود في واجهات اجهزة المستخدمين يعمل عند بداية تشغيل للبرنامج لكل منهم في وضع مخفي ويمكن الاستغناء عنه اذا كان لدينا نموذج تسجيل الدخول

وهذا النموذج الثاني يحتوي على كود عند عداد الوقت يبحث عن قيمة الحقل الموجود في الجدول اذا كان =-1 يظهر رسالة ثم يغلق القاعدة واذا كان 0 يتجاهل

توجد طريقة اخرى عن طريق برنامج remote administrator يتيح للمشرف اغلاق اجهزة المستخدمين واغلاق وتشغيل التطبيقات لديهم

 

[jjafferr]

السلام عليكم 🙂

 

المنتدى مليء بالمواضيع الدسمة ، كل الذي عليك فعله هو ، البحث 

 

جعفر

[kha9009lid]

منذ ساعه, jjafferr said:

المنتدى مليء بالمواضيع الدسمة ، كل الذي عليك فعله هو ، البحث

الحقيقة اني لم اشاهد مشاركة استاذنا الفاضل صالح حمادي

لذا وضعت الفكرة اعلاه بشكل مبسط

 

[jjafferr]

عفوا اخي خالد ، بس الرابط تنفيذ لنفس فكرتك 🙂 

 

جعفر

[kha9009lid]

15 دقائق مضت, jjafferr said:

عفوا اخي خالد ، بس الرابط تنفيذ لنفس فكرتك

صحيح وهذا سبب ردي

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

ولا احب ان يعتقد استاذنا صالح انني احاول ان انسب لنفسي ماليس لي

لذا اعتذر منه ولو اني على علم بموضوعة لاشرت للموضوع مباشرة

[Gamor]

شكرا لكم جميعا على هادا الحضور القوي

[صالح حمادي]

في ٢٢‏/٨‏/٢٠٢٠ at 18:10, kha9009lid said:

ولا احب ان يعتقد استاذنا صالح انني احاول ان انسب لنفسي ماليس لي

أخي خالد هداك الله 

و هل يعقل أني أظن هذا الإعتقاد السيء بأخي

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

 

[kha9009lid]

في ٢٣‏/٨‏/٢٠٢٠ at 23:31, صالح حمادي said:

أخي خالد هداك الله 

و هل يعقل أني أظن هذا الإعتقاد السيء بأخي

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

العفو اخي صالح انتم اكبر من ذلك

ولكن كان الايضاح لحاجة في نفس يعقوب

نعود للفكرة

الرابط بين قاعدة البيانات في جهاز العميل والسيرفر

• الجداول
• ملف موجود على السيرفر ويتم الاشارة الى مكان وجودة في قاعدة بيانات العميل
• روابط اخرى تتعلق بالصلاحيات وطريقة تعريف الاجهزة والتحكم بها ولكن هنا نكون انتقلنا الى مسار اكثر احترافية وتعقيدا
• برامج خارجية للتحكم بالاجهزة وقد اشرت الى احدهم في مشاركتي الاولى

لذا فاي مبرمج سوف يقترح احد هذه الحلول

الحل الاسهل حقل في الجدول ثم كود عند عداد الوقت او امر محاكي لعداد الوقت وهو ما اشرت اليه في ردي كفكرة وسبقتوني اليه باكثر من عام

الحل الثاني ملف موجود على السيرفر وتم التطرق اليه في رد الاخ @jjafferr في موضوع مختلف قليلا ولكن يمكن استخدامه مع اجراء بعض التعديل ليقوم بالاغلاق لجهاز العميل

if Dir("D:\Test\AMIN.xls") ="" then
  msgbox "لم يتم الحصول على الملف المطلوب"
  exit sub  'اخرج من البرنامج
endif

الحل الثالث المح اليه الاستاذ @أ / محمد صالح باستفسار من صاحب الموضوع وهو متعلق بصلاحيات الادارة للاجهزة المرتبطة

الحل الرابع وهو البرنامج الخارجي وتختلف المميزات باختلاف البرنامج فبعضها يعطي صلاحيات التحكم في التعديل والاغلاق وبعضها اضافة لذلك يمتاز بارسال رسائل فورية للمستخدمين

قالت العرب "الافكار كالحجارة ملقاة في الطريق يعرفها العربي والعجمي وإنما الشأن في إقامة الوزن وتخير اللفظ وسهولة المخرج وجودة السبك فإنما الشعر صناعة وضرب من النسج وجنس من التصوير"
 وكذلك الامر في كل امر بما فيها البرمجة الفكرة موجودة والفن في جودة التنفيذ وهذا في صالحكم اخي الفاضل 🌹

تحياتي وتقديري

 

[الحلبي]

الله عليك استاذنا القدير / @kha9009lid

شرح واضح ورائع باربع طرق وكما اشار استاذنا القدير القمة / @jjafferr المنتدى دسم بالمعلومات

لكن الذى جعلنى ان اضع مشاركتى هنا وهو الحكمة التى ذكرها استاذنا / خالد ففيها معنى كبير للحياة والتطبيق على كل مراحل العلم منها طبعا البرمجة

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

جزاكم الله خيرا على هذا الحضور القوى والهام لنا كطلبة لديكم .

[صالح حمادي]

3 ساعات مضت, kha9009lid said:

العفو اخي صالح انتم اكبر من ذلك

ولكن كان الايضاح لحاجة في نفس يعقوب

الله يحغظك يا عالي أنا أعلم ذلك

و لو كنت مكانك لفعلت نفس الشيء لأن هذه هي صفاة أصحاب العلم 

بالنسبة للموضوع لقد طرحت 4 أفكار مختلفة و جيدة

لكن يجب أن نضع في الحسبان جيدا أن أمر الصلاحيات و التحكم عن بعد فيها الكثير من الخطر لو وقعت في أياد غير أمينة

[kha9009lid]

4 ساعات مضت, حلبي said:

لكن الذى جعلنى ان اضع مشاركتى هنا وهو الحكمة

هذه المقولة لعمرو بن بحر الملقب بالجاحظ احد اركان الادب العربي ومؤسسيه

يقول ابن الخلدون ان الادب العربي اصله واركانه اربعة وكل ما سواها انما هو فرع او تابع لها

• البيان والتبيان للجاحظ
• الكامل لمحمد ابن يزيد الثمالي الملقب بالمبرد
• ادب الكاتب لعبد الله بن قتيبة الدينوري
• الامالي لإسماعيل بن القاسم البغدادي القالي

جزاك الله خير اخي واستاذي د. محمد حلبي 🌹

36 دقائق مضت, صالح حمادي said:

لكن يجب أن نضع في الحسبان جيدا أن أمر الصلاحيات و التحكم عن بعد فيها الكثير من الخطر لو وقعت في أياد غير أمينة

لذا في بيئة اكثر عدائية لا يستطيع المستخدم تجاوز سطح المكتب

تحياتي اخي واستاذي صالح حمادي 🌹