VBA - Access - Consulta MDB cliente em servidor de MDB via Jet 4.0

---

@CanalQb que Youtube 

---

---

Programação Simples - VBA - Access - Consulta MDB cliente em servidor de MDB via Jet 4.0

---

---

Sempre crie uma frase de segurança única para jogos, Airdrops e qualquer outra coisa de origem desconhecida, em vez de usar sua carteira principal.

---

 A associação de mdb ou accdb, pelo modo jet.

   Uma das formas mais eficazes, pois evita a criação de aplicações com tabelas vinculadas.

   Evitando congestionamento na rede e lentidão em sua aplicação, e até estouro do seu banco de dados por falha de armazenagem no access.

Exemplo: 

Public DB As Database 'Defina a variável DB como publica e reconheça ela como uma Database

Public Servidor As String 'Defina a variavel DB como publica e reconheça ela como string

Servidor = "servidorDB.mdb" 'Informe o caminho do DB servidor, lembra que o mdb pode estar na extensão .accdb

Set DB = OpenDatabase (Servidor) 'Abra o caminho da variavel servidor na variavel DB

Set nform = Db.OpenRecordset("select nome_about from TB_ORIGENS;") 'Exemplo de aplicação de Sql via jet

Msgbox nform (0) 'Retorna uma caixa de mensagem com o valor da SQL, variável nform (0)

Set DB = Nothing ' Limpa a variável

Aqui coloquei apenas um retorno de uma consulta, mas você pode incrementar utilizando o do while, para ter retorno da tabela completa.