Wie man die betroffenen Zeilen in VBA, ADO Ausführen?

Des folgenden code-Fehler auf der MsgBox cn.RecordsAffected Zeile mit:

Argumente sind vom falschen Typ, liegen außerhalb des zulässigen Bereichs oder stehen in Konflikt mit einem anderen.

Wie kann ich erfolgreich die Anzahl der betroffenen Zeilen? Dies ist für ein Access 2003-Projekt. Ich würde es vorziehen, zu halten, im 2003-format, so dass, wenn es eine andere Möglichkeit, dies zu tun, das wäre toll. Ich möchte nicht aktualisiert werden, das gesamte Projekt für die Zwecke dieser Funktion 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
InformationsquelleAutor Danny Beckett | 2012-10-01
  1. 7

    ADODB.Connection keinen RecordsAffected Eigenschaft. Jedoch, die Execute Methode gibt den betroffenen Datensätze als ByRef argument [MSDN]:

    Dim recordsAffected As Long
cn.Execute "SELECT * INTO someschema.sometable FROM someschema.anothertable", _
           recordsAffected
MsgBox recordsAffected
    • Perfekt, vielen Dank, Heinzi!
    InformationsquelleAutor Heinzi
Schreibe einen Kommentar