+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية فرز بيانات حقيل بواسطة حصر قيمين (/showthread.php?tid=5396)
كيفية فرز بيانات حقيل بواسطة حصر قيمين - bouazza8 - 15-07-2013
السلام عليكم
لدي جدول به حقل به ارقام اريـــد فرز السجلات حسب الحقل مثلا من 1 الى 5 علما اننا القيمة 1 مكتوبة في EDIT1 و القيمة 5 في EDIT2
و انا استعمل ADOQuery1 اسم الحقل NB
كيفية فرز بيانات حقيل بواسطة حصر قيمين - Lam.Abdeldjalil - 15-07-2013
و عليكم السلام و رحمة الله
راجع http://www.delphi4arab.net/forum/showthread.php?tid=495
مثال:
كود :
ADOQuery1.sql.text:='select * from tab where field between '+EDIT1.text+' and '+EDIT2.text+'';كيفية فرز بيانات حقيل بواسطة حصر قيمين - bouazza8 - 15-07-2013
شكرا اخي
هدا هو الكود الكامل لدى هل يمكن تعديل عليه
كود :
TREND.Close;
TREND.SQL.Clear;
TREND.SQL.Add('select * from T_OPRA Where T_OPRA.NMOI between ('+DBEDIT14.text+' and '+DBEDIT5.text+') AND T_OPRA.BANQ=:QBANQ AND T_OPRA.NGP=:QNGP AND T_OPRA.ANN=:QANN AND T_OPRA.NOPRA=:QNOPRA ORDER BY NOM');
TREND.Parameters.ParamByName('QNGP').Value:=TGRP['NGP'];
TREND.Parameters.ParamByName('QBANQ').Value:=COMANG.Text;
TREND.Parameters.ParamByName('QNOPRA').Value:=COM_N.Text;
TREND.Parameters.ParamByName('QANN').Value:=TG['ANN'];
TREND.Open;