8

MsgBox cn.RecordsAffected次の行に次のコード エラーがあります。

引数の型が間違っているか、許容範囲外であるか、互いに競合しています。

影響を受ける行数を正常に取得するにはどうすればよいですか? これは Access 2003 プロジェクト用です。2003 形式のままにしたいので、これを行う別の方法があれば、それは素晴らしいことです。この 1 つの機能のためにプロジェクト全体をアップグレードする必要はありません。

Private Sub Command21_Click()
On Error GoTo Err1:
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    With cn
        .Provider = "SQL Native Client"
        .ConnectionString = "Server=myserver\myinstance;Database=mydb;Uid=myuser;Pwd=mypass;]"
        .Open
    End With

On Error GoTo Err2:
    cn.Execute "SELECT * INTO someschema.sometable FROM someschema.anothertable"
    MsgBox cn.RecordsAffected
    Exit Sub

Err1:
    MsgBox "Failed to connect to database!"
    Exit Sub

Err2:
    MsgBox Err.DESCRIPTION
    cn.Close

End Sub
4

1 に答える 1

10

ADODB.ConnectionRecordsAffectedプロパティがありません。ただし、このExecuteメソッドは影響を受けるレコードをByRef引数として返します[ MSDN ]：

Dim recordsAffected As Long
cn.Execute "SELECT * INTO someschema.sometable FROM someschema.anothertable", _
           recordsAffected
MsgBox recordsAffected
于 2012-10-01T16:00:54.207 に答える