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

[AhmedEmam]

السلام عليكم الساده الاعضاء 

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

المطلوب ازاى احفظ تسجيل الدخول على طول 

وشكرا

[د.كاف يار]

استخدم هذا الكود اخي الكريم

Set conn = CreateObject("ADODB.Connection")

' ادخل اسم السيرفر و اسم المستخدم و كلمة المرور
conn.Open "DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase"

Set rs = CreateObject("ADODB.recordset")
Dim MyData As String

MyData = "اسم الجدول"
Dim usert As String
rs.Open "Select * from " & MyData, conn
If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
         usert = usert & vbNewLine & rs.Fields("[اسم العمود]")
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
MsgBox usert

 

[AhmedEmam]

السيد الفاضل 

انا مش عايز جملة الاتصال 

دى الصور 

د.كاف يار

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

[د.كاف يار]

 تضبط مع تحديث الارتباط 

كما هو موضح 

 

 

 

تم تعديل نوفمبر 15, 2020 بواسطه د.كاف يار

[AhmedEmam]

د.كاف يار

الله ينور عليك تسلم هوا ده 

الف الف شكر