Henrique MBC

Olá, tenho uma necessidade semelhante, mas neste caso preciso da mensagem do Mysql mesmo... ex: "4 rows afectad"

ADODB

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