copiare da DATABASE.mdb a DATABASE.mdb

[dreaman74]

Ho una tabella nel DATABASE(1) vorrei copiare nella TABELLA del DATABASE(2), aggiungendoli a quelli esistenti, tutti i record. Le tabelle sono identiche.

Ho varie tabelle, nel DATABSE(1), momentanee che mi inviano vari contatti... le devo caricare o importare all'interno del database(2). Quotidianamente. Ripeto tutto il contenuto del DATABASE(2) non deve cancellarsi. Quididi fare un "rs.update e rs.movenext"

Non ho mai aperto due connessioni contemporaneamente, va bene cosi':

set conn = server.createobject ("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("database1.mdb")

set conn2 = server.createobject ("ADODB.Connection")
conn2.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("database1.mdb")

SQldatabase1 = ...
SQldatabase2 = ...

Set rsdatabase1 = Server.CreateObject("ADODB.recordset")
rsdatabase1.Open sqldatabase1, conn

Set rsdatabase2 = Server.CreateObject("ADODB.recordset")
rsdatabase2.Open sqldatabase2, conn2

do until rsdatabase1.eof
campo1 = rsdatabase1("campo1")
campo2 = rsdatabase1("campo2")
campo3 = rsdatabase1("campo3")
campo4 = rsdatabase1("campo4")

rsdatabase2.addnew
rsdatabase2("campo1") = campo1
rsdatabase2("campo2") = campo2
rsdatabase2("campo3") = campo3
rsdatabase2("campo4") = campo4
rsdatabase2.update

rsdatabase1.movenext
loop

chiudo le connessioni

Grazie

[maximum]

Non ho ben capito quale si il tipo di problema, ad ogni modo ho notato questo:

set conn2 = server.createobject ("ADODB.Connection")
conn2.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("database1.mdb")

Fai già precedentemente l'apertura della connessione a "database1.mdb", per cui (a meno di errore di digitazione, in apertura di post), fai:

set conn2 = server.createobject ("ADODB.Connection")
conn2.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("database2.mdb")

[dreaman74]

si. In parole povere creo due connessioni a due database... si ho sbagliato a digitare... pardon...

Visto che non ho mai copiato record da una tabella ad un'altra fra due database diversi, chidevo se il ragionamento filava...


Quindi ok?

grazie

[longline]

do until rsdatabase1.eof

rsdatabase2.addnew
rsdatabase2("campo1") = rsdatabase1("campo1")
rsdatabase2("campo2") = rsdatabase1("campo2")
rsdatabase2("campo3") = rsdatabase1("campo3")
rsdatabase2("campo4") = rsdatabase1("campo4")
rsdatabase2.update

rsdatabase1.movenext
loop

[dreaman74]

Grazie, così veloccizziamo lo script. So anche questo ora.