uso vb6 + access, e a cada form abro e fecho banco e tabelas, declarando em variaveis do tipo database e recordsets, teria uma maneira de abrir só uma vez no form MDI, e se tiver é seguro, pois o banco vai estar o tempo todo aberto. por outro lado facilitaria pois ai no load do form só chamaria a rotina abre_banco, e no unload a rotina fecha_banco, minha duvida é como declarar as variáveis database e recordsets em um módulo, para chamalas no programa todo. Outra coisa sobre arquivos ini, é vantagem usálos ?, bom no caso de abrir o banco apenas uma vez, em um módulo, acho que nem precisa de arquivos ini, pois se tiver que alterar o local do banco, só altera uma vez na rotina que esta no módulo. Pessoal deem suas opiniões.

Eu utilizo um modulo e dentro do modulo eu declaro as variaveis de conexão como mostra abaixo.

Dentro do modulo

 

Option Explicit
Public Cnn As New ADODB.Connection
Public rsX As New ADODB.Recordset
Public SQL As String
Public Formato, Numeros As String
Public Sub AbreDB()
    Set Cnn = Nothing
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "escola97.mdb;Persist Security Info=False"
End Sub

No Load do form é so colocar

AbreDB

e o restante é igual. Qdo vc for sair do sistema é so fechar a conexão.

Eu utilizo dessa forma pois não tenho um fluxo de dados muito grande, coisa aprox de 200 acessos por minuto.

 

Edson,

Eu normalmente faco uma conexao no form principal e depois uso um recordset para tudo. Gravar. ler e etc. Assim a conexao fica aberta para todos os form e crio um recordset em tudo os form.

 

Form principal

Global cnn As New ADODB.Connection
        Set cnn = New ADODB.Connection
        cnn.Mode = adModeReadWrite
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & diretorio_completo_banco & ";Jet OLEDB:Database Password=" & Trim(senha_banco) & ";"
        cnn.Open

Form de cadastro e etc

Dim rst As New ADODB.Recordset

    rst.Open "Select * from cliente wehre cod_cliente = " & txt_codigo, cnn, adOpenStatic

 

Espero que ajude