Uso do ADO em Excel 2013 64 bits
Enviado: 02 Jun 2016 às 11:20
por Henrique
Não estou conseguindo usar minhas funções ADO .
Meu Office é o Professional Plus 2013 - 64 e quando executo minha rotina dá erro. Já tentei mudar o Provider, mas aí o erro passa para ERRO EM TEMPO DE EXECUÇÃO "-2147467259 (80004005) Não foi possível encontrar ISAM instalável.
Re: Uso do ADO em Excel 2013 64 bits
Enviado: 02 Jun 2016 às 11:39
por alexandrevba
Bom dia!!
Eu lhe recomendo postar o arquivo modelo com sua rotina para quem tem essa versão tentar te ajudar.
As bibliotecas foram referenciadas devidamente?
Att
Re: Uso do ADO em Excel 2013 64 bits
Enviado: 03 Jun 2016 às 09:42
por Henrique
Obrigado Alexandre.
Segue o modelo no anexo.
O código é o seguinte:
Código: Selecionar todosOption Explicit
Sub Pegaregistro()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL As String
Dim MyConn As String
Dim FIM As Boolean
Dim StrDB As String
Dim Quote As Variant
sSQL = "SELECT Descrição FROM Teste WHERE Data = 21/05/1967"
MyConn = "D:\Usuarios\Henrique\Documents\Henrique\Homeop\Base.accdb"
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open MyConn
End With
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseServer
.Open Source:=sSQL, ActiveConnection:=cnn, CursorType:=adOpenForwardOnly, LockType:=adLockOptimistic, Options:=adCmdText
End With
FIM = False
Do While Not FIM
FIM = rs.EOF
If FIM = True Then
Exit Do
End If
If rs.Fields("Data").Value = "21/05/1967" Then
Quote = rs.Fields("Descrição").Value
MsgBox Quote
FIM = True
Exit Do
Else
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub
Uso do ADO em Excel 2013 64 bits
Enviado: 03 Jun 2016 às 10:05
por Reinaldo
Não utilizo 64 bits, nem 2013 , mas em rápida pesquisa na net, nota-se que o problema e recorrente, e não há muita "correção". talvez o exposto em
http://stackoverflow.com/questions/1456 ... -windows-8 lhe auxilie