kaser906 قام بنشر مارس 12, 2017 قام بنشر مارس 12, 2017 السلام عليكم ورحمة الله وبركاتة لنفترض ان لدينا قاعدة بيانات على الشبكة ( شبكة داخلية ) الجهاز الأول توجد علية قاعدة بيانات الجداول ومجلدات المرفقات الخاصة بالصور والمستندات الجهاز الثاني والثالث متصلين بقاعدة الجداول لو افترضنا ان احد الاجهزة الثاني او الثالث اراد ارفاق مستند word او مستند pdf او صورة هناكيف يتم نقل الصورة الى الجهاز الخادم الذي توجد عليه قاعدة البيانات الاساسية فلو تركنا البرنامج يحدد مسار الصورة فقط دون نقلها للجهاز الخادم ووضعة بقاعدة بيانات الجداول ستحدث مشكلة عندما يكون الجهاز الاول مثلا كان مغلق فبقية المستخدمين على الجهاز الاول والثاني لن يشاهدو الصورة او المستند لأن مسارها مغلق فهل من طريقة يتم من خلالها معالجة هذا الأمر
kaser906 قام بنشر مارس 12, 2017 الكاتب قام بنشر مارس 12, 2017 5 دقائق مضت, رمهان said: أسعد الله صباحك استاذ رمهان الأمر اعتقد يختلف هنا حيث اريد تعريف مجلد المرفقات على الجهاز الرئيسي في واجهة المستخدم ونقل الصورة إليه
رمهان قام بنشر مارس 12, 2017 قام بنشر مارس 12, 2017 اخي انا لم اجرب لكن جرب ان تضع عنوان امجلد على السيرفر كامل مثلا هل انت رابط الجداول ؟
kaser906 قام بنشر مارس 13, 2017 الكاتب قام بنشر مارس 13, 2017 9 ساعات مضت, رمهان said: هل انت رابط الجداول ؟ نعم استاذ رهمان الجداول مربوطة سأجرب الكود
kaser906 قام بنشر مارس 13, 2017 الكاتب قام بنشر مارس 13, 2017 مع الاسف لم اظهر بأي نتيجة وضعت مسار الملف نفس مسار قاعدة الجدوال مع كتابة اسم المجلد لكن يظهر خطأ لوكان يوجد مثال للتطبيق عليه
رمهان قام بنشر مارس 14, 2017 قام بنشر مارس 14, 2017 13 ساعات مضت, kaser906 said: وضعت مسار الملف نفس مسار قاعدة الجدوال مع كتابة اسم المجلد ممكن تلصقه هنا ومثل ماهو بالضبط ؟
kaser906 قام بنشر مارس 14, 2017 الكاتب قام بنشر مارس 14, 2017 FileCopy Currentfilepath, newfilepath newfilepath=C:\EMplalssdata\image 10 ساعات مضت, رمهان said: ممكن تلصقه هنا ومثل ماهو بالضبط ؟ وضعته بهذي الطريقة ملف قاعده جازهز ممكن اطبق عليه يمكن ما عرفت كيف اضع الكود
رمهان قام بنشر مارس 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 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
رمهان قام بنشر مارس 14, 2017 قام بنشر مارس 14, 2017 تمام جرب FileCopy "C:\hi.jpg", "\\TOSHIBA\careitems\hi.jpg" 'طبعا غير مسار الملف في الجزء الاول "C:\hi.jpg" لمسار صحيح محلي اما الجزء الثاني والخاص بمسار السيرفر فاتركه كما هو اعلى بالتوفيق
kaser906 قام بنشر مارس 17, 2017 الكاتب قام بنشر مارس 17, 2017 في ١٦/٦/١٤٣٨ هـ at 01:26, رمهان said: تمام جرب FileCopy "C:\hi.jpg", "\\TOSHIBA\careitems\hi.jpg" 'طبعا غير مسار الملف في الجزء الاول "C:\hi.jpg" لمسار صحيح محلي اما الجزء الثاني والخاص بمسار السيرفر فاتركه كما هو اعلى بالتوفيق استاذي الكريم حاولت ولم افلح في استخلاص نتيجة لذلك اضع المرفق للمساعدة المطلوب عند اختيار ادخال صورة يتم نسخ الصورة للمسار المحدد بعد ذلك يتم وضع مسار الصورة في الحقل PicFile في الجدول
رمهان قام بنشر مارس 18, 2017 قام بنشر مارس 18, 2017 اين المرفق ؟ وحبذا لو ذكر مسار الملف المحلي المراد نقله تحياتي
kaser906 قام بنشر مارس 18, 2017 الكاتب قام بنشر مارس 18, 2017 13 ساعات مضت, رمهان said: اين المرفق ؟ وحبذا لو ذكر مسار الملف المحلي المراد نقله تحياتي عذرا استاذ على نسيان المرفق الصورة التالية توضح المسار المحلي وهذا هو المرفق 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 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 او اي رقم اخر
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 اخي كاسر المساله كانت سهله ولكني تعمدت ان نمشي وحده وحده لعلمي بان المشكله كانت في تعريف المسار على اشبكه الان ياعزيزي وقبل ان اعطي حل كامل هل المقصود استبدال الصوره القديمه بالجديده اذا كانت بنفس الاسم ؟
kaser906 قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 53 دقائق مضت, رمهان said: اخي كاسر المساله كانت سهله ولكني تعمدت ان نمشي وحده وحده لعلمي بان المشكله كانت في تعريف المسار على اشبكه الان ياعزيزي وقبل ان اعطي حل كامل هل المقصود استبدال الصوره القديمه بالجديده اذا كانت بنفس الاسم ؟
رمهان قام بنشر مارس 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 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 قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 3 ساعات مضت, رمهان said: بالتوفيق نقطة اخيرة استاذي كيف اجعل الحقل Picfiel يأخذ مسار الصورة بعد نسخها ويضيفة الى الجدول
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 (معدل) اخي كاسر خلني اكون صريح معك وارجو تتحملني لو تلاحظ ان طرحك ليس مباشر وليس فيه مساعده للفهم ولكنني حاولت مستخدمة الخبره في تحليل النظم ان اصل لما تريد 11 دقائق مضت, kaser906 said: نقطة اخيرة استاذي كيف اجعل الحقل Picfiel يأخذ مسار الصورة بعد نسخها ويضيفة الى الجدول معليش اخي تكرما اضافة مرفقا به مربع النص الذي يظهر الموظف ورقمه ليتم التطبيق تم تعديل مارس 19, 2017 بواسطه رمهان
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 6 ساعات مضت, رمهان said: اخي كاسر خلني اكون صريح معك وارجو تتحملني لو تلاحظ ان طرحك ليس مباشر وليس فيه مساعده للفهم ولكنني حاولت مستخدمة الخبره في تحليل النظم ان اصل لما تريد معليش اخي تكرما اضافة مرفقا به مربع النص الذي يظهر الموظف ورقمه ليتم التطبيق صباح الخير استاذي رمهان اولاً ارجو أن تتحملني انت فطلبي يتطور خطوة بعد خطوة وأملي في أخراج هذا المثال على أكمل وجه فهو سيكون بمثابة مرجع لكثير من الأعضاء لأني أكاد أجزم بأن مثل هذا الموضوع في رفع الصور والملفات على السيرفر من جهاز المستخدم تكاد تكون معدومه في اغلب المنتديات والمثال على ما اعتقد اكتمل فقط يتبقى نقطتين اساسيتين وهو جلب مسار الصورة بعد نسخها لعرضها في النموذج اما الثاني لا أعرف هل يمكن تحقيقه أم لا وهو تحديد مسار السيرفر اليا اي من غير أن اذهب واكتب المسار داخل الكود إليك المرفق استاذي بعد التقسيم 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.