+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : أخذ قيمة DBEdit وجعلها في استعلام ADOQuery (/showthread.php?tid=7603)
أخذ قيمة DBEdit وجعلها في استعلام ADOQuery - wadoud - 13-03-2016
السلام عليكم
كيف أعدل على الكود التالى:
procedure TForm1.Button1Click(Sender: TObject);
بحيث اريد أن يأخذ y ما هو موجود او معروض في DBEditكود :
begin
if ADoquery1.Active then
ADoquery1.Close;
ADOquery1.SQL.Text := 'SELECT SUM(x) AS TOTAL '
+ 'FROM Tablename '
+ 'WHERE Id = y ' ;
ADOquery1.Open;
ShowMessage('Total : ' + ADOquery1.FieldByName('TOTAL').asString);
end;جزاكم الله كل خير.
RE: أخذ قيمة DBEdit وجعلها في استعلام ADOQuery - Mr.DOS - 13-03-2016
سلام عليكم
عوض y بـ dbedit
كود :
where id ='''+dbedit.text+'''RE: أخذ قيمة DBEdit وجعلها في استعلام ADOQuery - wadoud - 13-03-2016
لم يعمل لقد وضعت كما قلت و لم يعمل
begin
if ADoquery1.Active then
ADoquery1.Close;
ADOquery1.SQL.Text := 'SELECT SUM(x) AS TOTAL '
+ 'FROM Tablename '
+ 'WHERE Id = '''+dbedit.text+'''' ;
ADOquery1.Open;
ShowMessage('Total : ' + ADOquery1.FieldByName('TOTAL').asString);
end;
RE: أخذ قيمة DBEdit وجعلها في استعلام ADOQuery - PLANSHARP - 13-03-2016
كود :
begin
if ADoquery1.Active then
ADoquery1.Close;
ADOquery1.SQL.Text := 'SELECT SUM(x) AS TOTAL '
+ 'FROM Tablename '
+ 'WHERE Id = '+dbedit.text ;
ADOquery1.Open;
ShowMessage('Total : ' + ADOquery1.FieldByName('TOTAL').asString);
end;RE: أخذ قيمة DBEdit وجعلها في استعلام ADOQuery - wadoud - 13-03-2016
السلام عليكم
أخي الكريم PLANSHARP
جربت الكود وهو يعمل , جزاك الله كل خير أخي الحبيب...