الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن تصحيح هذا الكود

مغلق
بدأه العالم في 26 نوفمبر 2005 · 2 رد · 1,292 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

ممكن مساعدة في هذا الكود المرفق لانه يظهر لي خطأ عند النقر على زر بحث ... ولا ادري ما هو الخطأ في الكود ...

Set dbg.DataSource = Nothing
rs.Close

If op1.Value = True Then
 rs.Open "SELECT * FROM [person] WHERE [Name] LIKE '%" & Trim(Text2) & "%'", db, adOpenStatic, adLockPessimistic
End If
If op2.Value = True Then
 rs.Open "SELECT * FROM [person] WHERE [phone] = " & Val(Trim(Text2)), db, adOpenStatic, adLockPessimistic
End If
rs.Requery
Set dbg.DataSource = rs
        DoEvents
Set rs = Nothing

حيث dbg هو اسم لاداة الداتا قريد

و op1 op2 اسماء لاداة الاوبش

-------------------------------------

حيث يظهر لي خطأ في جملة 

rs.Close

وكذلك في جملة ..

rs.Open "SELECT * FROM [person] WHERE [phone] = " & Val(Trim(Text2)), db, adOpenStatic, adLockPessimistic

وكذلك عند النقر على زر البحث عدة مرات يظهر خطأ عند جملة 

rs.Close

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

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#2

اخي العزيز الجملة Set dbg.DataSource = Nothing

rs.Close

مش صحيحة لانك انت تريد فتح قاعدة البيانات مش رح تغلقها زي منتا عامل

ه>ا الواضخ امامي و إن شاء الله نستنو خبرا فيجوال نت للرد

#3 
If rs.State = 1 Then rs.Close
If op1.Value = True Then
    rs.Open "SELECT * FROM person WHERE [Name] LIKE '%" & Trim(Text2) & "%'", adOpenStatic, adLockOptimistic
End If
If op2.Value = True Then
rs.Open "SELECT * FROM  person  WHERE phone  = " & Val(Trim(Text2)), db, adOpenStatic, adLockOptimistic
End If

Set dbg.DataSource = rs

ملاحضات :

Set rs = Nothing

اخي الكريم Rs هو عبارة عن متغير من نوع مؤشر لذلك عند إغلاقة وهوا حاليا مستخدم في DataGriad يسبب لك مشاكل . لذا لا تغلق rs إلى عندما تود ان تغير الإستعلام يجب ان تفحص حالة الفتح للـ rs فإن كان مفتوح قم بإغلاقة .

rs.Requery

ليس لها اي داعي لأنك حاليا فتحت الإستعلام إلى القاعدة لماذا تود إعادة تحديثة مرة أخرى على الرغم من انك لسا طالبه .

DoEvents

تستخدم هذه الجملة عادة في الحلقات التكرارية Loop أو الإستدعاء الذاتي وهي تفيد في السماح للمعالج بمعالجة بقية الإوامر بجانب الأمر الحالي . لذلك لا يوجد لها داعي في كودك هنا .

أتمنا ان اكون أفدتك

التخصص : نظم معلومات - جامعة سبأ - اليمن

من مواضيعي :

السلسلة الذهبية في تعلم البرمجة [شرح عن الإجراءات والدوال function وبناء الـ Classes] .

هذا الموضوع مغلق.

مواضيع مشابهة