PDA

View Full Version : جمع كردن مقادير فيلد



skh1300
جمعه 17 اردیبهشت 1389, 13:03 عصر
فرض كنيد يه جدول داريم كه يه فيلد قميت داره مي خوام نوي يه ليبل جمع كل قيمت ها را نمايش بده؟

mohsensaghafi
جمعه 17 اردیبهشت 1389, 15:48 عصر
سلام دوست عزیز.
از دستور SUM در SQL استفاده کن.

skh1300
جمعه 17 اردیبهشت 1389, 19:42 عصر
دوست عزيز اين دستور را بلد هستم اما نمي دونم چه جوري محتويات كه جمع شده را در ليبل بريزم ميشه يه مثال بزني

mohsensaghafi
جمعه 17 اردیبهشت 1389, 21:34 عصر
این مقداری که بدست اومده رو باید از جدولی که از دیتابیس واست می فرسته، بخونی، و بعد به یه لیبل انتصابش بدی دیگه.

daniyal_1363
شنبه 18 اردیبهشت 1389, 08:45 صبح
دوست عزيز اين دستور را بلد هستم اما نمي دونم چه جوري محتويات كه جمع شده را در ليبل بريزم ميشه يه مثال بزني







On Error Resume Next
Dim sum As Integer
Adodc.Recordset.MoveFirst
Do While Not Adodc.Recordset.EOF
sum = sum + Val(ado.Recordset.Fields!fildname)
Adodc.Recordset.MoveNext
Loop

Label1.Caption = sum




اگه جمع اعداد زیاد میشه متغییر Sum رو از دابل یا بالاتر تعریف کن - fildname فیلدیه که قراره جمع زده بشه - On Error Resume Next به خاطره اینکه اگه جدول خالی باشه خطا نده

موفق باشید

samkoper
جمعه 31 اردیبهشت 1389, 12:58 عصر
سلام دوست عزيز
دستور Sum رو اينجوري به كار بگير انشا اله مشكلت حل ميشه.


Adodc.RecordSource = " select sum (Fildname) as B from (your table name)"

Adodc.Refresh

Label1.caption = B