Question

用VB语言写 从数据库中截取值并且求和

上述的表是数据库中的表，求每一条记录，只拿出每项等号和逗号之间的值，拿出来后再求和！

Answer 1

用split分成数组，先用逗号，再用等号，然后再用val取值求和就可以了

追问

不会啊，求助，搞定了给你加分1

追答

Dim str$, ar1$(), ar2$(), sum#
Dim i%
On Error Resume Next
str = [PARA_VALUE某行的值]
ar1 = Split(str, ",")
For i = 0 To UBound(ar1)
ar2 = Split(ar1(i), "=")
sum = sum + Val(ar2(1))
Next i
'sum是求和结果
On Error GoTo 0

追问

让数据表中每条记录中的这个字段都能显示出值 简单的做法呢？

追答

用ado连接数据库，然后查询到RecordSet里，遍历这个RecordSet就可以呀