PRECISO,MAS NAO SEI SE E POSSIVEL,COM ADO

JABA 20/12/2006 12:24:10
#191167

De uma olhada nisso http://www.macoratti.net/mysql_ex.htm, qualquer coisa só troque o banco.

SPRITU 20/12/2006 12:24:28
#191168

Bom, meio estranho necessitar desse tipo de coisa masssss

Bom as tabelas ja existem então.. nao vai saer necessario cria uma nova

Dim db1Conn as New Connection
Dim db2Conn as New Connection
Dim Rc1 as new Recordset
Dim Rc2 as New recordset

db1Conn ... conecta ao banco de dados 1
db2conn ... conecta o 2º banco de dados

rc1.Open "Select * from tb_func", db1Conn

rc2.open "Select * from tb_func", db2Conn


do while not rc1.eof

rc2.AddNew

rc2.Fields("Campo1")=rc1.Fields("Campo1")
...
...
...
...
...
rc2.Fields("Campo15")=rc1.Fields("Campo15")
rc2.Update

rc1.MoveNExt
loop

bom a logica pode ser essa, to no trabalho e sem tempo pra faze isso. mas eh funcional....

qualquer coisa posta ai

USUARIO.EXCLUIDOS 20/12/2006 12:24:47
#191169 Resposta escolhida

Cara, não lembro direito, mas acho q é +/- assim:

No Cliente1.mdb vc executa:

Cn.Execute "INSERT INTO Tb_Func SELECT * FROM Tb_Func IN 'Caminho do Cliente2\Cliente2.mdb'"

JABA 20/12/2006 12:26:25
#191170

Esta página vai ter explicar via Cod como faz --> http://www.macoratti.net/vb_join2.htm

MARCOS 20/12/2006 13:59:33
#191208

Muito obrigado,colegas!!!!!!!!!!!
A sugestão do Matiole,não só resolveu
meu problema ,como aumento meu conhecimento de SQL .

USUARIO.EXCLUIDOS 20/12/2006 14:09:27
#191209

OK, então como TODOS ajudaram ... ajude ao site encerrando o tópico por que senão quase que eu respondi sua questão que ja tava respondida.