اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


AhmedEmam
إذهب إلى أفضل إجابة Solved by د.كاف يار,

الردود الموصى بها

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

انا عندى برنامج عامل الشاشات اكسس والجداول عملها 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

 

رابط هذا التعليق
شارك

السيد الفاضل 

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

دى الصور image.png.2d599780755aba373e9ac83645ce371c.png

د.كاف يار

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information