vb读取access的有关问题

vb读取access的问题
在access中有很多列，其中一列为“处理情况”，里面值为0或1，我想找出是1的，然后把那一行的数据都提取出来，然后把1改为0.求高手帮助。我是用ADODB连接的数据库。

[解决办法]
ps.
其实你这个处理情况字段,如果不包含第三种情况未定的话,可以设置为布尔值,true和false.不过你那样设置也没有错误.而且还可以定义第三种情况.还有就是你的处理情况字段的类型,这个1和0不确定是数值型还是字符型,最好给我们说清楚.


如果你连接了数据库,数据库变量为con
那么你可以这么操作,

VB code

dim rs as adodb.recordset  '声明recordset变量rsdim SQLstr as string     '定义sqlstrsqlstr="select * form 你的表  where 处理情况=1"    '当处理情况字段为数值型的处理'sqlstr="select * form 你的表  where 处理情况='1'"    '当处理情况字段为字符型的处理set rs =new adodb.recordset  '给rs定义if rs.state<>0 then rs.close '判断rs的状态rs.open sqlstr,con,1,3       '查询if rs.bof=false and rs.eof=false then  rs.movefirstend if                       '如果rs查询不为空,则将记录移到记录头do while(rs.eof=false) rs("处理情况")=0' rs("处理情况")="0" rs.movenext loop                          '将1变为0rs.update                     '保存rs.close                      '关闭
[解决办法]
set rst = conn.Excute("select * from table where [处理情况] = 1")
??处理数据
while not rst.eof  
id = rst.filed("ID")
conn.Excute("update  table  set [处理情况] = 0 where ID =" & id)
rst.next??
loop