... Pague apenas R$67,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Importar tabelas do back-end para o front-end desvinculado

Uso com frequência a técnica de empregar tabelas temporárias para ter um melhor desempenho do aplicativo em rede.   Clique aqui e veja, neste meu artigo, a técnica usada para importar tabelas de um back-end que está vinculado ao front-end. 

Agora quero demonstrar como você pode importar tabelas de um back-end não vinculado ao front-end.  Observe com atenção os comentários do código proposto, aonde é usado o DAO para se conectar ao back-end.

Dim bd as DAO.Database
Dim LocalBe$
Dim LocalFe$
Dim strSql$
'-----------------
'Abre o back-end
'-----------------
LocalBe="\\MeuServidor\PastaBe\MeuBackEnd.accdb"
Set bd = OpenDatabase(LocalBe, False, False,";PWD=senha")

'-----------------------------------
'Monta a consulta de transferência
'-----------------------------------
LocalFe = "c:\MinhaPasta\MeuFrontEnd.accdb"
strSql = "SELECT * INTO [" & LocalFe & "].tmp_Produtos FROM tblProdutos;"

'---------------------------------------------------------------------
'Executa a consulta, importando a tabela do back-end para o front-end
'---------------------------------------------------------------------
bd.Execute strSql
'-------------------------------
'Fecha a conexão com o back-end
'-------------------------------
bd.close
set  bd = nothing

Nota:  Foi preciso indicar na consulta, o local do front-end (LocalFe), aonde desejamos gravar a tabela temporária, caso contrário a tabela seria gravada no próprio back-end.

Observe, no código abaixo, o uso do ADO para se conectar ao back-end.

Dim strSql$
Dim strCnx$
Dim LocalFE$
Dim cnx As New ADODB.Connection
'----------------------------------
'String de conexão com o back-end
'----------------------------------
strCnx = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;"
strCnx = strCnx & "Data Source=\\MeuServidor\MinhaPasta\MeuBackEnd.accdb;"
strCnx = strCnx & "Jet OLEDB:Database Password=Senha"
'--------------------------------
'Abre a conexão com o back-end
'--------------------------------
cnx.Open strCnx

'-----------------------------------
'Monta a consulta de transferência
'-----------------------------------
LocalFe = "c:\MinhaPasta\MeuFrontEnd.accdb"
strSql = "SELECT * INTO [" & LocalFe & "].tmp_Produtos FROM tblProdutos;"

'-------------------------------------------------
'Executa a consulta, criando a tabela no front-end
'-------------------------------------------------
cnx.Execute strSql
'----------------------------
'Fecha a conexão com back-end
'----------------------------
cnx.Close
Set cnx = Nothing

Bom estudo!


 

 


Não há comentário

Envie seu comentário: