Jump to content
Fórum Script Brasil

Henrique MBC

Membros
  • Posts

    2
  • Joined

  • Last visited

About Henrique MBC

  • Birthday 12/19/1981

Henrique MBC's Achievements

0

Reputation

  1. 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
×
×
  • Create New...