好像都没什么返回值

解决方案 »

  1.   

    联的是ORACLE数据库,是否要先SELECT有结果后再UPDATE?
      

  2.   

    或者这样:
    Dim cn As New ADODB.Connection,rs As New ADODB.RecordSet
    .....
    Dim AffectedRow As Long
    Set rs = cn.Execute("update 表 set 字段='新值'", AffectedRow)
    Debug.Print AffectedRow '打印所影响的行数
      

  3.   

    Dim cn As New ADODB.Connection
    cn.ConnectionString="...."
    cn.CursorLocation=adUseClient
    cn.Open
    Dim AffectedRow As Long
    cn.Execute("update 表 set 字段='新值'", AffectedRow)
    Debug.Print AffectedRow '打印所影响的行数