Contador de UpDate(SQL)

[Henrique MBC]

Tenho trecho abaixo do qual atualizo a contagem do estoque direto na DB(funcionando), mas gostaria de fazer uma contagem dos registros que foram atualizados sem erros.

o problema e que não domino a linguagem e tudo que procurei na internet para achar uma solução não funcionou, agradeço a quem puder me ajudar.

For i = 4 To FinalLinha
    
    'Busca dados da tabela Excel
      
    coditem = Sheets("ForUPDate").Cells(i, 1)
    qtditem = Sheets("ForUPDate").Cells(i, 2)
    qtd_difere = Sheets("ForUPDate").Cells(i, 3)
    
    
    'String para Gravar no BANCO DE DADOS
    strRs = "use baseX " & _
    "Update View_Contagem_Estoque_Itens " & _
    "SET Qtde_Digitada = '" & qtditem & "', Diferenca = '" & qtd_difere & "' " & _
    "WHERE codigo = '" & coditem & "' and Ordem_Contagem = '" & codinv & "'"
    
    Rs.Open strRs, Cn
'Rs.Open strRs, Cn

Cont1 = Cont1 + 1
    Next i

 

[Alyson Ronnan Martins]

Uma dúvida qual o tipo de conexão DAO ou ADOBD?

[Henrique MBC]

ADODB

 

[Alyson Ronnan Martins]

Boa tarde @Henrique MBC

Olha se esse código é similar ao que você esta usando:

Public Sub BDCadastro(Nome as string)
Dim cn As ADODB.Connection
Dim strConn As String
Dim nCadatro As Long
 
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0;Data Source='C:\Users\alyso\Downloads\Forum\Bd.accdb';Persist Security Info=False;"
    .Open
    .Execute "INSERT INTO tblNome (Nome) VALUES ('" & Nome & "');", nCadatro
    .Close
End With
set cn = nothing
End Sub