MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Conexão ADO

    Compartilhe
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Conexão ADO

    Mensagem  caiosouza em Seg 26 Dez 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Conexão ADO

    Mensagem  JPaulo em Seg 26 Dez 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"

    [Você precisa estar registrado e conectado para ver este link.]



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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Conexão ADO

    Mensagem  caiosouza em Seg 26 Dez 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Conexão ADO

    Mensagem  JPaulo em Seg 26 Dez 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Conexão ADO

    Mensagem  caiosouza em Seg 26 Dez 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Conexão ADO

    Mensagem  JPaulo em Seg 26 Dez 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Conexão ADO

    Mensagem  caiosouza em Seg 26 Dez 2016, 17:47

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

    Veja esse artigo:
    [Você precisa estar registrado e conectado para ver este link.]

    Tentei, porém o erro persiste.

      Data/hora atual: Qua 13 Dez 2017, 09:24