Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.

Atualizar dados de uma planilha Excel, usando a consulta UPDATE

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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

Uma ajuda para quem está começando um negócio ou um projeto

Vídeo - Aprenda sobre filtragens

Adquira o kit UsandoAccess e aprenda em alta velocidade

Vídeo - Programação de relatórios - Parte 1

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Criando Ribbons parte 1  - Conhecendo a estrutura Xml

Como carregar o seu menu sem que ele vá para lista de suplementos

| Home | Vídeos | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |