bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Importar tabelas do back-end para o front-end desvinculado
Importar tabelas do back-end para o front-end desvinculado

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 


 

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: