سوال در مورد جمع تمام رکورد ها

[ali-software]

سلام.چه جوری میشه جمع تمام فیلد ها رو تو یک لیبل گذاشت من جست و جو کردم ولی کدی که بدست اوردم مثلا اگه یک کامند داشته باشیم پست سر هم اونو دو برابر می کنه کد را براتون میگذارم.



Adodc1.Recordset.MoveFirst

Do While َAdodc1.Recordset.EOF = False

label19.caption=val(label19.caption)+val(Adodc1.Re cordset.field("Gheimat"))



Adodc1.Recordset.MoveNext

Loop


مشکل این کد چیه؟
For i = 0 To Adodc1.Recordset.Fields(("password"))
Label1.Caption = Val(i)
Next i

چه جور میشه وقتی کاربر تمام فیلد ها رو وارد کرد برنامه یک فیلد باز کنه و تمام رکورد ها رو با هم جمع بزنه.ممنون

[mpmsoft]

For i = 0 To Adodc1.Recordset.Fields(("password"))
Label1.Caption = Val(i)
Next i

منظورت از این کد چیه ؟
چیکار می خوای بکنی ؟

[jafaripur]

بهتر هستش از این رمش استفاده کنی :




SELECT Sum(Price) AS PriceSum FROM Products

Ado.Recordset.Fields("PriceSum")



یا همون ماله خودت :


While Not Ado.Recordset.EOF
Label1.Caption = val(Label1.Caption)+val(Ado.Recordset.Fields("Price"))
Ado.Recordset.MoveNext
DoEvents
WEND