كيفية حساب عدد السجلات؟

ابداً ما في مشكلة اخي ابراهيم :) انا عارفة ان السؤال غريب ، لأني اعرف ان RecordCount خاصة بارجاع عدد السجلات .. و ذلك الى ان اعادة لي القيمة (المشؤومة :) ) -1 .. سأرفق لك البرنامج قريباً ... حتى نبحث بعد ذلك معاً عن معنى الـ -1 هذه فلا تحاول الهروب بعدها :)

بنت اليمن ،،

لاظهار عد السجلات

do while not data1.recordset.eof
if data1.recordset.field("english")=cstr(trim(text1.text)) then
i=i+1
list1.additem data1.recordset.field("english")
end if 
data1.recordset.movenext
loop

label1.caption=i & " " & "records found"

حيث text1 هو النص الذي تبحث عنه

هذه المشكله التي تظهر معي عند طلب عدد السجلات :

على الرغم من ان عدد السجلات معي 62 (كما في الصورة الثانية) !! ... هل هو تخريف و حسب (هذا ما اتمنها) :D

بنت اليمن ،،

السلام عليكم

الى عضوة الشرف بنت اليمن :)

من الطبيعى ان يظهر لكى نتيجة غير متوقعة مثل -1 وذلك للأسباب التالية :

أولا : ان الصغية العامة لفتح RecordSet تكون كالتالى :

rs.open SQL,Connection,CursorType,LockType

وانت لم تستخدمى من هذه الصيغة غير أول معاملين وأهملتى الباقى لأانه اختيارى وخصوصا المعامل

الثالث CursorType و الذى يحدد طريقة التعامل مع السجلات و يأخذ واحد من أربع قيم وهم :

adOpenForwardOnly ---- الافتراضى

adOpenKeySet

adOpenDynamic

adOpenStatic --- المفضل لى

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

واليك بعض المعلزمات عن ال adOpenForwardOnly :

من خلال هذا الموشر يتسنى لك الانتقال الى الامام فقط عند تصفح السجلات ويستخدم هذا المؤشر إذا

كانت العمليات التى ستجرى على الrecordset بسيطة

1- مميزاته :

يستهلك أقل قدر من الذاكرة وسرعة عالية فى الانتقال الى الامام فقط

2 - عيوبه :

يتم غلق بعض الخصائص الخاصة بال recordset و تصبح غير متاحة ومن هذه الخصائص :

AbsolutePage

AbsolutePosition

BookMark

EditMode ---- تصبح للقرائة فقط

MoveLAst

MovePrevious

وبالتالى لا يعطى قيمة ال recordcount بشكل صحيح عند استخدامه

وأيضا المؤشر adOpenDynamic مع أنه يتيح التحرك فى كل الاتجاهات فهو لا يعطى ال recordcount بشكل

صحيح لأن من خصائص هذا المؤشر انه يتيح الاضطلاع على عمليات الاضافة و الحذف و التعديل اذا كان هناك أكثر

من مستحدم لنفس قاعدة البيانات و بالتالى فإنه من الصعب الحصول على عدد السجلات فى بيئة ديناميكية

كالتى يستخدمها هذ المؤشر .....

أما انا فأنصحك باستخدام المؤشر adOpenStatic والذى يناسب استخداماتنا لقواعد البيانات والذى يتيح

الانتقال فى جميع الاتجاهات و عدد السجلات و الاستخدام مع التقارير ولكنه ابطأ نسبيا من المؤشرين الاخرين

ولكنه فعال جدا...

وإذا كنتى تريدين معرفة الأشياء المتاحة و الغير متاحة فى كل مؤشر فاستخدمى الأمر التالى

msgbox rs.Supports(Property)

حيث ال Property هى الخاصية المراد التأكد إذا كانت متاحة أم لا فى المؤشر الحالى

فإذا كان الناتج True إذا هى متاحة و False إذا غير متاحة

وفى النهاية أنصحك بكتابة الصيغة الخاصة بفتح ال RecordSet كاملة و معرفة كل شئ عنها حتى لا تقعى

فى مثل هذه الحيرة مرة أخرى

وأرجو ان يكون الجميع قد استفاد من هذا الشرح :)

السلام عليكم

بارك الله فيك أخي العزيز "VB6-Rocket" علي هذه المعلومات ...

---

اقتباس

فلا تحاول الهروب بعدها :) 

السلام عليكم ،،

على اني اشتممت رائحة السخرية من ذكر "الى عضوة الشرف بنت اليمن" الا اني استحق ذلك :D ، فما ذكرته اخي الكريم كلام صحيح و منطقي .. فالغريب اني عندما استخدم Recordcount في برنامج حقيقي لا اجد هذه المشكلة .. و لكني عندما استخدمه في نسخة تجريبة لبعض الاوامر قبل استخدامها اوجه هذه المشكلة !!! فكان لابد لي ان افهم الغلط الذي كان عندي ... و عليه فدعني اشكرك فعلاً على هذه الملاحظة المهمة و التي لم اكن لأعرفها لو لم اسأل .. و هذه فائدة السؤال .. فخالص شكري لك .. و بارك الله فيك :) ..

اخي ابراهيم .. يبدو اني انا التي سوف اجر قدمي هاربة ... :D

بنت اليمن ،،

السلام عليكم :)

لا أدرى لماذا أشتممتى فى كلمتى لمحة من السخرية !!!

مع أنى والله أعلم أنى لم أقصد منها إلا التوقير والاحترام

و على العموم لا شكر على واجب :)

انني استخدم adOpendynamic واعتقد أن المشكلة ليست في نوع المؤشر ولكن في موقع المؤشر

بمعنى أنك عندما تحدد مكان المؤشر باستخدام الجملة التالية

cnn.CursorLocation = adUseClient
فسيعطيك عدد السجلات مهما كان نوع المؤشر المستخدم

معلش رأيت الرابط موجود في أحد الردود الأخرى

تحياتي لكم

اخوكم ناصر