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

[محمد احمد لطفى]

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

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

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

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

تم تعديل فبراير 21, 2017 بواسطه محمد احمد لطفى

[jjafferr]

جرب

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

 

جعفر

[محمد احمد لطفى]

لم يعمل 

[jjafferr]

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

\\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)

 

جعفر

[محمد احمد لطفى]

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

و هذا يعمل

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

تم تعديل فبراير 21, 2017 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

هل من مساعدة 

[jjafferr]

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

 

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

.

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

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

.

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

 

جعفر

[محمد احمد لطفى]

نفس الرسالة
Invalid drive specification

[jjafferr]

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

\" & 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 الى الاسماء الحقيقية

 

جعفر

[محمد احمد لطفى]

هناك خطأ فى هذا الكود

[jjafferr]

وهل جربت الجزء الاول من المشاركة؟

[محمد احمد لطفى]

الجزء الاول 

Invalid drive specification

 

 

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

[jjafferr]

منذ ساعه, محمد احمد لطفى 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)

.

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

 

جعفر