[محمد بوقزاحة]

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

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

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

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

[نيمو]

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

كود :

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

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

[محمد بوقزاحة]

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

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

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

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

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

[نيمو]

في 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;")

الملف في المرفقات