NINGUEM DO FORUM TINHA RESPONDIDO

USUARIO.EXCLUIDOS 21/07/2005 14:06:51
#95367

Marcos se entendi bem o q vc disse, e que funciona no 2003 no 2000 e no 97 não???

Pq no meu 97 nao foi

USUARIO.EXCLUIDOS 21/07/2005 14:59:03
#95387

CARA AGORA FUNCIONOU, ESTA OTIMO, CONSEGUI O Q EU QUERIA MEU CODIGO FICOU ASSIM, : (vou utilizar isso quando precisar atualizar minha base dados, nunca mais ficarei convertendo em txt depois abrindo txt para atualizar)

Dim app_path As String
Dim Arq_DB As String
Dim conn As ADODB.Connection
Dim adox_catalog As ADOX.Catalog
Dim adox_table As ADOX.Table

' Encontra o caminho da aplicação
app_path = App.Path
If Right$(app_path, 1) <> "\" Then app_path = app_path & "\"

' Abre o banco de dados Departamentos
Arq_DB = app_path & "Bd1.mdb"
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Arq_DB & ";Persist Security Info=False"
' conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Arq_DB & ";"
conn.Open

' Cria um link para a tabela funcionarios no banco de dados Funcionarios
Set adox_catalog = New ADOX.Catalog

' Liga a tabela vinculada com conexão aberta
Set adox_catalog.ActiveConnection = conn

' adox_catalog.Tables.Delete "LinkedTable"
Set adox_table = New ADOX.Table
With adox_table
Set .ParentCatalog = adox_catalog
.Name = "LinkedTable"
.Properties("Jet OLEDB:Link Datasource") = app_path & "Bd2.mdb"
.Properties("Jet OLEDB:Link Provider String") = "MS Access"
.Properties("Jet OLEDB:Remote Table Name") = "Tabela2"
.Properties("Jet OLEDB:Create Link") = True
End With

' Inclui a tabela na coleção Tables
adox_catalog.Tables.Append adox_table

conn.Execute ("Insert into Tabela1(c1,a1) select c1, a1 From linkedtable")

adox_catalog.Tables.Delete "LinkedTable"

conn.Close



VALEUUUUUUUUUUUUUUUUU