المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : طرق البحث واسرعها

amar_del2007
12-04-2010, 06:39 PM
السلام عليكم :
اخوتي في المنتدى موضوع البحث جداً مهم ويجب علينا الاهتمام به خاصة مع زيادة عدد البيانات والسجلات .. انا استخدم Query and Table عندما ابحث عن سجل استخدم دالة locate ولكنها بطيئة مع البيانات الكبيرة لذا قررت استخدام جملة SQL باستخدام ADocommand ولكن كيف اربطها بشرط صح او خطأ يعني في حالة وجود هذا السجل اذهب وافعل كذا كذا ..
ADOCommand1.CommandText:='select * from operaters_buy where sanad_num=:a';
ADOCommand1.Parameters.ParamByName('a').Value:=edi t1.Text;
ADOCommand1.Execute;
كيف ان اربط نتيجة الاستعلام ب Boolean فاذا تحقق تظهر مسج تقول تحقق واذا لا تظهر رسالة بعدم وجود طبقت هذا في locate ولكن في adocommand كيف .. ؟
shagrouni
12-04-2010, 07:33 PM
السلام عليكم

استخدم AdoQuery
kachwahed
12-04-2010, 07:39 PM
وعليكم السلام ورحمة الله وبركاته
يمكن للمكون TADOCommand أن يعيد كائن _Recordset
يحتجز هذا الكائن جدول للسجلات التي تم الاستعلام عنها
يمكن فحص عدد سجلات هذا الجدول وإعادة الناتج في Boolean
ADOCommand1.Execute().RecordCount > 0 ;
تجد مثال آخر من هنا:
http://www.delphi4arab.com/forum/showpost.php?p=11498&postcount=11
بالتوفيق.
amar_del2007
12-04-2010, 08:01 PM
السلام عليكم :
استخدم AdoQuery
شكرأً على التجاوب .
هل يمكن باستعلام عمل مثل هذا الشرط باستخدام locate
if Data.voucher_recipet.Locate('R_voucher',edit3.Text ,[]) then
ولكم الشـكر .