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

    Lentidão conexão Access ADO com VB6

    Compartilhe

    vanessa.berigo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 2
    Registrado : 27/11/2014

    Lentidão conexão Access ADO com VB6

    Mensagem  vanessa.berigo em Seg 05 Out 2015, 15:04

    Bom dia,

    Alguém poderia me ajudar?

    Estou tendo muita lentidão nas minhas conexões do VB6 com Access, demora muito para efetuar uma simples consulta do tipo "SELECT MAX(CAMPO) AS XXXX FROM TABELA, eu seto a minha string de conexão assim:

    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=xxxx;Jet OLEDB:DataBase PassWord=xxx"

    Obrigada
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 13/09/2016

    Re: Lentidão conexão Access ADO com VB6

    Mensagem  José Machado em Ter 21 Nov 2017, 12:43

    Bom dia

    Use esse Módulo para a Conexão...

    Crie um Módulo chamado Cls_Conexao

    Depois é só instanciar o objeto da conexão nos outros módulos ou nos Formulários

    #######

    Dim connection As New ADODB.connection

    Public result_set As ADODB.Recordset

    Public data_reader As ADODB.Recordset

    Public Sub Abrir_Conexao()

    Dim provider_data_base As String
    Dim url_data_base As String
    Dim local_data_base As String
    Dim nome_data_base As String
       
       provider_data_base = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" 'banco.mdb
       'ou
       provider_data_base = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source =" 'banco.accdb

       
       local_data_base = "pasta do local do banco de dados\"
       
       nome_data_base = "nome do banco de dados e a extensão "
       
       url_data_base = provider_data_base + local_data_base + nome_data_base
       
       Set Connection = New ADODB.Connection    
       Connection.CursorLocation = adUseClient    
       Connection.Open url_data_base    
    End Sub
    Public Sub Fechar_Conexao()
       Connection.Close
       Set Connection = Nothing    
    End Sub
    Public Sub Executar_Query(query As String)    
       Set result_set = New ADODB.Recordset    
       Abrir_Conexao  
       result_set.Open query, Connection, adOpenStatic    
       Set result_set = Nothing
       Fechar_Conexao
    End Sub
    Public Sub Executar_Data_Reader(query As String)
       Set data_reader = New ADODB.Recordset
       data_reader.Open query, Connection, adOpenStatic
    End Sub
    Public Sub Fechar_Data_Reader()
       data_reader.Close
       Set data_reader = Nothing
       Fechar_Conexao
    End Sub

      Data/hora atual: Sex 19 Jan 2018, 13:50