اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

  • Like 1
قام بنشر

طبعا ممكن ذلك

حاول تطبيق الفكرة التالية

1- استخرج مسار السيرفر (الجهاز الذي عليه قاعدة البيانات التي تحتوي على الجدول)

2- عند حفظ الصورة قم بارسالها الى جهاز السيرفر باستخدام الكود التالي

 

Dim CerDll As New FileSystemObject
CerDll.CopyFile 1, 2, True

استبدل 1 و 2 بالمسارات التالية

1- تمثل مسار الصورة المخرنة في جهازك

2- تمثل مسار الصورة التي تريد تخزينها في جهاز السيرفر

  • Like 1
قام بنشر (معدل)

ولكن اين يتم اضافة هذا الكود هل يمكن عمل مثال بسيط 

في Saturday, October 01, 2016 at 02:34, محمد ايمن said:

طبعا ممكن ذلك

حاول تطبيق الفكرة التالية

1- استخرج مسار السيرفر (الجهاز الذي عليه قاعدة البيانات التي تحتوي على الجدول)

2- عند حفظ الصورة قم بارسالها الى جهاز السيرفر باستخدام الكود التالي

 


Dim CerDll As New FileSystemObject
CerDll.CopyFile 1, 2, True

استبدل 1 و 2 بالمسارات التالية

1- تمثل مسار الصورة المخرنة في جهازك

2- تمثل مسار الصورة التي تريد تخزينها في جهاز السيرفر

ولكن لم افهم اين يتم اضافة هذا الكود هل ممكن التوضيح اكثر او بمثال ومكان الكود والمسار الذي تقصده اين يتم وضعه بمعنى عند جلب المسار من السيرفر والذي فهمته اننا نضع فولدر لتخزين الصور على سبيل المثال في البارتشن d:/ameer/pic وهذا البارتن موجود على السيرفر الان اين اضيف المسار بالنموذج انا لدي برنامج اضافة الصور ويتم اختيار الصوره من خلال ال BROWSER وتخزن تلقائيا مع البيانات وهكذا ولكن اذا امكن عمر زر عند ادخال البيانات وضغط حفظ البيانات يتم ارسالها الى مسار السيرفر اتمنى عمل ذلك استاذنا الفاضل واذا احببت ارفق نسخه من البرنامج

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

وانا في انتظارك استاذنا الغالي وبارك الله فيك ولك حسن الدعاء والتوفيق على مساعدتك لكل الاعضاء 

تم تعديل بواسطه امير الكناني
  • Like 2
قام بنشر

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

طبق الخطوات التالية

1- في جهاز السيرفر انشئ مجلد في القرص D وليكن اسمه img وقم بمشاركته مع السماح للمستخدمين بالتحكم الكامل طبعا هذه الخصائص تحصل عليها من الويندوز كما في الصورة

2- اضف الكود التالي الى نموذج حفظ الصورة في جميع الاجهزة

Dim cr As New filesystemobject
cr.CopyFile CurrentProject.Path & "\FileName1.jpg", "\\PcName\D:\img\FileName2.jpg", True
End Sub

filename1 هو اسم الصورة المراد نسخها من جهازك الى السيرفر

pcname هو اسم جهاز السيرفر

filename2 هو الاسم الذي ستحفظ به الصورة في جهاز السيرفر

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

جرب ووافينا بالنتيجة

1.jpg

2.jpg

  • Like 2
قام بنشر

بارك الله فيك سوف اجرب وارد عليك 

 

في 10/2/2016 at 01:15, محمد ايمن said:

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

طبق الخطوات التالية

1- في جهاز السيرفر انشئ مجلد في القرص D وليكن اسمه img وقم بمشاركته مع السماح للمستخدمين بالتحكم الكامل طبعا هذه الخصائص تحصل عليها من الويندوز كما في الصورة

2- اضف الكود التالي الى نموذج حفظ الصورة في جميع الاجهزة


Dim cr As New filesystemobject
cr.CopyFile CurrentProject.Path & "\FileName1.jpg", "\\PcName\D:\img\FileName2.jpg", True
End Sub

filename1 هو اسم الصورة المراد نسخها من جهازك الى السيرفر

pcname هو اسم جهاز السيرفر

filename2 هو الاسم الذي ستحفظ به الصورة في جهاز السيرفر

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

جرب ووافينا بالنتيجة

1.jpg

2.jpg

لم افهم طريقة اضافة الكود لئني عملت برنامج لاضافة البيانات والصور بداخل مجلد اسمه folder pسوف ارفق المثال وارجو طريقة التعديل

program.rar

FolderP2.rar

قام بنشر
في 10/4/2016 at 02:09, محمد ايمن said:

تفضل اخي الكريم

انشئ مجلد في جهاز السيرفر باسم img في القرص D ولا تنسى مشاركته كما ذكرت لك سابقا

جرب ووافينا بالنتيجة

 

program.rar

 

بارك الله فيك اخي العزيز ماقصرت وفيت وكفيت 

 

قام بنشر
9 دقائق مضت, امير الكناني said:

 

بارك الله فيك اخي العزيز ماقصرت وفيت وكفيت 

 

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

 

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