منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

الأخوة الأعزاء أرجو مساعدتي للضرورة القصوى ....وجزاكم الله تعالى عني كل خير

عندي برنامج فيجول بيسك بقاعدة بيانات أكسس و أريد تحويله القاعدة بيانات SQL SERVER 2005 وقد قمت بتنزيل برنامج SQL SERVER 2005 بنجاح إن شاء الله

وقمت بتعديل ال Connection String من الأكسس الى SQL SERVER  (كما هو موضح بالصورة)

وعند تشغيل البرنامج يظهر الخطأ الموضح بالصورة أرجو المساعدة بحل هذا الخطأ بالسرعه القصوى من قبل الأخوة ذوي الخبرة 

ويوجد في الصور شاشة الدخول الى برنامج SQL SERVER و المعلومات التي فيها

شكرا و لكم فائق الإحترام

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

شكرا جزيلا أمير جدا لك

لقد قمت بتعديل الجمل المطلوبة لكن لم يعمل وبقية نفس العطل........

لا أعلم هل المشكلة ببرنامج الـــ SQL SERVER 2005  مثلا؟؟؟ أنا متأكد من أنني قمت بجميع الإعدادات الصحيحه.....أوهل المشكلة بــConnection String  مثلا   .لا أعلم وين الخطأ

تم إرفاق الصور



شكرا ولكم فائق الإحترام و التقدير

شكرا جزيلا [b]Amir_alzubidy[/b] 

و إن شاء الله بميزان حسانتك ,بعد دمج فكرتك في برنامج وتشغيله أعطاني OK بأن الإتصال يعمل بحمد الله لكن الخطأ عند ما زال وهو الخطأ السابق

أعتقد أنه لا يستطيع فتح قناة مع الجدول المطلوب يعني :



 Dim str_sql As String

   Dim st_recset As Recordset


    Set st_recset = New Recordset

    str_sql = "SELECT * From skin where check_skin= True"

    ExecuteRecordSetDB str_sql, st_recset



 If st_recset.RecordCount <> 0 Then

end if

=====================================================================================================
وهذاهنا يعطيني خطأ

Public Function ExecuteRecordSetDB(ByVal str_sqlStatement As String, ByRef st_recordSet As Recordset)
   Set st_recordSet = New Recordset
   st_recordSet.Open str_sqlStatement, dbaseConn, adOpenStatic, adLockOptimistic  (على هذا الجملة يعطيني خطأ)
   ExecuteRecordSetDB = st_recordSet
End Function

  سؤال هل هناك Reference أنا لم أحددها للبرنامج مثلا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟  لماذا لا يستطيع فتح قناة مع الجدول skin ?
  البرنامج عندي كانت قاعدة بياناته أكسس و الهدف جعله يعمل على SQL SERVER 2005   على السيرفر بطريق أسرع وأأمن .......أرجو المساعد إذا أمكن