[أبو عقيل]

السلام عليكم ورحمة الله وبركاته وبعد 
كيفكم يا أعضاء منتدى فيجوال بيسك لكل العرب



واشكركم على كل ماتقدموه من دعم لأعضاء هذا المنتدى الغالي 
وجعلها الله في ميزان حسناتكم 



أنا عندي برنامج vb6 مرتبط بقاعدة بيانات SQL Server 2008 R2 
والبرنامج شغال على جهازي ولا فيه مشاكل 
ولكن عندما اريد ان ادخل على التطبيق من جهاز اخر على الشبكة المحلية تظهر لي هذه المشكلة 

وبصراحة انا مبتدئ في السيكوال ولا يوجد لدي اي خبرة في هذا النوع من قواعد البيانات 
وهذه صور المشكلة 










وشاكر لكم مرة أخرى

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , ممكن تضع جملة الإتصال التي تستخدمها وأيضا هل سمحت للإتصالات البعيده في خصائص الـ SQL Server , وطريقة السماح هي إفتح برنامج SQL Server Management Studio ثم بعد الإتصال بالسيرفر وظهور إسم السيرفر في القائمة اليسرى إضغط على إسم السيرفر بزر الفأرة الأيمن ثم بعد ظهور القائمة المنسدلة إختر آخر أمر وهو "خصائص" أو "Properties" ثم بعد ظهور شاشة الخصائص إختر من القائمة اليسرى الأمر "أمان" أو "Security" وعند الضغط عليه حدد على الخيار "SQL Server And Windows Authentication" ثم إضغط زر "موافق" أو "OK" لحفظ التغييرات .

[أبو عقيل]

استخدم هذه الجملة في الاتصال اسم السيرفر \s2008
قاعدة البيانات LAB


Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset



con.Open "Driver=SQL Server;Server=.\s2008;Database=LAB;uid=sa;pwd=711406;"

rs.Open "Select * from Admin where Name='" & Text1.Text & "' ", con, adOpenStatic, adLockReadOnly

---

بالنسبة للاعدادات 
هذه صورها 

[Ahmed_Mansoor]

أهلا أخي الكريم , طيب أيضا نسيت بخصوص السماح بالإتصال عن طريق الآيبي وذلك من خلال الذهاب إلى قائمة إبدأ ثم إذهب إلى Microsoft SQL Server 2008 ثم Configuration Tools ثم SQL Server Surface Area Confingration ثم بعد ظهور الشاشة إضغط على Surface Area Confingration for Services and Connections ثم بعد بعد ظهور الشاشة إختر من القائمة اليسرى s2008 ثم Database Engine ثم إضغط على Remote Connections ستظهر لك خيارات في الجهة اليمنى حدد الخيار Local And Remote Connections والخيار Using Both TCP/IP and named pipes ثم إضغط زر "تطبيق" أو "Apply" ثم "موافق" أو "OK" وربما تظهر لك رسالة تقول لك لن يتم تطبيق التغييرات حتى تعيد تشغيل السيرفر ولعمل ذلك قم بالضغط على إسم السيرفر s2008/. والموجود في SQL Server Management Studio إضغط عليه بزر الفأرة الأيمن ثم إختر الأمر Restart , هكذا تستطيع إستخدام إسم السيرفر s2008/. أو آيبي الجهاز المثبت عليه الـ SQL Server مثلا 192.168.1.25/s2008 , وإذا لازالت مشكلة في الإتصال ممكن يكون السبب الجدار الناري في كلا الجهازين الجاهز المتبث عليه الـ SQL Server والجهاز الآخر الذي تريد تشغيل البرنامج فيه جرب تعطل الجدار الناري في الجهازين وجرب .

[ابو ليلى]

و عليكم السلام و رحمة الله و بركاته
اضافة الى كلام الاخ احمد منصور
تابع هذه الجزئية فيما يخص الاعدادات
هنا

[أبو عقيل]

(16-07-17, 03:21 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , طيب أيضا نسيت بخصوص السماح بالإتصال عن طريق الآيبي وذلك من خلال الذهاب إلى قائمة إبدأ ثم إذهب إلى Microsoft SQL Server 2008 ثم Configuration Tools ثم SQL Server Surface Area Confingration ثم بعد ظهور الشاشة إضغط على Surface Area Confingration for Services  and Connections ثم بعد بعد ظهور الشاشة إختر من القائمة اليسرى s2008 ثم Database Engine ثم إضغط على Remote Connections ستظهر لك خيارات في الجهة اليمنى حدد الخيار Local And Remote Connections والخيار Using Both TCP/IP and named pipes ثم إضغط زر "تطبيق" أو "Apply" ثم "موافق" أو "OK" وربما تظهر لك رسالة تقول لك لن يتم تطبيق التغييرات حتى تعيد تشغيل السيرفر ولعمل ذلك قم بالضغط على إسم السيرفر s2008/. والموجود في SQL Server Management Studio إضغط عليه بزر الفأرة الأيمن ثم إختر الأمر Restart , هكذا تستطيع إستخدام إسم السيرفر s2008/. أو آيبي الجهاز المثبت عليه الـ SQL Server مثلا 192.168.1.25/s2008 , وإذا لازالت مشكلة في الإتصال ممكن يكون السبب الجدار الناري في كلا الجهازين الجاهز المتبث عليه الـ SQL Server والجهاز الآخر الذي تريد تشغيل البرنامج فيه جرب تعطل الجدار الناري في الجهازين وجرب .

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

بحثت في القائمة عن SQL Server Surface Area Confingration ولم اجده 

وبالنسبة  TCP/IP  انا عملت منفذ اسمه sql2008port  ورقمه 1433 وكما عطلت الجدار الناري في كلا الجهازين 

انا اتوقع ان اسم السيرفر فيه مشكلة بحيث انه يظهر لي بهذا الشكل Acer-PC\s2008 

وانا اكتبه في جملة الاتصال بهذا الشكل s2008\.

اتمنى انك تشاهد صور الاعدادت وتعطيني ملاحظاتك حولها 
وشاكر لك مرة أخرى 

[جميل علي]

حياكم الله جميعاً
أعتقد أخي يجب كتابة أسم السيرفر بهذا الشكل
Acer-PC\s2008

[أبو عقيل]

(16-07-17, 03:31 AM)ابو ليلى كتب : و عليكم السلام و رحمة الله و بركاته
اضافة الى كلام الاخ احمد منصور
تابع هذه الجزئية فيما يخص الاعدادات
هنا

شاكر لك اخي ابو ليلى 
تابعت الموضوع كل الخطوات نفس اللي عندي

---

(16-07-17, 11:43 AM)جميل علي كتب : حياكم الله جميعاً
أعتقد أخي يجب كتابة أسم السيرفر بهذا الشكل
Acer-PC\s2008

شكرا لك على مرورك 
بأغير الاسم في جملة الاتصال 
وان شاء يكون هذا السبب

[Ahmed_Mansoor]

أهلا أخي الكريم ، يعطيك العافيه على وضعك للصور وفرت أسئلة كثيره ، يبدو من الصور إن شغلك تمام بالنسبه للإعدادات فقط كما ذكرت هو إسم السيرفر وقد إستغربت حقيقه من النقطه الموجوده حيث لم أرها من قبل لذلك هذه المره جرب أنا تضع إسم السيرفر الحقيقي كما يظهر لك وضعه في جملة الإتصال وأيضا جرب أن تضع آيبي الجهاز بدل إسم الجهاز ثم جرب و رد خبر .

[أبو عقيل]

جربت وغيرت اسم السيرفر ولكن طلعت لي نفس الرسالة