Executando um comando SQL a partir do VBA

Nesse artigo irei demostrar como executar uma instrução SQL diretamente no banco de dados a partir do VBA

Para a conexão é necessário antes de tudo habilitar a biblioteca no seginte caminho: Alt + F11 > Ferramentas > Referências > Microsoft ActiveX Data Objects 2.7 Library.

VBA

Sub ExecutarConsulta(sql as String)

 Dim boxResult As VbMsgBoxResult
 On Error Resume Next  

 'VERIFICANDO SE HÁ CONEXÃO EXISTENTE

 Ifcn.State <> 1Then 
  Do
   boxResult = MsgBox("Falha na conexão, deseja conectar ao banco?", vbYesNo + vbCritical)
   IfboxResult = vbYes Then
    Call ConectaBanco
   Else
    MsgBox "Sem a conexão é impossível continuar, a operação foi abortada.", vbCritical
    End
   End If
  Loop While cn.State <> 1
 End If

 'CONEXÃO OK, EXECUTAR COMANDO DIRETO NA INSTANCIA DO BANCO DE DADOS
 On Error Goto falhou:
 cn.Execute sql
 MsgBox "A instrução SQL foi executada", vbInformation
falhou:
 MsgBox "A instrução SQL não pode ser executada"
End Sub

No artigo acima, usamos o método já criado por nós, o ConectaBanco(), caso você ainda não tenha visto esse artigo clique aqui que você será redirecionado!

Nos proximos dias irei postar como ler a consulta e a copiar em uma pasta ativa, fiquem de olho!

Qualquer dúvida entre em contato conosco, com certeza vamos encontrar a melhor forma para resolver o seu problema! Até a próxima!