vb access数据批量修改

Question

           sql2 = "select * from fj where 寝室号 like '" & Text11.Text & "'"
           remsql1.Open sql2, sushe, adOpenKeyset, adLockPessimistic
           remsql1.Fields(0) = Text9.Text
           Text11.Text = ""
           Text11.Text = Text8.Text
           remsql1.Fields(1) = Text11.Text
           remsql1.Fields(3) = Combo1.Text
           remsql1.Update
           remsql1.Close
以上代码，我想问下。如何才能进行批题的修改数据
如我选择的对应是数据库中的寝室号这列数据，是1号室的数据，全进行修改

Answer 1

'批量用insert into,自己改下你需要的表名@字段SQL = "insert into 数据表  values ('" & Replace(字段1, "'", "''") & "','" & Replace(字段1, "'", "''") & "')"

Answer 2

SQL = "insert into 数据表  values ('" & Replace(字段1, "'", "''") & "','" & Replace(字段2, "'", "''") & "')"

Answer 3

            sql2 = "update fj set 楼号 =  '" & Text1.Text & "'where 楼号= '" & Text10.Text & "' "
用这句话也没有反映