pls can any body help me with code on how to add subtotal of numbers in the database in VB6 using MS Access

Chairman, i can see the help you rendered on searching the data base. That means you are averagely done

DIM TOTALSCORE as INTEGER
REM Assuming the column SCORE had been declare to take interger
TOTALSCORE = 0
WHILE rs.moveNext()
TOTALSCORE = TOTALSUM + !SCORE
WEND
It been long i coded in vb6.0. The code might not be error free. because i always face the problem of using on programming language style in another untill when the compiler rejects it. Thanks

dim db as new adob.connection
dim rs as new adob.recordset
dim subTotalValue as long

db.connection="your conection string"
db.open
set rs=db.execute("Select sum(subtotal) from <your table>"
subTotalValue=rs.fields(0).value
rs.close
db.close

Hope this solves your problem
If it didnt hit https://www.nairaland.com/nigeria/topic-60292.0.html and explain your questions there, if need be I will write a sample and sent it to you.

Take care and bye for now.

The second solution above is super. I assumed you have connected to ur Db already and already making use of a Recordset,

DIm Sum as double, i as inteher
' This is what the first responder meant
for i = 1 to rs_mee.Recordset.Recordcount
sum = sum + rs_mee.RecordSet.Fields("number") 'ur column to sum
rs_mee.Recordset.Movenext
next i
F5

The second solution above is super. I assumed you have connected to ur Db already and already making use of a Recordset,

DIm Sum as double, i as inteher
' This is what the first responder meant
for i = 1 to rs_mee.Recordset.Recordcount
sum = sum + rs_mee.RecordSet.Fields("number" 'ur column to sum
rs_mee.Recordset.Movenext
next i
F5

why do you think looping is better in database where SQL can solve the same problem.
Consider having 10m records and you loop to get the subtotal, what will happen if you need to do many time by may people on the network?

db.connection="your conection string"
db.open
set rs=db.execute("Select sum(subtotal) from <your table>"
subTotalValue=rs.fields(0).value
rs.close
db.close

with the above code the system will assume as if you are opening and fetching the database at the same time sums your subtotal and your result will be returned to you, even if you are querying by many people.

plz dont alway depend on loop as if you are writing QBASIC where SQL can handle the same job!

can someone help me with linking vb6.0 and mssql server 2000 and mysql too. i've been having lots of problem creating a database tht works fine with vb on both.