[Resolvido]Conectar o banco de dados Back-End ao Front-End

Olá, lá vai eu mais uma vez com minhas intermináveis perguntas..(risos)

Estou achando muito interessante programar com o Access de forma desacoplada. Porém, gostaria de saber se é possível estabelecer uma conexão genérica entre front-end e o back-end.

Assim, poderiamos sempre se referir a essa conexão para resgatar dados e e fazer as devidas manipulações.

Não sei se fui claro, qualquer coisa eu explico novamente.

Grato.

Dá para jogar mais alguns verbos na questão por gentileza? Acho que não captei 100% da ideia.

Obrigado pela disposição. Vamos lá.

Em todos os formulários desvinculados, para populá-lo, precisamos especificar as variáveis, recodsets e etc.

O que eu gostaria de saber é se há alguma possibilidade de não ter que fazer todo o processo de conexão com o bando para popular os formulários.

O que eu penso que poderia auxiliar nisso seria criando um módulo, que contivesse a conexão do banco de dados. Assim, quando eu precisasse acessar dados pelo formulário, apenas informasse a origem dos dados, sendo uma String, que o módulo de conexão já tinha definido.

Por exemplo: no módulo já tivesse definido uma conexao ao banco referenciando cada tabela a uma string.

Assim quando for preciso pegar dados das tabelas, basta chamar o módulo que tinha a variável com a conexão daquela tabela.

Não sei se complequei... Mas seria como se tivesse as tabelas vinculadas, mas não da maneira nativa do Access.

Uma ideia poderia ser passar o caminho do backend em um módulo global. Algo como:

Public Function BEPath() As Database
Set BEPath = DBEngine.Workspaces(0).OpenDatabase(CurrentProject.Path & "\Nome do BE.accdb", False, False, "Ms Access;PWD=Senha")
End Function

Com isso, você pode passar apenas o Recordset:

Dim rs As Recordset
Set rs = BEPath.OpenRecordset("NomeDaTabela")

Tambem seria possível usar uma função para retornar todas as tabelas do backend em uma lista.

Nesse caso sugerido acima, como poderia usar para prencher uma list box?

Amigo,
Crie uma função pra retornar o caminho da sua base de dados.
Cole Abaixo

'-------------------------------------------------------------
Function BaseDados()
Dim db As Database, Arquivo As String

Arquivo = "SeuArquivo.MDB"
Set db = Workspaces(0).OpenDatabase(Arquivo)
BaseDados = Arquivo
End Function
'-------------------------------------------------------------

Para abrir qualquer tabela e colar os dados abaixo

Sub SeuBotao_Click()
Dim db As Database, tb As Recordset
Set db = BaseDados
Set tb = db.OpenRecordset(NomeDaSuaTabela)
End Sub

Para carregar uma lista de todas as tabelas do backend em uma listbox ou combobox:

Código:

Dim obj As Object, db As Database

Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Caminho\Seu banco.accdb", False, False, "MS Access;PWD=Senha")

Me.NomeDaListbox.RowSourceType = "Value List"
Me.NomeDaListbox.RowSource = ""

For Each obj In db.TableDefs
    If Left(obj.Name, 4) <> "MSys" Then
        Me.NomeDaListbox.AddItem obj.Name
    End If
Next

Obrigado mais uma vez, funciou.

Vocês são muito bons em Access.

Resolvido

Agradecemos pelo retorno. Bom trabalho!