+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : البحث بقاعدة بيانات access واظهار معلومات السجل (/showthread.php?tid=3998)
البحث بقاعدة بيانات access واظهار معلومات السجل - hadji.samir - 15-03-2012
السلام عليكم ورحمة الله تعالى وبركاته
عندي قاعدة بيانات access مربوطة بجدوا عبر ado ولقد طورتها ليجعل edit يبحث عن الاسماة داخلها
عندما يبعث عن الاسماء يعطي المعلومات عن الشخص مثلا اسم المستخدم سمير وعند ادخال اسم المستخدم يضهر في edit1 وedit2وedit3 و... معلوماته مثلا تاريخ الميلاد و المكان و ...
البحث بقاعدة بيانات access واظهار معلومات السجل - مبرمج مبتدأ - 15-03-2012
فهمت من كلامك أنك تريد البحث في قاعدة البيانات و إليك الحل ان شاء الله
أنا استعملت المكون Tabel1 و سيكون البحث في قاعدة البيانات كالتالي:
إقتباس : Table1.first
While not table1.Eof do
Begin
If Table1.name.AsString = edit1.text then
begin
;Edit2.text := Age
;Edit3.text := First Name
end
else
; '(show message (' No Exist
;end
tABLE1.NEXT
;end
حيث أني استعملت حلقة While و قلت له ابدأ من أول الجدول فإن كان ما هو موجود في Edi1.text موجود في قاعدة البيانات أظهر لي في Edt2.text و Edit3.text اللقب و السن، و إلا أظهر لي رسالة تقول لي أن السام غير موجود .
هذا و الله أعلى و اعلم
البحث بقاعدة بيانات access واظهار معلومات السجل - hadji.samir - 15-03-2012
اي اضع هاذا الكود