Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro em tempo de execução '-2147467259 (80004005)':

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Diovanino Cassio
Colaborador
Colaborador
Mensagens: 53
Registrado em: Qua Mar 15, 2017 11:31 am

Erro em tempo de execução '-2147467259 (80004005)':

Mensagem por Diovanino Cassio »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Diovanino Cassio
Colaborador
Colaborador
Mensagens: 53
Registrado em: Qua Mar 15, 2017 11:31 am

Re: Erro em tempo de execução '-2147467259 (80004005)':

Mensagem por Diovanino Cassio »

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


Responder