+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] الأخوة الأعزاء أرجو مساعدتي للضرورة القصوى ....وجزاكم الله تعالى عني كل خير (/showthread.php?tid=22442)
الأخوة الأعزاء أرجو مساعدتي للضرورة القصوى ....وجزاكم الله تعالى عني كل خير - Rami_Mezo - 06-11-17
السلام عليكم و رحمة الله وبركاته
الأخوة الأعزاء أرجو مساعدتي للضرورة القصوى ....وجزاكم الله تعالى عني كل خير
عندي برنامج فيجول بيسك بقاعدة بيانات أكسس و أريد تحويله القاعدة بيانات SQL SERVER 2005 وقد قمت بتنزيل برنامج SQL SERVER 2005 بنجاح إن شاء الله
وقمت بتعديل ال Connection String من الأكسس الى SQL SERVER (كما هو موضح بالصورة)
وعند تشغيل البرنامج يظهر الخطأ الموضح بالصورة أرجو المساعدة بحل هذا الخطأ بالسرعه القصوى من قبل الأخوة ذوي الخبرة
ويوجد في الصور شاشة الدخول الى برنامج SQL SERVER و المعلومات التي فيها
شكرا و لكم فائق الإحترام
RE: الأخوة الأعزاء أرجو مساعدتي للضرورة القصوى ....وجزاكم الله تعالى عني كل خير - Rami_Mezo - 07-11-17
السلام عليكم و رحمة الله وبركاته
شكرا جزيلا أمير جدا لك
لقد قمت بتعديل الجمل المطلوبة لكن لم يعمل وبقية نفس العطل........
لا أعلم هل المشكلة ببرنامج الـــ SQL SERVER 2005 مثلا؟؟؟ أنا متأكد من أنني قمت بجميع الإعدادات الصحيحه.....أوهل المشكلة بــConnection String مثلا .لا أعلم وين الخطأ
تم إرفاق الصور
شكرا ولكم فائق الإحترام و التقدير
RE: الأخوة الأعزاء أرجو مساعدتي للضرورة القصوى ....وجزاكم الله تعالى عني كل خير - Rami_Mezo - 08-11-17
شكرا جزيلا [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 على السيرفر بطريق أسرع وأأمن .......أرجو المساعد إذا أمكن