Question

vb 里如何实现改变连接的access数据库中一列的所有数据

现有两个数据库如下所示：
如何实现当用程序改变equip表中Name中的内容之后，data表中‘水表名称’一整列的内容全部变为Name的内容？比如说现在Name中为“水泵”，水表名称’中全为“水泵”，当Name中内容改为“水表”之后，水表名称’中全为“水表”？坐坐等高手解决！！！！！！！

Answer 1

假设rs1打开equip表，rs2打开data表，当equip表中Name的内容改变之后

dim newname as string
dim oldname as string

newname=rs1.fields("Name")
If rs2.RecordCount <= 0 Then Exit Sub
rs2.MoveFirst
While Not rs2.EOF
if rs2.Fields("水表名称") = oldname then rs2.Fields("水表名称") = newname
rs2.MoveNext
Wend

Answer 2

上网找，代码很多。
这里是一个例子，代码好长
Set conn = Nothing
strSql = "select * from tb_user"
'连接数据库
conn.Open modMain.strConn
'打开rs
rs.Open strSql, conn, adOpenForwardOnly, adLockPessimistic
'移动到记录
rs.movefirst
'赋值
rs.Fields(0) = Me.txtUserID
rs.Fields(1) = Me.txtUserName
rs.Fields(2) = Now
rs.Fields(4) = Me.txtPasswordF
rs.Fields(5) = Me.txtRemark
rs.Fields(6) = 0
'更新数据库
rs.Update
frmUserManage.lstUser.AddItem Me.txtUserID
rs.Close
Set rs = Nothing
conn.Close