برنامج المكتبة بقي البحث

وين الردود ؟؟؟؟؟؟؟؟؟؟؟ :( :( :( :( :(

 Dim xxx
	xxx = InputBox("ادخل اسم الموظف المراد البحث عنه ")
	Data1.RecordSource = " select * from emp where name like '" & xxx & "*'"
	Data1.Refresh

ملاحظة: يجب وضع أداة MSFlexGrid1 حتى تجد جميع البيانات الذي تبدا أسماهم بحرف ح مثلا .

ملاحظة : أرجع للكود ولاحظ أن emp هي أسم الجدول و name الحقل اللي تريد أن تبحث عنه .

تحيااااااااتي

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

مشكوووووور اخي

الكود حقا شغال

لكن شوف انا غيرته

If Option1 = True Then

Form1.Data1.RecordSource = " select * from hs where book like '" & Text1.Text & "*'"

Form1.Data1.Refresh

End If

لان انا سويت بحث بواسطة اسم كتاب او اسم المؤلف

لكن عندما ينتهي البحث اريد اذهب مثلا الى السجل الاخير لا يذهب لماذا ؟

او السجل التالي او السجل الاول ؟؟؟؟

لازم اصك البرنامج بعدين اقدر اذهب السجل التالي

لكن اريد اني مو ضروري اصك البرنامج ؟؟

اذا ما فهمتوا قولوا لي انا احط مثال

عندما ابحث محرك البحث يقول لي يجب ان تضع اكثر من 3 حروف و انا ابحث بجمل !!!!! يبدو ان المحرك فيه مشكلة او جهازي ؟

اخي sql لا اعرفها و الكود ناجح لكن ذكرت فيه مشكلة اعلاه

xxx = InputBox("ادخل اسم الموظف المراد البحث عنه ")

Data1.RecordSource = " select * from emp where name like '" & xxx & "*'"

Data1.Refresh

end select

اخي هل يصح ان اكتب في النهاية end select؟؟

هذا السؤال لان لا احد يجيبني و البحث انا حاطنه في فورم 2 و تكست وليس صندوق ادخال

لذلك غيرت الكود واسالك هل هو صحيح لانه بعد عملية البحث الصحيحة وقد تم ايجاد كتاب اذهب فورم 1 و ارى اني لا استطيع التحريك

الى السجل الاول او التالي او السابق او السجل الاخير ؟؟

لذلك اظن هذا من كود البحث اتمنى الحل بسرعة

هل لاني يجب ان اكتب

end select

ام ماذا ارجو الحل باسرع وقت

والله انا قاعد على الانترنت اسوي رفرش كل دقيقة (F5)

وييييين الردودددد ؟؟

المهم انا برفق ملف وانتوا شوفوا شنو الخطا