MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Conexão ADO

    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Conexão ADO Empty Conexão ADO

    Mensagem  caiosouza 26/12/2016, 12:12

    Bom dia Mestres...

    Gostaria de saber um pouco mais sobre a conexão ADO, para que serve? Para deixar o BD mais rápido?

    Tentei adaptar esse código para gerar um DataBase. Porém da erro na segunda linha:

      Dim cat As ADOX.Catalog

    Código:

    Código:
    ' you must make sure that a reference to
    ' Microsoft ADO Ext. 2.5 for DDL and Security
    ' Object Library is set in the References dialog box

    Sub CreateI_NewDatabase()
       Dim cat As ADOX.Catalog
       Dim strDb As String

       Set cat = New ADOX.Catalog
       strDb = "C:\07 - CaioFabio\teste.accdb"

       On Error GoTo ErrorHandler
       cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & strDb
       MsgBox "The database was created (" & strDb & ")."
       Set cat = Nothing
       Exit Sub

    ErrorHandler:
       If Err.Number = -2147217897 Then
          Kill strDb
          Resume 0
       Else
          MsgBox Err.Number & ": " & Err.Description
       End If
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Conexão ADO Empty Re: Conexão ADO

    Mensagem  JPaulo 26/12/2016, 12:17

    Tal como está escrito no código, tem de ativar a referencia VBA "Microsoft ADO Ext. 2.X for DDL and Security"

    https://www.maximoaccess.com/t14471-escolher-entre-dao-e-ado



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Conexão ADO Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Conexão ADO Folder_announce_new 102 Códigos VBA Gratuitos...
    Conexão ADO Folder_announce_new Instruções SQL como utilizar...
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Conexão ADO Empty Re: Conexão ADO

    Mensagem  caiosouza 26/12/2016, 13:07

    Ativei as referências necessárias. E o erro foi sanado.

    Agora esta exibindo a seguinte mensagem:

    -2147221164: Classe não registrada
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Conexão ADO Empty Re: Conexão ADO

    Mensagem  JPaulo 26/12/2016, 13:57

    Qual a versão do seu office ?

    Qual a referencia VBA você setou ?

    Onde está a correr o código, no VBA de um form, ou num módulo ?

    Esse erro -2147221164, não me parece do Ms Access


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Conexão ADO Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Conexão ADO Folder_announce_new 102 Códigos VBA Gratuitos...
    Conexão ADO Folder_announce_new Instruções SQL como utilizar...
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Conexão ADO Empty Re: Conexão ADO

    Mensagem  caiosouza 26/12/2016, 16:10

    Office 2010
    usei a Microsoft ADO Ext. 2.8 for DDL and Security, a 2.5 como pedido no código não tem
    Código esta em um módulo


    Acho que essa parte explica bem, se o erro é do access ou não. Aparentemente o código fornece um tratamento de erro se for -2147217897, caso contrário traga a descrição do erro.

    Veja:

    Código:
    ErrorHandler:
      If Err.Number = -2147217897 Then
          Kill strDb
          Resume 0
      Else
          MsgBox Err.Number & ": " & Err.Description
      End If
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Conexão ADO Empty Re: Conexão ADO

    Mensagem  JPaulo 26/12/2016, 17:20

    Por acaso não explica se o erro é no access ou não, porque também se usa no VB com as mesmas referencias. (VB5 ou VB6)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Conexão ADO Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Conexão ADO Folder_announce_new 102 Códigos VBA Gratuitos...
    Conexão ADO Folder_announce_new Instruções SQL como utilizar...
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Conexão ADO Empty Re: Conexão ADO

    Mensagem  caiosouza 26/12/2016, 17:47

    O erro me parece provavelmete porque não encontra a DDL.

    Veja esse artigo:
    https://support.microsoft.com/pt-br/kb/2734304

    Tentei, porém o erro persiste.

    Conteúdo patrocinado


    Conexão ADO Empty Re: Conexão ADO

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:06