السلام عليكم ورحمة الله وبركاته
كيف يتم الحصول على عدد السجلات ؟ طبعا باستخدام ADOQuery
الحصول على عدد السجلات
مغلق
عن طريق الخاصية RecordCount
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
شكرا لك
ممكن مثال
انااعرف ان RecordCount ترمز لعدد السجلات لكن كيف اتوصل لكتابة كودها
المعذرة إلى الآن لم أتقن النحو ( الساينتكس ) متعود على سهولة الفيجول بيسك
msgbox(rs.recordcount)
يمكن قصدك اظهار رسالة بالعدد
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr( ADOQuery1.RecordCount)); end;
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
غريبة الدلفي
كود تستخدمه احسن ما يكون ، تنقله لمكان ثاني ما يعمل !!
الكود اللي عطيتني اردت بدلا من إظهار رسالة أن يضع الناتج داخل Label
label1.caption:=adoquery1
وضعت نقطة ( . ) ولكن ظهرت القائمة المنسدلة بدون RecordCount
:(
عفوا اخي الكريم
استخدمت IntToStr فظهرت الـRecordCount
:)
يا ليت لو توضح متى يتم استخدام هذه الدالة .
فهمت من اسمها انها تحول من رقم الى نص ؟
وشكرا
تم تعديل هذه المشاركة بواسطة المتميز في 30 يوليو 2005 في 01:38
المتميز كتب:غريبة الدلفيكود تستخدمه احسن ما يكون ، تنقله لمكان ثاني ما يعمل !!
الكود اللي عطيتني اردت بدلا من إظهار رسالة أن يضع الناتج داخل Label
label1.caption:=adoquery1وضعت نقطة ( . ) ولكن ظهرت القائمة المنسدلة بدون RecordCount
:(
ما غريب الا الشيطان
يا اخي هل تعرف لماذا؟ لان RecordCount عيارة عن integer وبالتالي لن تستطبع منحها مباشرة الى caption يا حبوب
عرفت من الغريب :lol:
لكن لو كنت كتبت الدالة IntToStr ثم بين قوسيها كتبت adoquery1 ثم وضعت نقطة ( . ) لظهر المطلوب
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
انت سويت
label1.caption:=adoquery1
والمفروض هكذا
Label1.Caption:=IntToStr(ADOQuery1.RecordCount);
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
:) مشكورين
اخي رومانوف ركز في ردي اللي فوق :)
-----------------------
عفوا اخي الكريم
استخدمت IntToStr فظهرت الـRecordCount
-----------------------
تداركت خطأي وهذا بجهودكم
انا ركزت على هذا الكود
اقتباسهذا اللي سويته فوق واشرت إليهوين عيونك
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
هذا الموضوع مغلق.