Jump to content
Fórum Script Brasil
  • 0

SQL Excel - Problema no código


Question

Pessoal, tentei fazer o código de SQL no Excel deste vídeo ("https://www.youtube.com/watch?v=HHwNgYYDHsc"), mas estou encontrando o seguinte erro na linha rs_Consulta.Open str_consulta, ado_conexao.

"Erro em tempo de execução '3001' Erro de definição de aplicativo ou e definição de objeto"

Sabem me ajudar?

Sub Listar_dados()
    
    Dim rs_Consulta As ADODB.Recordset
       
    
    'Chama rotina de conexão
    Call Conectar_Excel 'Código está abaixo em azul
    
    'Seta RecordSet
    Set rs_Consulta = CreateObject("ADODB.Recordset")
    
    'Define da Query
    str_consulta = Planilha2.Range("d6")
    
    'Abre Recordset
    rs_Consulta.Open str_consulta, ado_conexao --------> ERRO NESSA LINHA
    
    'Cola Recordset na planilha
    Planilha2.Range("A12").CopyFromRecordset rs_Consulta
    
    'Fecha Conexão
    rs_Consulta.Close
    Set rs_Consulta = Nothing
    
End Sub

Sub Conectar_Excel()
    
    Dim Caminho As String
    Dim Arquivo As String
    
    'Planilha2.activate
    Caminho = Planilha3.Cells(6, 4)
    Arquivo = Planilha3.Cells(8, 4)
    
    'Caminho = "C:\Users\ipittigliani\Desktop\Projeto Bate de Carteira\Tentativa 2\"
    'Arquivo = "MMA_Abr19.xlsx"
    
    'Define String de Conexão
    str_conexao = _
        "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
            "DSN=TESTE_SQL;DBQ=" & Caminho & Arquivo & ";" _
            & "ReadOnly=0;DefaultDir=" & Caminho & ";" _
            & "DriverId=1046;FIL=excel 12.0;MaxBuffersize=2048;PageTimeout=5;"
            
    'Seta ADODB
    Set ado_conexao = CreateObject("ADODB.Connection")
    
    'Abre Conexão
    ado_conexao.Open str_conexao
    

End Sub
 

 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148681
    • Total Posts
      644509
×
×
  • Create New...