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

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

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

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

عند تشغيل البرنامج علي السيرفر يتشغل البرنامج 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;")

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد بوقزاحة

نيمو

محمد بوقزاحة

نيمو