如何用 ado 中的recordset 对象 修改数据

[yunong11]

请知道的网友帮忙解答，谢谢

[y1g1y1]

with rst
.fields(0)="8765"
.fields("姓名")="fdas"
.update
end with

[hzh_wen_x]

dim MyRs as ADODB.Recrodset
set MyRs=New ADODB.Recordset
With MyRs
.ActiveConnection=MyCnn
.Cursortype=adOpenStatic
.LockType=adLockOptimistic
.Source="你的数据源"
.Open
End with
设有一个NAME字段，读出后，MyRs!NAME="新数据"
MyRs.updata
即可

[liuxing23]

楼上的方法很对
不过如果用
.fields("列名").value 速度回快一点

[yunong11]

怪问题！！！
运行以下代码为什么会出错（实施错误3251，对象或提供者不能执行以下的操作）
Set rst1 = cn.Execute(str1)

With rst1
.Fields("onuse") = "no"
.Update
End With

[dfbb]

建立recordset对象，用SQL语句改更快更简单！

[yunong11]

有网友有什么例子吗？发一个给我吧

[e-mail]

[duqiang2050]

用SQL语句

[雨晨寒月]

看msdn.

[yunong11]

有那位网友编过类似的程序吗？
看起来很简单的东西为什么会出错啊？

[pianopan]

我这里有个用ado库的方法，
'创建一个数据连接源
Dim cc As New ADODB.Connection
'创建一个command 对象
Dim ca As New ADODB.Command

Private Sub Command1_Click()

'创建connextion 连接源
cc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=C:\Documents and Settings\Administrator\My

Documents\aa.mdb;Persist Security Info=False"
'设定command 对象的连接属性
ca.ActiveConnection = cc
' 设定command 对象要执行的SQ


你可以用更新，添加，删除，等sql豫剧代替cc
给分

[pianopan]

不是豫剧，而是语句
不好意思

[guoke888]

用ADO数据访问对象，与数据源建立连接后
rs.open(update * from 表名 set 字段名=value)

[yunong11]

谢谢网友帮忙，谢谢
分数不多，感谢各位帮忙的好心人