Atualizar dados de uma planilha Excel, usando a consulta UPDATE
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Podemos usar uma consulta UPDATE() para atualizar dados de uma planilha. Vamos supor que eu tenha a seguinte planilha e que queira reajustar os valores dos produtos em 10%:
Acompanhe, com atenção, os comentários do código:
Public Sub fncATualizarPlanilha() Dim strTabela As String Dim strSQL As String Dim bdExcel As dao.Database
Dim strArquivo$
'Passa o local e nome do arquivo para a variável
strArquivo = CurrentProject.Path & "\ListaClientes.xls" 'Abre o arquivo ListaClientes.xls Set bdExcel = OpenDatabase(strArquivo,False,False,"Excel 12.0;HDR=Yes;IMEX=0;") 'Informa o nome da planilha a ser atualizada strTabela = "[Planilha1$]" ' Consulta que irá atualizar em 10% o valor dos produtos strSQL ="UPDATE " & strTabela & " SET [valor produto]=([valor produto] * 1.1);" ' Executa a consulta bdExcel.Execute strSQL 'Fecha o arquivo Excel bdExcel.Close Set bdExcel = Nothing MsgBox "A planilha foi atualizada...", vbInformation, "Aviso" End Sub
Após executar o código, veja os valores atualizados em 10%:
Agora, se eu quiser reajustar apenas o valor da Furadeira (id=3) em mais 15%, basta acrescentar a cláusula WHERE na SQL. Observe o código:
... strSQL ="UPDATE " & strTabela & " SET [valor produto]=([valor produto] * 1.15)"
strSql = strSql " WHERE id = 3;"
...
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Vídeo - Aprenda sobre filtragens
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Adquira o kit UsandoAccess e aprenda em alta velocidade
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
1 comentário(s) Idiframk 17/12/2018 01:03:37 Ótimo conteúdo! Continue sempre assim passando conhecimento. Valeu, Abraços! |