جمع كردن مقادير فيلد

[skh1300]

فرض كنيد يه جدول داريم كه يه فيلد قميت داره مي خوام نوي يه ليبل جمع كل قيمت ها را نمايش بده؟

[mohsensaghafi]

سلام دوست عزیز.
از دستور SUM در SQL استفاده کن.

[skh1300]

دوست عزيز اين دستور را بلد هستم اما نمي دونم چه جوري محتويات كه جمع شده را در ليبل بريزم ميشه يه مثال بزني

[mohsensaghafi]

این مقداری که بدست اومده رو باید از جدولی که از دیتابیس واست می فرسته، بخونی، و بعد به یه لیبل انتصابش بدی دیگه.

[daniyal_1363]

دوست عزيز اين دستور را بلد هستم اما نمي دونم چه جوري محتويات كه جمع شده را در ليبل بريزم ميشه يه مثال بزني

 

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]

سلام دوست عزيز
دستور Sum رو اينجوري به كار بگير انشا اله مشكلت حل ميشه.

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