怎么把数据库的记录的某个置成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 a

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

vb 打印记录，置位flag
[解决办法]
必须注意数据库的数据类型
flag
sfzhm

上述两个参数，如果是字符类型，则必须加单引号或双引号
如果是数值类型，则不能加任何符号

假设
flag 数值类型
sfzhm 字符类型

db.Execute ("update sy2013 set flag=1 where sfzhm='" & a & "'")