+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ابحث عن البيانات في ADOTable في قاعدة بيانات SQL ؟ (/showthread.php?tid=6898)
كيف ابحث عن البيانات في ADOTable في قاعدة بيانات SQL ؟ - FaLcon_DZ - 24-03-2015
السلام عليكم
لدي برنامج اقوم ببرمجته وواجهت مشكلة في زر البحث عن البيانات الموجودة في
edit1.text والان اسعى الى برمجة البحث عن اي مدخلات في الedit.text عند الضغط على زر بحث .
كيف ابحث عن البيانات في ADOTable في قاعدة بيانات SQL ؟ - الكاسر الآخر - 24-03-2015
هناك عدة طرق للبحث
1- باستخدام ADOTable أو ADODataset عن طريقة خاصية الفلترة Filter
كود :
AdoTable1.Filtered := False
AdoTable1.Filter := 'FiledName = '+QuotedStr(Edit1.Text)
AdoTable1.Filtered := True;أو عن طريق locate
كود :
if(Locate('Id;Name', VarArrayOf(['19665', 'Mohamed']), [loPartialKey])) Then
Do Something;2- عن طريق TadoQuery وذلك بارسال جملة استعلام sql لقاعدة البيانات ثم فحص عدد السجلات الناتجة ما إذا كانت أكبر من صفر ..
كود :
With Adoquery1 do
begin
Close;
Sql.Clear;
sql.add('select fieldname from yourtable where fieldname = '+quotedstr(edit1.text))
open
if recordcount > 0 then
do something
end;كيف ابحث عن البيانات في ADOTable في قاعدة بيانات SQL ؟ - FaLcon_DZ - 24-03-2015
للاسف اشتغلت معي فقط
كود :
AdoTable1.Filtered := False
AdoTable1.Filter := 'FiledName = '+QuotedStr(Edit1.Text)
AdoTable1.Filtered := True;كيف ابحث عن البيانات في ADOTable في قاعدة بيانات SQL ؟ - S.FATEH - 30-03-2015
السلام عليكم هل جربت استبدال FiledName باسم الحقل الخاص بك !!
كيف ابحث عن البيانات في ADOTable في قاعدة بيانات SQL ؟ - الكاسر الآخر - 30-03-2015
يبدو انك نقلت الكود حرفيا بدون تغيير ... عليك ان تغير الكود وذلك باستبدال fieldname بالحقل الخاص بك و yourtable بالجدول الخاص بك