怎么把数据库的记录的某个置成1
本帖最后由 bcrun 于 2013-05-27 12:52:54 编辑 说明:prnt是一个自定义的函数,在坐标(x,y)处打印出txt内容,dy_dm是一个二维数据,txt = dy_dm(i, 4)对应的是身份证,我想把打出来的记录的flag字段置:”1“,却提示标准表达式类型不匹配,错误定位在:db.Execute ("update sy2013 set flag=1 where sfzhm=" & a & "")怎么改呢,有没有更好的办法:打印出一条记录,就把相应的flag置为1呢
dim avb 打印记录,置位flag
For i = 0 To zsl - 1
For j = 3 To 5
dy_dm(i, j) = Adodc1.Recordset(j)
Next j
Adodc1.Recordset.MoveNext
y = 500
x = 1500
txt = dy_dm(i, 3)
dd = prnt(x, y, fnt, txt)
y = 1000
x = 1500
txt = dy_dm(i, 4)
dd = prnt(x, y, fnt, txt)
a = txt
db.Execute ("update sy2013 set flag=1 where sfzhm=" & a & "")
Printer.EndDoc ' 打印完成。
Next i