Question

vb 改变 Access数据，急，急!急!

高手们帮忙改一下面代码呀。
Private Sub Command1_Click() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\luyun.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from 报表 where 当前状态='" & "未付" & "' and 桌号='" & "201" & "'" Adodc1.Refresh
update 餐厅 set 当前状态="已付" where 当前状态="未付" Adodc1.Recordset.UpdateEnd Sub

Answer 1

直接update加条件不就可以了，不需要select

追问

条件？ 不知道怎么下手，你写一下好吗？

追答

where 当前状态='" & "未付" & "' and 桌号='" & "201" & "'"这不就是条件？可你数据表上写的好像是“状态”，不是“当前状态”啊，你数据表具体是咋样的我不是很清楚

Answer 2

直接
Adodc1.exec "update 餐厅 set 当前状态='已付' where 当前状态='未付'"
就可以了

追问

exec,这个是什么呀