Como obter as linhas afetadas no VBA ADO Execute?
Os seguintes erros de código noMsgBox cn.RecordsAffected
linha com:
Os argumentos são do tipo errado, estão fora do intervalo aceitável ou estão em conflito um com o outro.
Como posso obter com sucesso o número de linhas afetadas? Isso é para um projeto do Access 2003. Eu preferiria mantê-lo no formato de 2003, então se há outra maneira de fazer isso, seria ótimo. Eu gostaria de não ter que atualizar o projeto inteiro por causa desta função 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