منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] backup انشاء نسخ احتياطي من اجهزة على الشبكة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] backup انشاء نسخ احتياطي من اجهزة على الشبكة (/showthread.php?tid=41597)

backup انشاء نسخ احتياطي من اجهزة على الشبكة - محمد بوقزاحة - 01-06-22

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

ارجو مساعدتي في ايجاد طريقة لتشغيل البرنامج المرفق على الشبكة 

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

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

RE: backup انشاء نسخ احتياطي من اجهزة على الشبكة - نيمو - 01-06-22

حسب فهمي للموضوع


كود :
If My.Computer.Name = "DESKTOP-UTV1793" Then
           'server("DESKTOP-QRSLB4V\SQL_2019_R2")
           'FILL_COMBO()
           MsgBox("OK")
       Else
           MsgBox("سيرفر مختلف")
       End If

جربت اكتب اسم الكمبوتر الخاص بي اشتغل البرنامج فانت لما تشغل البرنامج على سيرفر اسمه

كود :
SQL_2019_R2
وتخلي امتداده او مكانه

كود :
DESKTOP-QRSLB4V\SQL_2019_R2

طبعا مايتعرف على الاسم او السيرفر الفرعي
حسب ما فهمت من المشكله لازم تخلي شرط للاتصال اذا فرعي تنطيه لوكيشن اخر واذا رئيسي لوكيشن مختلف

RE: backup انشاء نسخ احتياطي من اجهزة على الشبكة - محمد بوقزاحة - 01-06-22

(01-06-22, 11:05 AM)محمد بوقزاحة كتب : السلام عليكم ورجمة الله 

ارجو مساعدتي في ايجاد طريقة لتشغيل البرنامج المرفق على الشبكة 

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

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

شكرا اخي الكريم
ممكن توضح اكثر وتعدل على المثال المرفق

RE: backup انشاء نسخ احتياطي من اجهزة على الشبكة - نيمو - 01-06-22

في Form1_Load
تكون

كود :
server("SQL_2019_R2")

في سوب FILL_COMBO
تكون
كود :
       Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=SQL_2019_R2" + ";Initial Catalog=tempdb;Integrated Security=SSPI;")
الملف في المرفقات