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

解决方案 »

  1.   

    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   
    即可
      

  2.   

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

  3.   

    怪问题!!!
          运行以下代码为什么会出错(实施错误3251,对象或提供者不能执行以下的操作)
                       Set rst1 = cn.Execute(str1)                   With rst1
                             .Fields("onuse") = "no"
                             .Update
                       End With
      

  4.   

    建立recordset对象,用SQL语句改更快更简单!
      

  5.   

    有网友有什么例子吗?发一个给我吧     [email protected]
      

  6.   

    我这里有个用ado库的方法,
    '创建一个数据连接源
    Dim cc As New ADODB.Connection
    '创建一个command 对象
    Dim ca As New ADODB.CommandPrivate 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
    给分
      

  7.   

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