اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

احبتي  
تكثر الحاجة الى ايجاد طريقة ثابتة  يتم تطبيقها لتسهيل رفع الملفات او الصور الى مجلد قاعدة البيانات وخاصة اذا كانت الجداول بعيدة عن الواجهات ‘ فالغالب ان قاعدة الجداول وجميع ما تحتاجه من ادوات وصور وملفات تكون ضمن مجلد واحد منفصلة عن الواجهات وقد تكون على جهاز بعيد عن المستخدم ، وبعد الرفع ايضا نحن بحاجة الى ظهور هذه الملفات داخل الواجهات كالصور والايقونات ونحوها
وايضا تكثر الحاجة الى اخذ نسخة احتياطية من الجداول   وتحديد مكان لها مناسب يكون على السيرفر داخل مجلد البرنامج
كل ما سبق  يحتاج منا الى معرفة مسار قاعد البيانات على الجهاز الخادم او حتى على مسار ومكان البرنامج  داخل الجهاز الواحد
ولكن المسار سيختلف من جهاز الى آخر ومن شبكة إلى اخرى ، والمبرمج لن يكون حاضرا في اغلب الاحوال ، فهو يريد طريقة يسيرة تمكن من قراءة المسار والعنوان آليا ويمكن تطبيق  ذلك من المستخدم بايسر واسهل طريقة  

 

  • Like 1
رابط هذا التعليق
شارك

نبدأ على بركة الله 

1 :

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

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

2 : 

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

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

  • Like 2
رابط هذا التعليق
شارك

الوحدات النمطية  :

Public IsUserID As String ' اعلان عن متغير عام يأخذ قيمة المعرف داخل النماذج أو التقارير
Public Function RelinkIspic() 'اعلان عن اسم الوحدة النمطية
Dim i, x, r As String  'اعلان عن متغيرات نصية
        r = IsUserID 'المتغير هذا يساوي قيمة المعرف 
        i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) ' المتغير هذا يساوي المكان البعيد الذي تتواجد به قاعدة بيانات الجداول
        x = Left(i, InStrRev(i, "\")) & r & ".jpg" 'اسم الملف ونوعه في المكان البعيد
RelinkIspic = x 'لا تحتاج شرح
End Function'اغلاق
'==============================================================
Public Function RelinkIsshar()
Dim i, x, r As String
        r = "shar"   ' اسم الملف
        i = mID(CurrentDb.TableDefs("tblNames").Connect, 11)
        x = Left(i, InStrRev(i, "\")) & r & ".jpg"
RelinkIsshar = x
End Function


كما نلاحظ   الوحدتين النمطيتين  طبق الاصل  الاولى  ترجع الملف بمعلومية متغير  والثانية بمعلومية اسم الملف

ويتم الاستدلال على المسار  بواسطة الجدول المرتبط  به البعيد

وكل ما علينا عمله هو نداء الدالة RelinkIspic  في الاول  والدالة RelinkIsshar في الثاني

والمثال المرفق سيوضح الطريقة بشكل عملي حيث يشتمل على :

1- الوحدة النمطية والكودات الخاصة بربط الجداول  آليا  عند تغيير  مكان  مجلد قاعدة الجداول

2- الوحدة النمطية الخاصة برفع الملفات  واستبدالها ، وستلاحظون  كيف وظفنا  ()RelinkIspic  داخلها

3- وحداتنا النمطية الخاصة بهذا الموضوع  وعملها  في عرض الملفات  وتوجيه النسخة الاحتياطية

بعد فك الضغط عن المرفقات  وتشغيل الواجهات  سيطالبك البرنامج بربط الجداول 

وهذا كل ما عليك فعله فقط .

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

ملحوظة : بسبب نظام وندوز قد يحتاج بعض اصدارات اكسس لتفقد المكتبات وتعديلها  

لا تنسون اخيكم من دعوة صالحة في ظهر الغيب .

أسأل ربي الكريم ان يجزيني بكرمه وفضله .

 

 

 

 

قراءة مسار الشبكة آليا وربط الجداول والنسخ الاحتياطي.rar

  • Like 5
رابط هذا التعليق
شارك

 اخوتي الكرام :

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

الآن :

تم ارفاق  الملف  في وقت مبكر اليوم ، وعدم الرد  يعني  ان المرفق لم يعمل كما ينبغي

فالذي جرب المثال منكم  ,,  ان كان هناك ملاحظات اهدوها لنا مشكورين ،،

رابط هذا التعليق
شارك

السلام عليكم أستاذنا الغالي جزاك الله كل خير في الدارين إن شاء الله.

أنا جرب المرفق و هو يعمل بشكل جيد

لكن عند تغيير مكان قاعدة بيانات الخلفية لا يعمل البرنامج و يطلب تحديد ملف القاعدة

رابط هذا التعليق
شارك

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

وبعد ربط الجداول  : يمكن  اضافة الملفات والصور  الى مجلد البرنامج   على السيرفر  من الاجهزة الأمامية

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

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

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

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

 

 

  • Like 2
رابط هذا التعليق
شارك

1 ساعه مضت, ابوخليل said:

 اخوتي الكرام :

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

الآن :

تم ارفاق  الملف  في وقت مبكر اليوم ، وعدم الرد  يعني  ان المرفق لم يعمل كما ينبغي

فالذي جرب المثال منكم  ,,  ان كان هناك ملاحظات اهدوها لنا مشكورين ،،

استاذي ابو خليل

الله يعطيك الف عافية وجعله الله في ميزان حسناتك

جربت المرفق وهو يعمل بشكل ممتاز

فقط عندي ملاحظتين وهي تعتبر كماليات تنفع مثلي وأمثالي

لاكتمال المثال

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

2- قمت بوضع صورتين في واجهة النموذج اتمنى لو تضع احدهما لاختيار ملف pdf  وعرضه داخل النموذج

تقبل تحياتي

تم تعديل بواسطه kaser906
رابط هذا التعليق
شارك

اولا نأخذ الطلب الاول

قاعدة الجداول في المرفق  هي داخل مجلد  اسمه Bground

انشء مجلد  بجانب قاعدة الجداول وليكن اسمه Photo

غير الوحد النمطية  الموجودة  في  الوحدات العامة  داخل المديول ModlinkAbkup

Public Function RelinkIspic()
Dim i, x, r As String
        r = IsUserID
        i = mID(CurrentDb.TableDefs("tblNames").Connect, 11)
        x = Left(i, InStrRev(i, "\")) & r & ".jpg"
RelinkIspic = x
End Function

بهذه :

Public Function RelinkIspic()
Dim i, x, r As String
        r = IsUserID
        i = mID(CurrentDb.TableDefs("tblNames").Connect, 11)
        x = Left(i, InStrRev(i, "\")) & "photo\" & r & ".jpg"
RelinkIspic = x
End Function

لاحظ الفرق  فقط  ادرجنا اسم المجلد

جرب  بعد هذا واضف صورة 

الطلب الثاني :

اذا في برنامجك عرض  ملفات pdf  جاهز

لماذا لا تنقل المديول الى برنامجك ، انا وضعت المثال كتطبيق صغير لفهم العملية

رابط هذا التعليق
شارك

16 دقائق مضت, ابوخليل said:

اولا نأخذ الطلب الاول

قاعدة الجداول في المرفق  هي داخل مجلد  اسمه Bground

انشء مجلد  بجانب قاعدة الجداول وليكن اسمه Photo

غير الوحد النمطية  الموجودة  في  الوحدات العامة  داخل المديول ModlinkAbkup


Public Function RelinkIspic()
Dim i, x, r As String
        r = IsUserID
        i = mID(CurrentDb.TableDefs("tblNames").Connect, 11)
        x = Left(i, InStrRev(i, "\")) & r & ".jpg"
RelinkIspic = x
End Function

بهذه :


Public Function RelinkIspic()
Dim i, x, r As String
        r = IsUserID
        i = mID(CurrentDb.TableDefs("tblNames").Connect, 11)
        x = Left(i, InStrRev(i, "\")) & "photo\" & r & ".jpg"
RelinkIspic = x
End Function

لاحظ الفرق  فقط  ادرجنا اسم المجلد

جرب  بعد هذا واضف صورة 

الطلب الثاني :

اذا في برنامجك عرض  ملفات pdf  جاهز

لماذا لا تنقل المديول الى برنامجك ، انا وضعت المثال كتطبيق صغير لفهم العملية

ممتاز استاذي

نعم الان اصبح يتم اضافة الصور بالمجلد الخاص

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information