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