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

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


إذهب إلى أفضل إجابة Solved by jjafferr,

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

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

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

Call Shell("xcopy /y 192.168.20.1:\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1)

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

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

انا اصلحت جزء المسار فقط

\\192.168.20.1

 

جرب الكود كالتالي ، واقرأ النتيجة التي سيكتبها عند فتح نافذة التنفيذ السوداء cmd ، وقد تحتاج الى كبس زر Print Screen لعمل نسخة منه قبل ان تُغلق النافذة:

Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", NormalFocus)

 

جعفر

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

اسف لاياتى شاشة سوداء و لا يعمل

و هذا يعمل

Call Shell("xcopy /y g:\123.mdb F:\123.mdb", 1)

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

احنا نحاول نعرف الخطأ فين:smile:

 

خلينا نستعين بادوات الوندوز ، لذا رجاء تفتح:

00.z_0019.jpg.56ca60b74420e515ad12c7c593adb66b.jpg

.

ثم اضف السطر الاول من xcopy ، ورجاء كتابة المسار كاملا لشخص واحد ، للتجربة ،

وانظر الى سبب عدم النسخ (السطر التالي ، والذي بجانبه السهم الاحمر)

00.z_0020.jpg.c38e9c125b68d89e0f5f0c96c6df20da.jpg

.

من هنا سنعرف اذا كانت المشكلة في الشبكة ، او محتاج اسم المستخدم و الباسورد:smile:

 

جعفر

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

للتجربة ، شيل هذه الجملة

\" & Environ("Username") & "\

واستبدلها باسم المستخدم ، حتى يكون المسار كله واضح ، مثلا اذا كان اسم المستخدم jjafferr

Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\jjafferr\Desktop\123.mdb", 1)

 

 

وقرأت هذا في احد المنتديات الاجنبية:

net use "\\xxx.xxx.xxx.xxx\Some Folder" /user:domain\user_name p@ssw0rd xcopy "\\xxx.xxx.xxx.xxx\Some Folder\New.txt" "D:\new.txt"

والامر
Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1)

سيصبح
Call Shell("net use \\192.168.20.1\123.mdb /user:UserName myPassword" "xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1)

 

ويجب ان تغيّر UserName myPassword الى الاسماء الحقيقية:smile:

 

جعفر

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

  • أفضل إجابة
منذ ساعه, محمد احمد لطفى said:

Invalid drive specification

هذا معناه ان الكود لا يستطيع رؤية مسار التخزين في السيرفر ،

فنصيحتي هي عمل مجلد داخل السيرفر ، ولنسمية Temp مثلا ، فيصبح مسار السيرفر:

 \\192.168.20.1\Temp\123.mdb

.

وللعلم ، فامر Xcopy هو:

Xcopy "Source" "Destination"

يعني في الكود حقك
المصدر هو
\\192.168.20.1\123.mdb

ومكان التخزين هو
C:\Users\" & Environ("Username") & "\Desktop\123.mdb"

Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1)

.

ان شاء الله ما تكون قالبهم:blink:

 

جعفر

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

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