13-03-2016, 12:03 AM
السلام عليكم
كيف أعدل على الكود التالى:
جزاكم الله كل خير.
كيف أعدل على الكود التالى:
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;جزاكم الله كل خير.