طريقة اضافة مرفقات لقاعدة بيانات على الشبكة

[kaser906]

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

لنفترض ان لدينا قاعدة بيانات على الشبكة ( شبكة داخلية )

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

الجهاز الثاني والثالث متصلين بقاعدة الجداول

لو افترضنا ان احد الاجهزة الثاني او الثالث اراد ارفاق مستند word او مستند pdf او صورة

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

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

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

فهل من طريقة يتم من خلالها معالجة هذا الأمر

 

 

 

[رمهان]

 

 

[kaser906]

5 دقائق مضت, رمهان said:

أسعد الله صباحك استاذ رمهان

الأمر اعتقد يختلف هنا

حيث اريد تعريف مجلد المرفقات على الجهاز الرئيسي

في واجهة المستخدم ونقل الصورة إليه

 

 

[رمهان]

اخي انا لم اجرب

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

هل انت رابط الجداول ؟ 

[kaser906]

9 ساعات مضت, رمهان said:

هل انت رابط الجداول ؟ 

نعم استاذ رهمان الجداول مربوطة

سأجرب الكود

[kaser906]

مع الاسف لم اظهر بأي نتيجة

وضعت مسار الملف  نفس مسار قاعدة الجدوال مع كتابة اسم المجلد

لكن يظهر خطأ

لوكان يوجد مثال للتطبيق عليه

[رمهان]

13 ساعات مضت, kaser906 said:

وضعت مسار الملف  نفس مسار قاعدة الجدوال مع كتابة اسم المجلد

ممكن تلصقه هنا ومثل ماهو بالضبط ؟

[kaser906]

FileCopy Currentfilepath, newfilepath
 newfilepath=C:\EMplalssdata\image

 

10 ساعات مضت, رمهان said:

ممكن تلصقه هنا ومثل ماهو بالضبط ؟

وضعته بهذي الطريقة

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

[رمهان]

اخي كاسر

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

في علم الشبكات ياتعطي لعنوان كامل بما فيه الايبي للسيرفر 192.1.10.119\\  ثم اسم المجلد او عمل ماب للمجلد البعيد محلي

لذلك انا سالت هل الجداول مربوطه ؟ وتم الاجابة بنعم . الان اريد التالي

اذهب لجدول النظام msysobjects  ولعلك تعرف طريقة اظهاره ثم الصق لي الجملة التي بالعمود databse

او اكتب جملة الاستعلام التالي في محرر الاستعلام ثم عرض 

SELECT msysobjects.database
FROM msysobjects
WHERE (((msysobjects.database) Is Not Null));

هنا راح يظهر لك مسار السيرفر

الان اشوف المسار وبعدين نواصل

تحياتي

[kaser906]

3 ساعات مضت, رمهان said:

اخي كاسر

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

في علم الشبكات ياتعطي لعنوان كامل بما فيه الايبي للسيرفر 192.1.10.119\\  ثم اسم المجلد او عمل ماب للمجلد البعيد محلي

لذلك انا سالت هل الجداول مربوطه ؟ وتم الاجابة بنعم . الان اريد التالي

اذهب لجدول النظام msysobjects  ولعلك تعرف طريقة اظهاره ثم الصق لي الجملة التي بالعمود databse

او اكتب جملة الاستعلام التالي في محرر الاستعلام ثم عرض 

SELECT msysobjects.database
FROM msysobjects
WHERE (((msysobjects.database) Is Not Null));

هنا راح يظهر لك مسار السيرفر

الان اشوف المسار وبعدين نواصل

تحياتي

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

هي على جهاز كمبيوتر تم الربط عن طريق المشاركة المنزلية

3 ساعات مضت, رمهان said:

اذهب لجدول النظام msysobjects  ولعلك تعرف طريقة اظهاره ثم الصق لي الجملة التي بالعمود databse

وهذا هو المسار

\\TOSHIBA\careitems\Database1 _be.mdb

[رمهان]

تمام

جرب

FileCopy "C:\hi.jpg", "\\TOSHIBA\careitems\hi.jpg"

'طبعا غير مسار الملف في الجزء الاول "C:\hi.jpg"   لمسار صحيح محلي

اما الجزء الثاني والخاص بمسار السيرفر فاتركه كما هو اعلى 

بالتوفيق

[kaser906]

في ١٦‏/٦‏/١٤٣٨ هـ at 01:26, رمهان said:

تمام

جرب

FileCopy "C:\hi.jpg", "\\TOSHIBA\careitems\hi.jpg"

'طبعا غير مسار الملف في الجزء الاول "C:\hi.jpg"   لمسار صحيح محلي

اما الجزء الثاني والخاص بمسار السيرفر فاتركه كما هو اعلى 

بالتوفيق

استاذي الكريم

حاولت ولم افلح في استخلاص نتيجة

لذلك اضع المرفق

للمساعدة

المطلوب عند اختيار ادخال صورة يتم نسخ الصورة للمسار المحدد

بعد ذلك يتم وضع مسار الصورة في الحقل PicFile في الجدول

[رمهان]

اين المرفق ؟

وحبذا لو ذكر مسار الملف المحلي المراد نقله

تحياتي

[kaser906]

13 ساعات مضت, رمهان said:

اين المرفق ؟

وحبذا لو ذكر مسار الملف المحلي المراد نقله

تحياتي

عذرا استاذ على نسيان المرفق

الصورة التالية توضح المسار المحلي

وهذا هو المرفق

 

Getlodpic.rar

[kaser906]

توضيح 

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

استيضاح 

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

ويكون اسم الصورة الرقم التلقائي للسجل الحالي 

[رمهان]

اخي كاسر

جرب ان تضع الكود التالي خلف الزر ادخل الصوره

Private Sub cmdInsertPic_Click()
Application.FileDialog(3).Show
FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\hi.jpg"
End Sub

ثم تاكد انها انتقلت للجهاز الاخر . لا تتاكد بانه تم عرض الصوره في المربع وانما التاكد بالذهاب للجهاز السيرفر او التي به الجداول

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

تحياتي

[kaser906]

4 ساعات مضت, رمهان said:

اخي كاسر

جرب ان تضع الكود التالي خلف الزر ادخل الصوره

Private Sub cmdInsertPic_Click()
Application.FileDialog(3).Show
FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\hi.jpg"
End Sub

ثم تاكد انها انتقلت للجهاز الاخر . لا تتاكد بانه تم عرض الصوره في المربع وانما التاكد بالذهاب للجهاز السيرفر او التي به الجداول

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

تحياتي

ممتاز استاذي الكريم

تم نسخ الملف الى المسار بنجاح

تبقى هناك مشكلة اعادة التسمية

فعندما اختار صورة اخرى لنسخها الى المسار

لايتم نسخها ولا تظهر اية رسائل والسبب ان ان هناك صورة بنفس الاسم في المجلد hi.jpg

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

[رمهان]

اخي كاسر

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

الان ياعزيزي

وقبل ان اعطي حل كامل

هل المقصود  استبدال الصوره القديمه بالجديده اذا كانت بنفس الاسم ؟

[kaser906]

53 دقائق مضت, رمهان said:

اخي كاسر

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

الان ياعزيزي

وقبل ان اعطي حل كامل

هل المقصود  استبدال الصوره القديمه بالجديده اذا كانت بنفس الاسم ؟

[رمهان]

جرب الكود التالي مع تغيير text1 الى اسم مربع النص بالنموذج لديك

Private Sub cmdInsertPic_Click()
If Dir("\\TOSHIBA\careitems\" & text1 & ".jpg") <> "" Then
If MsgBox("الملف موجود هل تريد الاستبدال", vbYesNo) = vbNo Then Exit Sub
End If
Application.FileDialog(3).Show
FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\" & text1 & ".jpg"
End Sub

بالتوفيق

[kaser906]

1 ساعه مضت, رمهان said:

جرب الكود التالي مع تغيير text1 الى اسم مربع النص بالنموذج لديك

Private Sub cmdInsertPic_Click()
If Dir("\\TOSHIBA\careitems\" & text1 & ".jpg") <> "" Then
If MsgBox("الملف موجود هل تريد الاستبدال", vbYesNo) = vbNo Then Exit Sub
End If
Application.FileDialog(3).Show
FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\" & text1 & ".jpg"
End Sub

بالتوفيق

الله يعطيك العافية استاذي الكريم

[kaser906]

3 ساعات مضت, رمهان said:

بالتوفيق

نقطة اخيرة استاذي

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

[رمهان]

اخي كاسر

خلني اكون صريح معك وارجو تتحملني

لو تلاحظ ان طرحك ليس مباشر وليس فيه مساعده للفهم 

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

11 دقائق مضت, kaser906 said:

نقطة اخيرة استاذي

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

معليش اخي

تكرما اضافة مرفقا به مربع النص الذي يظهر الموظف ورقمه ليتم التطبيق

 

تم تعديل مارس 19, 2017 بواسطه رمهان

[kaser906]

6 ساعات مضت, رمهان said:

اخي كاسر

خلني اكون صريح معك وارجو تتحملني

لو تلاحظ ان طرحك ليس مباشر وليس فيه مساعده للفهم 

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

معليش اخي

تكرما اضافة مرفقا به مربع النص الذي يظهر الموظف ورقمه ليتم التطبيق

 

صباح الخير استاذي رمهان

اولاً ارجو أن تتحملني انت فطلبي يتطور خطوة بعد خطوة

وأملي في أخراج هذا المثال على أكمل وجه فهو سيكون بمثابة مرجع لكثير من الأعضاء

لأني أكاد أجزم بأن مثل هذا الموضوع في رفع الصور والملفات على السيرفر من جهاز المستخدم

تكاد تكون معدومه في اغلب المنتديات

والمثال على ما اعتقد اكتمل فقط يتبقى نقطتين اساسيتين

وهو جلب مسار الصورة بعد نسخها لعرضها في النموذج

اما الثاني لا أعرف هل يمكن تحقيقه أم لا

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

إليك المرفق استاذي بعد التقسيم

 

careitems.rar

[رمهان]

ابشر

دقايق ان شاء الله