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
        While (Not rs.EOF)
         usert = usert & vbNewLine & rs.Fields("[اسم العمود]")
    End If
    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.

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