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



 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.

Aquivos de exemplo para download no google drive



#Access - #MDB #cliente #servidor #Jet  #qbexcel
Comentários