É o seguinte, na seçao geral de cada forma declaro as variaaveis como database e recordset, e abro o banco e as tabelas, e no unload do form, fecho as tabelas e banco, pra não deixar o banco aberto o tempo todo, só que da muito trabalho. Então estava pensando, em criar um rotina que abra o banco e todas as tabelas, ai a cada form load, chamo a rotina "abrebanco", e a cada form unload, chamo a rotina "fechabanco". Agora só não sei onde criar estas rotinas, em um módulo ?, no MDI ?, e como declaro as variaveis, para usa-las em todos os forms ?. uso vb6+access97.

Edson. Eu faco assim

Tenho um modulo que trata tudo de banco (abre, fecha, le inclui e etc). para abrir passo a tabela e outras informacoes para a rotina. Assim.

 

Function ABRE_ARQUIVO(Banco_dados As Database, tbl_aux As Table, nome_tabela As String, chave As String) As Integer
    On Error GoTo Erro_abertura
   
    Set tbl_aux = Banco_dados.OpenTable(nome_tabela)
    tbl_aux.Index = chave
    tbl_aux.LockEdits = False
   
Exit Function
   
Erro_abertura:
    
     lixo = MsgBox("Erro na abertura do arquivo " & nome_tabela & " descrição : " & Err.Description, vbCritical + vbOKOnly, "Abertura de arquivo")
    Resume Next
End Function

Para fechar uso

Function FECHA_ARQUIVO(tbl_aux As Table) As Integer
    On Error GoTo erro_fecha:
    FECHA_ARQUIVO = False
    tbl_aux.Close

    Exit Function

erro_fecha:
    FECHA_ARQUIVO = True
    Resume Next
End Function

Deu para ajudar

Mais alguma sugestão.

Eu faço assim:
 
1. Trabalho com a conexão com a base de dados aberta desde a abertura do programa até ao seu final;
2. Cada forms tem três modos de funcionamento:
    - Adição
    - Consulta
    - Edição

   O forms abre sempre em modo de Adição e, para efectuar qualquer outra operação, o utilizador tem que a escolher, pois para cada uma existem rotinas que vão ser executadas.
Os inserts,deletes e updates, são feitos directamente nas tabelas.
As consultas nunca trazem os registos todos, obedecem sempre ao critério definido pelo utilizador, e são efectuadas sobre recordsets desconectadas.
 
Como trabalho com tudo isto:
1. Crio um ficheiro com a extensão .ini onde indico o caminho para a base de dados (sem o nome da mesma). Assim a base de dados pode ser instalada em qualquer local, bastando, para isso, alterar o caminho nesse ficheiro;
2. Num módulo de classe declaro a(s) conexão(ões);
3. Num módulo de classe construo as rotinas necessárias para trabalhar com cada forms;
4. Num módulo declaro todas as variáveis,que vou utilizando ao longo do programa,  como públicas;
5. No load do forms principal chamo a função que abre a base de dados e, no unload, a que a fecha;
6. Em cada no load de cada forms abro a classe que com ele trabalha de forma que as funções que com ela trabalha estejam disponíveis a cada momento.

 

Tentei enviar um exemplo resunido de tudo isto mas, como possivelmente era grande de mais... isto foi ao ar por várias vezes, por isso desisti.

 

João Mateus