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

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


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

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: