بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله تعالي وبركاته
كيف اقوم بجمع قيم حقل واحد اذا كانت هذه القيم عدديه في النهايه القيمة النهائيه وهي مجموع القيم الموجوده في الحقل علما باني استخدم اكسس وادو كيوري.
يمكنك ذلك باستعمال استعلام SQL على هذا الرابط
هنــا
أو :
كود :
procedure TForm1.Button1Click(Sender: TObject);
var Majmou3: Currency;
RecordPlace: TBookmark ;
begin
(* Majmoo3 *)
RecordPlace := table1.GetBookmark;
Majmou3:=0;
table1.Active:=true;
table1.First;
while not table1.Eof Do
begin
Majmou3:= Majmou3+table1.FieldByName('Qut').AsCurrency;
table1.Next;
end;
edit1.text:=CurrToStr(Majmou3);
end;
بالتوقيف أخي
شكرا جزيلا nabilked فعلا تعمل كما كنت **** لكن هناك مشكله حاولت حلها لكن لم استطع وهي جمع قيم شهر معين مثلا مارس فقط من سنه 2009 يعني **** ادخال اختبار اذا كان اليوم في شهر مارس فقم بجمع قيمته وان لم يكن في شهر مارس فلا وفي النهاية تاتي القيمه النهائيه لمجموع قيم الشهر.
استخدم دالة تفكيك التاريخ بالشكل التالي decodedate(date,year,month,day)
ممكن توضيح بمثال لتعميق الفهم اذا امكن
nabilkeb كتب :يمكنك ذلك باستعمال استعلام SQL على هذا الرابط هنــا
الحمد لله اتضحت الفكرة لم اكن اري :eek: هذا الرابط
شكرا وبارك الله فيكم
الحل الذي قدمه العضو NabilKeb جيد ولكن به بعض العـيـوب
أولا إذا صدف وجود حقل NULL فإن البرنامج سيعطي رسالة خطأ
أفضل وأسرع الحلول هو
أفرض لديك الجدول التالي وبالانجليزي
كود :
Table A => (ID, Quantity, A_Date .....)
Best Query is
Select Sum(Quantity) As Tot
From A
Where (Quantity IS Not Null) And A_Date = DateValue
الاعضاء الكرام
لن أخوض معكم في نقاش طويل حول ماهي الطرق ومميزات كل طريقة
فالحرية للأخ السائل في اختيار الطريقة التي تناسب عمله وذلك باختيار أي حل من الحلول التي يقدمها الاخوة الاعضاء له لمساعدته.
وحتى لا يتشوش السائل بكثرة الطرق :confused:
ولكن لدي تعقيب واحد على طريقة الأخ
kachwahed
ماذا لوكان لديك مليون سجل وتريد تجميع بياناته
هل ستقوم باحضار السجلات كلها وتنقلها الى الذاكرة وتقوم بعمل تكرار للقراءة وتجميع البيانات لمليون سجل
هل تتخيل حجم اللود على الجهاز والبرنامج
عموما أفضل الحلول في رأيي هو تجميع البيانات من خلال قاعدة البيانات والقاء العبيء على محرك قواعد البيانات لأنه بالتأكيد أسرع وافضل في استرجاع البيانات والبحث عنها وتجميعها بطرقه وآلياته الخاصة وهو بالتأكيد أسرع من البرمجة.
وإذا كنت لا تريد استخدام مكون Query في كل مرة فاستخدم واحد بشكل عام بحيث تكتب فيه كل استعلام تريده وتنفذه من خلاله.
وتحياتي للجميع
الف شكر
أفادكم الله موضوع جميل ومفيد