Notifications
Clear all

Erro em tempo de execução - Código VBA em Excel 365

3 Posts
2 Usuários
0 Reactions
1,501 Visualizações
(@diovanino)
Posts: 16
Active Member
Topic starter
 

Senhores,

Tomei como base, um exemplo VBA:
'Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
'Autor: Tomás Vásquez
'http://www.tomasvasquez.com.br
'http://tomas.vasquez.blog.uol.com.br
'março de 2008

'Adaptação Mauro Coutinho com LISTVIEW
'Julho de 2011

Efetuei minhas adaptações ao modelo de aplicativo supra citado!
Até então estava funcionando perfeitamente, tanto os formulários para entrada de dados, como os formulários para pesquisa dos dados (LISTVIEW).
Acontece que do nada, quando abro um formulário e tento efetuar uma pesquisa dos dados do mesmo, está aparecendo a mensagem de:
- Erro em tempo de execução '-2147467259 (80004005)':
- Erro inesperado causado pelos drivers de banco de dados externo(1).

Este erro aparece, quando vou popular uma listbox, veja o código abaixo:

Private Sub PopulaCidade()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sql As String

    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 8.0;"
      .Open (o erro aparece aqui)
    End With

    sql = "SELECT DISTINCT Cidade FROM [Ligações$]"

    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open sql, conn, adOpenDynamic, _
              adLockBatchOptimistic
    End With

    Do While Not rst.EOF
        If Not IsNull(rst(0).Value) Then
            lstLocalidade.AddItem rst(0).Value
        End If
        rst.MoveNext
    Loop

    ' Fecha o conjunto de registros.
    Set rst = Nothing
    ' Fecha a conexão.
    conn.Close

End Sub

Poderiam me dizer o que pode ter acontecido?
Eu estava achando que poderia ser uma atualização do Windows 7, que foi executada na semana passada. Mas acredito que não foi, pois efetuei a restauração do Windows7, para a situação que estava antes, mas mesmo assim nada.
Já efetuei também, a desinstalação/Instalação do Office 365 Business, e também não adiantou.
O curioso é que está acontecendo em todos os formulários de pesquisas do meu sistema e somente no meu micro, pois como o aplicativo se encontra em um servidor, consigo acessar de outros micros, sem que o problema ocorra.

Atenciosamente,
Diovanino Cássio

 
Postado : 16/10/2017 11:46 am
(@diovanino)
Posts: 16
Active Member
Topic starter
 

Senhores,

Após várias pesquisas e inúmeros testes, descobri que o problema estava relacionado ao PROVEDOR:
- Apresentava o erro:
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 8.0;"

- Corrigiu o erro:
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 12.0;"

Atenciosamente,
Diovanino Cássio

 
Postado : 17/10/2017 6:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Diovanino

Seja bem-vindo ao fórum!

Para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/10/2017 11:20 am