البحث في قاعدة البيانات ولكن!

Data1.Recordset.FindLast

هذاكود بمكتبة الداو بالداتا كنترول

الأخ الفاضل ...

يمكنك البدء من أخر سجل ثم الاتجاه لأول سجل

	Dim conn As New Connection
	Dim rs As New Recordset

	conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.mdb;"
	rs.Open "Select * from myTable", conn, adOpenStatic, adLockOptimistic

	rs.MoveLast
	Do While Not rs.BOF
		'
		' Do your task
		'
		rs.MovePrevious
	Loop

	rs.Close
	conn.Close

شكراً

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

أخي / eng_ashraf

- اذا كنت تستخدم الـ ADO

القصه تدور حول تحديد الـ ADO search direction

فا إذا كنت تريد البحث من اخر سجل Record الى اول سجل Record .

قم بالذهاب الى اخر سجل ثم ابدأ بعملية البحث بطريقه عكسيه Search Backward .

ثم قم بوضع شرط بأنه اذا لم يقم بالوصول الى ما بعد اول سجل Record هذه العمليه تسمى بـ (BOF ) وهذا ايضا يعني انه تم إيجاد ما تبحث عنه يتم مثلا عرض ما تريده من Items لهذا الـ Record .

ويكــون الكود هكذا :

rs.MoveLast
rs.Find "شرط البحث", , adSearchBackward
If Not rs.BOF Then msgbox rs("اسم الحقل")

بإفتراض ان الـ rs هي الـ Recordset الذي تقوم بالبحث فيه .

- اما اذا كنت تستخدم الـ DAO

قم بالبحث كما تفضل الاخ / kindy_ibrahim بالتوضيح باستخدام FindLast

rs.FindLast "شرط البحث"
If Not rs.BOF Then msgbox rs("اسم الحقل")

بقية الكود تم توضيحه مع الـ ADO

بالتوفيق .........

A7med_prof

اقتباس

rs.MoveLast
	Do While Not rs.BOF
		'
		' Do your task
		'
		rs.MovePrevious
	Loop

ها الكود ضبط مع تمام

مشكور اخوى

مشكووووووووورين جدا جدا للاخ

kindy_ibrahim و الاخ

Eng. Usama El-Mo والاخ

A7med_prof والاخت سهاوند

لسرعة ردكم على طلبي و الى الامام