How to sum the records of a field?

[Ali Rizwan]

Hi all,
I have a field in an access database name Cost i want to find the sum of all amount.
Database name = EXP
Using ADODC
VB6

I have a number of three adodcs on same form.
Plz give me the solution, using my information.

Tablename = EXP
DataBase name = Expenses
ADODC name = ADATA
Field name = Cost

Thanx

[nev]

Dim cval as Integer = 0

For i as integer = 0 to EXP.Count - 1
cval += val(EXP.Item("Cost", i).Value)
Next

MsgBox(cval.ToString)

[debasisdas]

Try to use SQL for the purpose.

[Ali Rizwan]

Dim cval as Integer = 0

For i as integer = 0 to EXP.Count - 1
cval += val(EXP.Item("Cost", i).Value)
Next

MsgBox(cval.ToString)

Hi,
Thanx for the answer but in which language you write it i want a code for vb6.
This code is not executing, and occuring somee errors on it.
Thanx

[Ali Rizwan]

Try to use SQL for the purpose.

Sorry debasis,
but i don't know how to apply that code.
I tried but i said later i m recieving some errors.
Plz made an example code or that code
Thanx

[dreamcode]

Hi all,
I have a field in an access database name Cost i want to find the sum of all amount.
Database name = EXP
Using ADODC
VB6

I have a number of three adodcs on same form.
Plz give me the solution, using my information.

Tablename = EXP
DataBase name = Expenses
ADODC name = ADATA
Field name = Cost

Thanx

Hi,
Try the SQL query like,

rs.open "select sum(cost) from exp"

i hope this would help you.
All the best

[Ali Rizwan]

Hi,
Try the SQL query like,

rs.open "select sum(cost) from exp"

i hope this would help you.
All the best

I m sorry.
What is cost means in the query can you plz explain it to me or made an example in vb6.
My app is delaying to the customer because of this only.
Thanx i ll very thak full to every body.
thanx again

[muddasirmunir]

asalam o alikum
did you try this query in
"select sum(fieldname) as total from talblename "

replase filedname and tablename according to your tables
where fieldname=the field you want to count
talblename=the name of table weher you have a field
try this query

I m sorry.
What is cost means in the query can you plz explain it to me or made an example in vb6.
My app is delaying to the customer because of this only.
Thanx i ll very thak full to every body.
thanx again

[Ali Rizwan]

asalam o alikum
did you try this query in
"select sum(fieldname) as total from talblename "

replase filedname and tablename according to your tables
where fieldname=the field you want to count
talblename=the name of table weher you have a field
try this query

Walaikumusallam

I m doing this query like this

Dim ras As Integer
 
ras = "select sum(Cost) as total from Exp "
MsgBox ras

and the msgbox shows "select sum(Cost) as total from Exp " in message

Thanx

[DeBees Consults]

' I assume that your data base is connected and working fine


Dim SumCost As Double ' Declare as a global variable

Create a button name btnSUM and Caption it &Sum

Privte Sub btnSUM_Click()

SumCost = "0.00"

Do until ADATA.Recordset.EOF = True
If ADATA.RecordSet.Fields("Cost") <> "" then
SumCost = SumCost + ADATA.RecordSet.Fields("Cost")
End if
ADATA.Recordset.MoveNext
Loop
MsgBox("The sum of fields Cost = " SumCost)
' You can do whatever you want to do with SumCost here

' Possible Error: Where fields Cost is empty

' I hope this Suffices your purpose
' you can contact me on [e-mail]
End Sub