dim cn as ado.con.... dim d as ado.recoreset dim strsql as string cn.open ... strsql="select sum(fieldname) from tablename" d.opcn strsql,cn debug.print d.fields(0)
dim tmp as string dim cn as ado.con.... dim d as ado.recoreset dim strsql as string cn.open ... strsql="select sum(fieldname) from tablename" d.opcn strsql,cn tmp=d.fields(0)
dim rs as ado.recoreset dim strsql as string strsql="select sum(fieldname) from tablename" rs.opcn strsql 变量=rs.fields(0)
dim conn As ado.con.... dim rst As ado.recoreset dim txtSQL as string cn.open ... txtSQL="select sum(fieldname) as Myfield from tablename" rst.opcn strsql,cn rst.Fields("Myfield") '你要求的统计值.
dim d as ado.recoreset
dim strsql as string cn.open ...
strsql="select sum(fieldname) from tablename"
d.opcn strsql,cn
debug.print d.fields(0)
dim cn as ado.con....
dim d as ado.recoreset
dim strsql as string cn.open ...
strsql="select sum(fieldname) from tablename"
d.opcn strsql,cn
tmp=d.fields(0)
dim strsql as string strsql="select sum(fieldname) from tablename"
rs.opcn strsql
变量=rs.fields(0)
dim rst As ado.recoreset
dim txtSQL as string cn.open ...
txtSQL="select sum(fieldname) as Myfield from tablename"
rst.opcn strsql,cn
rst.Fields("Myfield") '你要求的统计值.