by Santosh Medok (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 2nd September 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Calculate the values of a database column
API Declarations
Dim rs as new adodb.recordset
Dim a,c,t as long
set db=createobject("ADODB.connection")
set rs=db.execute("select from tablename order by fieldname")
do until rs.eof
a=val{rs.fields("Fieldname"))
c=a
t=c+t
rs.movenext
loop