随便据一个简单的例子,用的是ado的结果集,方法很多,用ado的command对象也可以Dim rst As New ADODB.Recordset
Dim myconn As New ADODB.Connection
myconn = ...... '建立到数据库的连接
rst.Open "", myconn, adOpenDynamic, adLockOptimistic
rst.MoveFirst
Do Until rst.EOF
rst!field1 = newvalue '赋值
rst.MoveNext
Loop
rst.Update
rst.Close
Dim myconn As New ADODB.Connection
myconn = ...... '建立到数据库的连接
rst.Open "", myconn, adOpenDynamic, adLockOptimistic
rst.MoveFirst
Do Until rst.EOF
rst!field1 = newvalue '赋值
rst.MoveNext
Loop
rst.Update
rst.Close
选则表table1中所有field1是以a打头将field1的内容改成b
update table1 set field1 = 'b' where field1 like 'a%'
不知道你满意这个答案吗?有机会多交流,兄弟先抛一块砖,大家有好办法,别藏着掖着的,都说说啊