چگونه مقدار عددی چند فیلد را جمع....

[mohammad021]

سلام و خسته نباشید...

می خوام مقدار عددی فیلد های یک بانک اطلاعاتی رو جمع کنم و در یک textbox بریزم.

برای مثال فرض کنید میخوام جمع مبالغ ریخته شده به حساب را بدست آورده و در text1.text ذخیره کنم.

[kuh_nur]

سلام اگه درست متوجه منظورتون شده باشم شما این کار رو می خواین
text1.text=val(text2.text)+val(text3.text)+...val( textN.text) 'Add all field

[mf_engineer]

با سلام
خب شما باید اول بانک تو باز کنی و بعد از باز کردن از اول تا اخر جدول بخونی وبا استفاده از یه حلقه ورکورد ست مقدار فیلد رو اول توی یه متغیر عددی بریزی وجمع کنی وبعدش بریزی توی تکس بکس


dim sum as integer
sum=0
sqlString = "SELECT * FROM tablename"
adoRS.Open sqlString, adoConn
Do While Not adoRS.EOF
sum= adoRS.Fields("fieldname").value + sum
adoRS.MoveNext
Loop
text1.text=sum

[xxxxx_xxxxx]

استفاده از sum خود aql بهترین، سریعترین و مطمئن ترین راهه

[Mohya_z332]

از این کد استفاده کن
dim a, b , i as long
b=0
a= data1.recordset.recordcount-1
data1.recordset.movefirest
for i =1 to a
b=b+ data1.recordset.field("adada")
data1.recordset.movenext
next
text1.text=b
adad اسم فیلد هست

[Mohya_z332]

اگه فیلدهای مختلفی رو میخوای جمع ببندی
text1.text= data1.recordset.field("adad1") +data1.recordset.field("adad2")

[maryamb]

STRSQL = "SELECT SUM(NOMRE) AS SUMNOMRE FROM STUDENT"