Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Go to solution Solved by د.كاف يار,

Recommended Posts

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

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

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

وشكرا

Link to post
Share on other sites

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

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

 

Link to post
Share on other sites

السيد الفاضل 

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

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

د.كاف يار

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

Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...