Este fórum está sendo desativado

[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.

[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

[Henrique]

Obrigado Alexandre.

Segue o modelo no anexo.

O código é o seguinte:

Código: Selecionar todos

Option 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

[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