使用ado连接数据库,字段赋值时出错:multiple-step operation generated errors.check each status value.

Question

使用ado的recordset连接数据库后,对其中一个字段进行累加赋值,出错.其类型都为:single.
代码如下:
rssum.Open "select distinct xz from p_money where p_nom='" & ii & "' and x_year='" & Year(jj) & "' and x_month='" & Month(jj) & "' ", main.cn, adOpenStatic, adLockOptimistic
    If rssum.RecordCount > 0 Then
       rssum.MoveFirst
       If Trim(rssum.Fields(0)) <> "" Then
           StrY = Val(rssum.Fields(0).Value) + kk
           rssum.Fields("xz") = stry
       End If
    End If
其中stry与rssum.fields("xz")都为single类型的.

Answer 1

在查询语句中使用distinct后不能保证查询结果与数据表中记录一一对应，所以不能这样回写记录值