[Resolvido]Conexão via RecordSet

Olá, companheiros...

Gostaria de saber quais as diferenças entre essas duas maneiras de se conectar ao back-end e quais vantagens e desvantagens de cada uma.

Maneira 1 (atualmente estou usando essa)

Dim BD As Database, rsTabela As Recordset

Set BD = CurrentDb
Set rsTabela = BD.OpenRecordset("tbTempDetalhePedido", dbOpenTable)

Maneira 2 (Vi essa de um usuário aqui do fórum.

Dim db, dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rsAdm As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
Set dbLocal = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")


Desde já, grato.

Olá Marcos

O código superior vc trabalha com tabelas locais e/ou vinculadas enquanto que o de baixo vc trabalha com bancos sem vinculo algum (já é o caminho para treinar a ligar bancos diversos: MYSQL ou SQL SERVER)

Sucesso!

Grato pela resposta!!
Mais uma coisa:

Da maneira que está acima, não poderia passar o caminho da rede para ligar ao back-end, ao inves de apenas ligar localmente?

Exemplo:
alterar o seguinte:
Set BD = CurrentDb

Para:
Set BD = "caminho da rede"

Caso afirmativo, é possível mais um usuário usando o banco?

Grato

Up!

Sim Marcos, mas se vc usa o mecanismo de vincular as tabelas, mesmo que em rede, o uso do currentdb é o correto.

Agora se pretende acionar alguma tabela do seu back-end, que não esteja vinculada ao front-end vc então usa algo assim:

Dim BD as DAO.database
Dim rsTabela As DAO.Recordset
Set BD = OpenDatabase("\\SeuServidor\SuaPasta\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
Set rsTabela = BD.OpenRecordset("tbTempDetalhePedido")
...
...


Pode também mapear a rede e usar sempre a letra do mapeamento.

Set BD = OpenDatabase("z:\SuaPasta\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")

Se o servidor usar um IP fixo, pode usar assim:

Set BD = OpenDatabase("\\192.168.000.100\SuaPasta\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")

Sucesso!

Grato pelo esclarecimento...
Vou usar o DAO.Recordset para usar meu aplicativo totalmente desvinculado, pois melhorará a performance da rede, uma vez que aproximadamente 5 pessoas usam o aplicatimo simutaneamente.

Obrigado