Fechar conexão com o banco

Bom dia !

Nao consigo fechar uma conexao com banco em um mesmo evento GotFocus de uma combo.


Se eu fecho o banco no mesmo evento onde estou preenchendo a combo os dados nao aparecerem na combo, ja tentei preencher a combo no GotFocus e tentei fechar a conexao em AfterUpdate da mesmo combo tambem nao deu . os dados so aparecerem na combo se eu deixar o banco aberto.

Código:

Private Sub Cbo_Frota_GotFocus()
    Caminho_Banco
        Set Ws = DBEngine.Workspaces(0)
        Set Db = Ws.OpenDatabase(Caminho & "\meu_banco.accdb", False, False, "Ms Access;PWD=***")

        Comando = "Select Frt_Nome ,Frt_Sigla from Tbl_Frota"
       
        Set Me!Cbo_Frota.Recordset = Db.OpenRecordset(Comando)
            Me!Cbo_Frota.ColumnCount = 2
            Me!Cbo_Frota.ColumnWidths = "0cm;2cm"
End Sub

Private Sub Cbo_Frota_AfterUpdate()
        Db.Close
        Set Db = Nothing
End Sub

Se eu deixo o banco aberto sem setar a DB.close funciona beleza mas gostaria de fechar o banco depois de atualizar a combo

Mas qual o motivo de se fazer no "foco"? Só a título de mencionar mesmo, eu costumo fazer assim:

Código:

    Me.NomeDaCombo.RowSource = "Select * from NomeTabela in ''[;Database=" & Caminho & "\DataBase.accdb;PWD=*****]"

Muito Obrigado Criquio!

A forma que voce passou é bem mais simples e irei usa-la.

mas mesmo fazendo da forma que me passou minha preocupação é o arquivo MeuBanco.laccdb fica aberto do mesmo jeito , isso tem algum problema? é sinônimo de banco aberto ?

Quanto ao fazer no "foco" fiz porque não sabia onde exatamente em que evento fazer, você normalmente preenche a combo em qual evento ?

estou usando assim como me recomendou

Código:

Private Sub Cbo_Frota_GotFocus()
Caminho_Banco
    Me.Cbo_Frota.RowSource = "Select Frt_Nome,Frt_Sigla from Tbl_Frota in ''[;Database=" & Caminho & "\MeuBanco.accdb;PWD=***]"
    Me.Cbo_Frota.ColumnCount = 2
    Me.Cbo_Frota.ColumnWidths = "3.0cm;0.4cm"
End Sub

Mais uma vez muito obrigado pela ajuda , Aprendo muito com voce aqui no forum !

um UP no tópico!

Alguém ?

Rafaeljunio, boa noite já mim deparei com esse problema da combbox não fechar a conexão com o banco de dado eu uso dessa forma para resolver isso.

Private Sub cboPesquisa_GotFocus()

Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
10 On Error Resume Next
20 Set db = CurrentDb
30 Set rs = db.OpenRecordset(strSQL)
40 strSQL = "SELECT nome,Endereco,Telefone,email,codProduto FROM Fornecedor ORDER BY nome;"
50 Me!cboPesquisa.RowSource = strSQL
60 CurrentDb.Execute strSQL
70 rs.Close
80 Set rs = Nothing
90 db.Close
100 Set db = Nothing
End Sub
'É esse metodo que uso para fechar a base de dado
Private Sub cboPesquisa_LostFocus()
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
10 On Error Resume Next
20 Set db = CurrentDb
30 Set rs = db.OpenRecordset(strSQL)
40 strSQL = "SELECT nome FROM Fornecedor ORDER BY nome;"
50 Me!cboPesquisa.RowSource = strSQL
60 CurrentDb.Execute strSQL
70 rs.Close
80 Set rs = Nothing
90 db.Close
100 Set db = Nothing
End Sub

Obrigado pela atencao!
nao entendi muito bem porque voce fecha a conexao com esse metodo
'É esse metodo que uso para fechar a base de dado
Private Sub cboPesquisa_LostFocus()
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
10 On Error Resume Next
20 Set db = CurrentDb
30 Set rs = db.OpenRecordset(strSQL)
40 strSQL = "SELECT nome FROM Fornecedor ORDER BY nome;"
50 Me!cboPesquisa.RowSource = strSQL
60 CurrentDb.Execute strSQL
70 rs.Close
80 Set rs = Nothing
90 db.Close
100 Set db = Nothing
End Sub

Mas de qualquer forma vou testar e posto o retorno

Bom dia Rafaeljunio uso metod para fechar a conexao com banco de dado ao perder o foco, depois de actualizar a combbox mudo cursor outro campo texto veja

Private Sub cboPesquisa_AfterUpdate()
10 On Error Resume Next
Dim mysql As String
20 mysql = "Select nome,Endereco,Telefone,email"
30 mysql = mysql & "FROM Fornecedor WHERE cboPesquisa = " & Nz(Me!txt.Column(0), 0) & " ORDER BY codFornecedor;"
40 Me!txt0 = Me!cboPesquisa.Column(1)
50 Me!txt1 = Me!cboPesquisa.Column(2)
60 Me!txt2 = Me!cboPesquisa.Column(3)
70 Me!txtdoc.SetFocus 'É dessa forma que mudo o foco do cursor para o campo texto
End Sub

Desculpe a demora na resposta a esse tópico mas somente hoje tive tempo de testar.

avelino007 nao conseguir entender direito como voce fecha o banco no evento cboPesquisa_AfterUpdate().

eu preecho a Lisbox com recordset e nao consigo set o Db = Nothing no mesmo evento onde preecho a list(se eu coloco Set Db = Nothing nao da erro mas tambem nao aparece os dados da list)

Sub LstBox_PontoAtencao()

Dim Db As DAO.Database
Dim Ws As DAO.Workspace
Dim RsHrx As DAO.Recordset
Dim strSelect As String

Caminho_Banco
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(Caminho & "\MeuBanco.accdb", False, False, "Ms Access;PWD=**")


strSelect = "SELECT .... "

Set Me!LBox_Ponto_Atencao.Recordset = Db.OpenRecordset(strSelect)
Me!LBox_Ponto_Atencao.ColumnCount = 2
Me!LBox_Ponto_Atencao.ColumnWidths = "1.5cm"

End Sub

Pra eu conseguir fechar o banco sem ter problemas em preencher a List faco no evento ai sair do formulário.
Mas como é um aplicação em rede não queria deixar o banco aberto enquanto o usuário estiver com esse formulário aberto.gostaria de depois de preencher a list fecha-se o banco(já tentei também fechar no evento afterUpdate do list e nada)

rafaeljunio.ti boa noite esse codigo é para fechar combbox e não listbox porque que voce não usa tabela temporaria para preencher a listbox?

Obrigado pela resposta!

Nunca Usei Tabela temporária no Access eu costumava usar bastante no Slqserver não sei se usa aqui no access com o mesmo intuito ,

Mas você tem algum exemplo de como poderia ficar o preenchimento dessas listbox com tabelas temporárias ? é mais rápido ? qual a vantagens das tabelas temporárias ?

Obrigado pela atenção!

Up No topico!

rafaeljunio.ti Boa tarde, tem muita vantagem em trabalhar com tabela temporaria estou a deixar um exemplo do Maestro do Mestre Avelino Sampaio.

Obrigado Avelino007,

Eu havia baixado o Maestro e já uso atualmente bastante coisa que aprendi com o maestro. mas não conseguir onde realmente foi usado tabela temporária



Obrigado