USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Trocar dados entre conexoes... (MySQL)
jvlsm
SANTA MARIA
RS - BRASIL
ENUNCIADA !
Postada em 15/04/2007 22:21 hs            
Caros Colegas,
 
Alguem conhece alguma forma de trocar dados entre duas tabelas de conexoes diferentes? Por exemplo:
 
Dim Conn1 as new adodb.connection
Conn1.CursorLocation = adUseClient
Conn1.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=db1;USER=teste;PASSWORD=123;"
 
Dim Conn2 as new adodb.connection
Conn2.CursorLocation = adUseClient
Conn2.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.10.10;DATABASE=db1;USER=teste;PASSWORD=123;"
 
Como eu poderia inserir dados de uma tabela da conn1 em outra da conn2?

Juliano V. Londero
jvlsm@terra.com.br
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 15/04/2007 23:16 hs            
Tem uns cobras em SQL que pode informar melhor, mas voce pode jogar o conteudo de uma tabela em variaveis (array) ou em TextBox, invisiveis (seu critério), e inserir na outra.
 
vlu//
   
jvlsm
SANTA MARIA
RS - BRASIL
ENUNCIADA !
Postada em 16/04/2007 15:22 hs            
Caro Colega,
 
Jogando as variaveis em array nao iria adiantar, neste caso eu poderia fazer um loop em um recordset da conn1 jogando os dados em outro da conn2... Alias, atualmente faco assim, queria ver se existisse algum comando em sql para isso mesmo...
 
Mas de qq forma, obrigado.

Juliano V. Londero
jvlsm@terra.com.br
   
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/04/2007 11:47 hs            
"EU" fasria assim: vamos supor q a con1 tenha uma talbela de clientes entao vc deve fazer o for....next nos dados e jogando na con2...

for x = 1 to tabela1.recordcout  'tabela da con1
            SQL = "INSERT INTO TABELA2 (RAZAOSOCIAl, CEP) VALUES  (tabela1!razaosocial, tabela1!cep)
Set tabela2 = Con2.Execute(SQL)
      TABELA1.NEXT
NEXT X

'ATENTA-SE PARA A SINTAXE, DIGITEI DE CABEÇA....
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página