+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : المساعدة في ربط الفيجوال بيسك sql-server-2008 من جهاز متصل بالشبكة windows-server-200 (/showthread.php?tid=1753)
المساعدة في ربط الفيجوال بيسك sql-server-2008 من جهاز متصل بالشبكة windows-server-200 - flirtprince - 29-01-14
السلام عليكم ورحمة الله وبركاته
اخواني الاعزاءرجاء المساعدة
قمت بتحديث جهاز الخادم الى windows server 2008 وقمت بتحميل sql server 2008
وعندي برنامج مصمم بالفيجوال بيسك 6 .
عند تشغيل البرنامج من جهاز السيرفر نفسه يتصل ولا يوجد مشاكل في تشغيل البرنامج
ولكن عند تشغيل البرنامج واتصالي من وحدة طرفية workstation جهاز متصل بالسيرفر لا يمكن الاتصال بالاس كيو ال سيرفر الموجود على السيرفر
ارجو المساعدة علما بان الأمر المستخدم هو :
con.open = "provider = sqloledb.1;integrated security = sspi;persist security info = false;
initial catalog = dbase1;trusted_connection = yes; data source = datasys1;"
iهل يتطلب مني تحميل sql server 2008 على كل الاجهزة الطرفية المتصلة بالسيرفر
لكم كل الشكر لمن يساعد في هذه المشكلة
والله ولي التوفيق.
RE: المساعدة في ربط الفيجوال بيسك sql-server-2008 من جهاز متصل بالشبكة windows-server-200 - ahmedabdelaliem - 23-02-14
وعليكم بالسلام ورحمة الله وبركاته
شوف اخي العزيز اول شئ هتقفل Windows Firewall خالص
وتحوال الاتصال ان شاء الله يظبط معاك
واذا لم يعمل هتشيل اسم السيرفر وتكتب رقم ال Local IP بتاع السيرفر
لكن ال Windows Firewall لا تفتحه الان خالص
اذا تم الاتصال تقوم بالسماح الى SQL Server في Windows Firewall بالاتصال الخارجي
وشوف وربنا يسهل
RE: المساعدة في ربط الفيجوال بيسك sql-server-2008 من جهاز متصل بالشبكة windows-server-200 - تركي الحلواني - 24-02-14
اذا مااشتغل الطريقة الى وصفها لك الاخ ahmedabdelaliem
جرب عمل يوزر في الإس كيو ال
وجرب الإتصال بكود اليوزر
PHP كود :
If Cn.State = 1 Then Cn.Close
With Cn
.ConnectionTimeout = 30.
ConnectionString = "Provider=SQLOLEDB.1;" & "User ID=User1; Password=123;" & ";Initial Catalog=TRCIN;Data Source=" + ServName + ""
.Open
End With