或者这样: 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 '打印所影响的行数
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 '打印所影响的行数
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 '打印所影响的行数
cn.ConnectionString="...."
cn.CursorLocation=adUseClient
cn.Open
Dim AffectedRow As Long
cn.Execute("update 表 set 字段='新值'", AffectedRow)
Debug.Print AffectedRow '打印所影响的行数