[elgokr]

(05-03-19, 06:27 PM)نور الهدى الهدى كتب :  ولكن السؤال الان كيف استجلب كود الإتصال بجهاز العميل الذي لايوجد به فيجوال
وكيف أقوم بعمل كلمة مرور للقاعدة

وشكرااااااا

الامر يعود الى خيارين

أولاً من خلال انشاء Settings وعمل شاشة تعديل مسار فى الـ Settings

ويكون الكود الاتصال على هذا النحو

كود :

       Dim conn As New SqlConnection(My.Settings.DBConn)

ويكون قيمة DBConn على هذا الشكل

كود :

       Data Source = (LocalDB) \ MSSQLLocalDB;AttachDbFilename=D:\DDD.mdf;Integrated Security=True;Connect Timeout=30

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

كود :

       My.Settings.acc_address = "Data Source = (LocalDB)\MSSQLLocalDB;AttachDbFilename=D:\DDD.mdf;Integrated Security=True;Connect Timeout=30"
       My.Settings.Save()

طبعاً مكان القيمة استخدم TextBox الفكرة من الاكود 

هو توضيح المثال لكيفية الاستخدام

ثانياً من خلال ملف بجانب البرنامج يتم تعديله فى اى وقت لتغيير مسار قاعدة البيانات

ويكون الكود الاتصال على هذا النحو

كود :

       Dim conn As New SqlConnection(File.ReadAllText(Application.StartupPath & "\DB.txt"))

وكل الامر يتم انشاء ملف بجانب البرنامج باسم DB.txt

ويضع بداخل الملف الكود على هذا الشكل فقط

كود :

       Data Source = (LocalDB)\MSSQLLocalDB;AttachDbFilename=D:\DDD.mdf;Integrated Security=True;Connect Timeout=30

تحياتى لك

وتمنياتى لك التوفيق