kaser906 قام بنشر مارس 12, 2017 قام بنشر مارس 12, 2017 السلام عليكم ورحمة الله وبركاتة لنفترض ان لدينا قاعدة بيانات على الشبكة ( شبكة داخلية ) الجهاز الأول توجد علية قاعدة بيانات الجداول ومجلدات المرفقات الخاصة بالصور والمستندات الجهاز الثاني والثالث متصلين بقاعدة الجداول لو افترضنا ان احد الاجهزة الثاني او الثالث اراد ارفاق مستند word او مستند pdf او صورة هناكيف يتم نقل الصورة الى الجهاز الخادم الذي توجد عليه قاعدة البيانات الاساسية فلو تركنا البرنامج يحدد مسار الصورة فقط دون نقلها للجهاز الخادم ووضعة بقاعدة بيانات الجداول ستحدث مشكلة عندما يكون الجهاز الاول مثلا كان مغلق فبقية المستخدمين على الجهاز الاول والثاني لن يشاهدو الصورة او المستند لأن مسارها مغلق فهل من طريقة يتم من خلالها معالجة هذا الأمر
kaser906 قام بنشر مارس 12, 2017 الكاتب قام بنشر مارس 12, 2017 في 12/3/2017 at 21:17, رمهان said: أسعد الله صباحك استاذ رمهان الأمر اعتقد يختلف هنا حيث اريد تعريف مجلد المرفقات على الجهاز الرئيسي في واجهة المستخدم ونقل الصورة إليه Expand
رمهان قام بنشر مارس 12, 2017 قام بنشر مارس 12, 2017 اخي انا لم اجرب لكن جرب ان تضع عنوان امجلد على السيرفر كامل مثلا هل انت رابط الجداول ؟
kaser906 قام بنشر مارس 13, 2017 الكاتب قام بنشر مارس 13, 2017 في 12/3/2017 at 21:46, رمهان said: هل انت رابط الجداول ؟ Expand نعم استاذ رهمان الجداول مربوطة سأجرب الكود
kaser906 قام بنشر مارس 13, 2017 الكاتب قام بنشر مارس 13, 2017 مع الاسف لم اظهر بأي نتيجة وضعت مسار الملف نفس مسار قاعدة الجدوال مع كتابة اسم المجلد لكن يظهر خطأ لوكان يوجد مثال للتطبيق عليه
رمهان قام بنشر مارس 14, 2017 قام بنشر مارس 14, 2017 في 13/3/2017 at 16:48, kaser906 said: وضعت مسار الملف نفس مسار قاعدة الجدوال مع كتابة اسم المجلد Expand ممكن تلصقه هنا ومثل ماهو بالضبط ؟
kaser906 قام بنشر مارس 14, 2017 الكاتب قام بنشر مارس 14, 2017 FileCopy Currentfilepath, newfilepath newfilepath=C:\EMplalssdata\image في 14/3/2017 at 05:49, رمهان said: ممكن تلصقه هنا ومثل ماهو بالضبط ؟ Expand وضعته بهذي الطريقة ملف قاعده جازهز ممكن اطبق عليه يمكن ما عرفت كيف اضع الكود
رمهان قام بنشر مارس 14, 2017 قام بنشر مارس 14, 2017 اخي كاسر تمام انا ابي نحدد المشكلة اول وتبدو انها في عدم وضع المسار الصحيح في علم الشبكات ياتعطي لعنوان كامل بما فيه الايبي للسيرفر 192.1.10.119\\ ثم اسم المجلد او عمل ماب للمجلد البعيد محلي لذلك انا سالت هل الجداول مربوطه ؟ وتم الاجابة بنعم . الان اريد التالي اذهب لجدول النظام msysobjects ولعلك تعرف طريقة اظهاره ثم الصق لي الجملة التي بالعمود databse او اكتب جملة الاستعلام التالي في محرر الاستعلام ثم عرض SELECT msysobjects.database FROM msysobjects WHERE (((msysobjects.database) Is Not Null)); هنا راح يظهر لك مسار السيرفر الان اشوف المسار وبعدين نواصل تحياتي
kaser906 قام بنشر مارس 14, 2017 الكاتب قام بنشر مارس 14, 2017 في 14/3/2017 at 17:25, رمهان said: اخي كاسر تمام انا ابي نحدد المشكلة اول وتبدو انها في عدم وضع المسار الصحيح في علم الشبكات ياتعطي لعنوان كامل بما فيه الايبي للسيرفر 192.1.10.119\\ ثم اسم المجلد او عمل ماب للمجلد البعيد محلي لذلك انا سالت هل الجداول مربوطه ؟ وتم الاجابة بنعم . الان اريد التالي اذهب لجدول النظام msysobjects ولعلك تعرف طريقة اظهاره ثم الصق لي الجملة التي بالعمود databse او اكتب جملة الاستعلام التالي في محرر الاستعلام ثم عرض SELECT msysobjects.database FROM msysobjects WHERE (((msysobjects.database) Is Not Null)); هنا راح يظهر لك مسار السيرفر الان اشوف المسار وبعدين نواصل تحياتي Expand استاذ رمهان فقط احب ان اوضح ان قاعدة الجداول وملف المرفقات ليست على سيرفر هي على جهاز كمبيوتر تم الربط عن طريق المشاركة المنزلية في 14/3/2017 at 17:25, رمهان said: اذهب لجدول النظام msysobjects ولعلك تعرف طريقة اظهاره ثم الصق لي الجملة التي بالعمود databse Expand وهذا هو المسار \\TOSHIBA\careitems\Database1 _be.mdb
رمهان قام بنشر مارس 14, 2017 قام بنشر مارس 14, 2017 تمام جرب FileCopy "C:\hi.jpg", "\\TOSHIBA\careitems\hi.jpg" 'طبعا غير مسار الملف في الجزء الاول "C:\hi.jpg" لمسار صحيح محلي اما الجزء الثاني والخاص بمسار السيرفر فاتركه كما هو اعلى بالتوفيق
kaser906 قام بنشر مارس 17, 2017 الكاتب قام بنشر مارس 17, 2017 في 14/3/2017 at 22:26, رمهان said: تمام جرب FileCopy "C:\hi.jpg", "\\TOSHIBA\careitems\hi.jpg" 'طبعا غير مسار الملف في الجزء الاول "C:\hi.jpg" لمسار صحيح محلي اما الجزء الثاني والخاص بمسار السيرفر فاتركه كما هو اعلى بالتوفيق Expand استاذي الكريم حاولت ولم افلح في استخلاص نتيجة لذلك اضع المرفق للمساعدة المطلوب عند اختيار ادخال صورة يتم نسخ الصورة للمسار المحدد بعد ذلك يتم وضع مسار الصورة في الحقل PicFile في الجدول
رمهان قام بنشر مارس 18, 2017 قام بنشر مارس 18, 2017 اين المرفق ؟ وحبذا لو ذكر مسار الملف المحلي المراد نقله تحياتي
kaser906 قام بنشر مارس 18, 2017 الكاتب قام بنشر مارس 18, 2017 في 18/3/2017 at 02:12, رمهان said: اين المرفق ؟ وحبذا لو ذكر مسار الملف المحلي المراد نقله تحياتي Expand عذرا استاذ على نسيان المرفق الصورة التالية توضح المسار المحلي وهذا هو المرفق Getlodpic.rar
kaser906 قام بنشر مارس 18, 2017 الكاتب قام بنشر مارس 18, 2017 توضيح المرفق فقط مثال ولم يتم تقسيمقاعدة البيانات استيضاح هل يمكن استاذي الكريم تحديد مسار السيرفر عن طريق احد الجداول المرتبطه بمعني عند ادخال الصورة يتم تحديد مسار الجدول المرتبط ومن ثم يتم تحديد مسار حفظ الصورة في نفس مسار قاعدة الجداول مع اضافة مجلد حفظ الصور ويكون اسم الصورة الرقم التلقائي للسجل الحالي
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 اخي كاسر جرب ان تضع الكود التالي خلف الزر ادخل الصوره Private Sub cmdInsertPic_Click() Application.FileDialog(3).Show FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\hi.jpg" End Sub ثم تاكد انها انتقلت للجهاز الاخر . لا تتاكد بانه تم عرض الصوره في المربع وانما التاكد بالذهاب للجهاز السيرفر او التي به الجداول كنت اتمنى ان المرفق احتوى على واحد من الجداول المربوطه تحياتي 2
kaser906 قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 في 19/3/2017 at 09:10, رمهان said: اخي كاسر جرب ان تضع الكود التالي خلف الزر ادخل الصوره Private Sub cmdInsertPic_Click() Application.FileDialog(3).Show FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\hi.jpg" End Sub ثم تاكد انها انتقلت للجهاز الاخر . لا تتاكد بانه تم عرض الصوره في المربع وانما التاكد بالذهاب للجهاز السيرفر او التي به الجداول كنت اتمنى ان المرفق احتوى على واحد من الجداول المربوطه تحياتي Expand ممتاز استاذي الكريم تم نسخ الملف الى المسار بنجاح تبقى هناك مشكلة اعادة التسمية فعندما اختار صورة اخرى لنسخها الى المسار لايتم نسخها ولا تظهر اية رسائل والسبب ان ان هناك صورة بنفس الاسم في المجلد hi.jpg فهل يمكن اعادة تسمية الصورة عند نسخها ووضعها بالمجلد بنفس رقم الترقيم التلقائي id او اي رقم اخر
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 اخي كاسر المساله كانت سهله ولكني تعمدت ان نمشي وحده وحده لعلمي بان المشكله كانت في تعريف المسار على اشبكه الان ياعزيزي وقبل ان اعطي حل كامل هل المقصود استبدال الصوره القديمه بالجديده اذا كانت بنفس الاسم ؟
kaser906 قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 في 19/3/2017 at 15:27, رمهان said: اخي كاسر المساله كانت سهله ولكني تعمدت ان نمشي وحده وحده لعلمي بان المشكله كانت في تعريف المسار على اشبكه الان ياعزيزي وقبل ان اعطي حل كامل هل المقصود استبدال الصوره القديمه بالجديده اذا كانت بنفس الاسم ؟ Expand
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 جرب الكود التالي مع تغيير 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 بالتوفيق 4
kaser906 قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 في 19/3/2017 at 17:16, رمهان 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 بالتوفيق Expand الله يعطيك العافية استاذي الكريم
kaser906 قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 في 19/3/2017 at 17:16, رمهان said: بالتوفيق Expand نقطة اخيرة استاذي كيف اجعل الحقل Picfiel يأخذ مسار الصورة بعد نسخها ويضيفة الى الجدول
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 (معدل) اخي كاسر خلني اكون صريح معك وارجو تتحملني لو تلاحظ ان طرحك ليس مباشر وليس فيه مساعده للفهم ولكنني حاولت مستخدمة الخبره في تحليل النظم ان اصل لما تريد في 19/3/2017 at 20:49, kaser906 said: نقطة اخيرة استاذي كيف اجعل الحقل Picfiel يأخذ مسار الصورة بعد نسخها ويضيفة الى الجدول Expand معليش اخي تكرما اضافة مرفقا به مربع النص الذي يظهر الموظف ورقمه ليتم التطبيق تم تعديل مارس 19, 2017 بواسطه رمهان
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 في 19/3/2017 at 21:00, رمهان said: اخي كاسر خلني اكون صريح معك وارجو تتحملني لو تلاحظ ان طرحك ليس مباشر وليس فيه مساعده للفهم ولكنني حاولت مستخدمة الخبره في تحليل النظم ان اصل لما تريد معليش اخي تكرما اضافة مرفقا به مربع النص الذي يظهر الموظف ورقمه ليتم التطبيق Expand صباح الخير استاذي رمهان اولاً ارجو أن تتحملني انت فطلبي يتطور خطوة بعد خطوة وأملي في أخراج هذا المثال على أكمل وجه فهو سيكون بمثابة مرجع لكثير من الأعضاء لأني أكاد أجزم بأن مثل هذا الموضوع في رفع الصور والملفات على السيرفر من جهاز المستخدم تكاد تكون معدومه في اغلب المنتديات والمثال على ما اعتقد اكتمل فقط يتبقى نقطتين اساسيتين وهو جلب مسار الصورة بعد نسخها لعرضها في النموذج اما الثاني لا أعرف هل يمكن تحقيقه أم لا وهو تحديد مسار السيرفر اليا اي من غير أن اذهب واكتب المسار داخل الكود إليك المرفق استاذي بعد التقسيم careitems.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.