+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في الفلترة ب ADOQuery (/showthread.php?tid=9685)
مشكلة في الفلترة ب ADOQuery - rezki_z - 22-08-2018
السلام عليكم
لدي هذا الكود و هو يشتغل جيدا لما ابحث عن رقم داخل عمود
كود :
procedure TForm1.sEdit1Change(Sender: TObject);
var a :integer;
begin
IF sEdit1.Text <> '' then
begin
a:=strtoint(sEdit1.Text);
adoquery1.active:=false;
adoquery1.sql.clear;
ADOQuery1.SQL.Add('select * from employé where num_emp='+inttostr(a));
adoquery1.open;
end
else
begin
adoquery1.active:=false;
adoquery1.sql.clear;
ADOQuery1.SQL.Add('select * from employé');
adoquery1.open;
end;
end;RE: مشكلة في الفلترة ب ADOQuery - محمد الدرة - 22-08-2018
البحث عن اسم
ADOQuery1.SQL.Add('select * from employé where Emp_Name='+quotedstr(edit1.text));
البحث عن تاريخ
ADOQuery1.SQL.Add('select * from employé where SpeDay='+quotedstr(formatdatetime('yyyy/mm/dd',edit1.text)));