vb中改变access数据库里的值

来源：百度知道 编辑：UC知道 时间：2024/05/27 21:00:45
我用adodc连接到数据库中的一个表,我想修改表中字段的值,不知道怎么写代码.

上网找，代码很多。
这里是一个例子，代码好长
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