info su passaggio dati da db a db

[mexican]

CIao a tutti vorrei sapere se è possibile far passare dei dati da un database ad un'altro, cioè da un database remoto ad uno su server locale?
Grazie Ciao

[weppos]

Originariamente inviato da mexican
CIao a tutti vorrei sapere se è possibile far passare dei dati da un database ad un'altro, cioè da un database remoto ad uno su server locale?
Grazie Ciao

Che tipo di database usi?

[djmax73]

Se usi access ti è sufficiente usare due stringhe di connessione :

una per il DB locale
una per il DB remoto
apri entrambe le connessioni...
e mentre scorri quello da esportare scrivi sull'altro

poi chiudi le connessioni e il gioco è fatto.

[mexican]

Originariamente inviato da djmax73
Se usi access ti è sufficiente usare due stringhe di connessione :

una per il DB locale
una per il DB remoto
apri entrambe le connessioni...
e mentre scorri quello da esportare scrivi sull'altro

poi chiudi le connessioni e il gioco è fatto.

cioè??? puoi farmi un esempio?
io dovrei ad andare ad aggiornare delle tabelle e cartelle sul server remoto dal locale

[djmax73]

per quanto riguarda i files devi cercare uno script ASP che ti permetta di gestire l'FTP...prova a vedere se trovi qualcosa in questo forum

Per il DB :

connessione locale :

Dim LocalConn
Set LocalConn = Server.CreateObject("ADODB.Connection")
LocalConn.ConnectionString="Provider=Microsoft.Jet .OLEDB.4.0;Data Source=C:\DB\nomeDB.mdb
LocalConn.open

connessione remota :

pathdb = Request.ServerVariables("APPL_PHYSICAL_PATH") & "database/nomeDB.mdb"

Session("ConnInfo")="Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & pathdb

Dim RemoteConn
Set RemoteConn = Server.CreateObject("ADODB.Connection")
RemoteConn.ConnectionString=Session("ConnInfo")
RemoteConn.open

Poi nel codice della pagina dove effettui gli aggiornamenti apri le connessioni e quindi :

SqlTmp = ""
SqlTmp = SqlTmp & " select *"
SqlTmp = SqlTmp & " from tabellaLocale"

Set Localtable = LocalConn.Execute(SqlTmp)

Do While Not Localtable.EOF

SqlTmp = ""
SqlTmp = SqlTmp & " select * "
SqlTmp = SqlTmp & " from tabellaRemota"
SqlTmp = SqlTmp & " where ID=" & LocalTable("id") ' esempio
Set Remotetable = RemoteConn.Execute(SqlTmp)

if Remotetable.EOF then
' Record nuovo da inserire sulla Tabella nel DB REMOTO
Set TableInsert = Server.CreateObject("ADODB.Recordset")
TableInsert.Open tabellaRemota,RemoteConn,2,3,&H0002
TableInsert.AddNew

TableInsert("Campo1Remoto") = LocalTable("Campo1Locale")
TableInsert("ID") = LocalTable("id")
TableInsert.Update

else
' Record già esistente da aggiornare eventualmente sulla Tabella nel DB REMOTO
if colomtable("campo1Remoto") <> LocalTable("campo1Locale") then
SqlTmp = ""
SqlTmp = SqlTmp & " update tabellaRemota "
SqlTmp = SqlTmp & " set campo1Remoto = '" & LocalTable("campo1Locale") &"'"
SqlTmp = SqlTmp & " where ID=" & LocalTable("id")
Set Remotetable = RemoteConn.Execute(SqlTmp)
end if
end if
Localtable.Movenext

Loop

' Chiudi connessione Remota
RemoteConn.Close
Set RemoteConn = Nothing
' Chiudi connessione Locale
LocalConn.Close
Set LocalConn = Nothing
Ho dato come default il nome ID al campo univoco della tabella sia in locale che in remoto.

[mexican]

quindi le due connessioni le metto in una pagina asp a parte e poi le includo nella pagina dove inserisco il resto giusto?

[djmax73]

Esatto.
Poi fammi sapere se ti funziona.
Io l'ho usato in un sito è andava bene.

[mexican]

allora io ho fatto così:

<%
'connessione locale
Dim LocalConn
Set LocalConn = Server.CreateObject("ADODB.Connection")
LocalConn.ConnectionString="Provider=Microsoft.Jet .OLEDB.4.0;Data Source=E:LAVORI FINITI SVILUPPO\CANTINASOLOPACA\gestione\solopaca_db.mdb "
LocalConn.open

'connessione remota :

pathdb = Request.ServerVariables("APPL_PHYSICAL_PATH") & "gestione/solopaca_db.mdb"

Session("ConnInfo")="Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & pathdb

Dim RemoteConn
Set RemoteConn = Server.CreateObject("ADODB.Connection")
RemoteConn.ConnectionString=Session("ConnInfo")
RemoteConn.open
%>

con la connessione locale mi connetto al databse sul server che ho qui in casa!
mentre con la remota mi devo connettere a quello che ho in remoto cioè sul provider giusto???
è tutto corretto?

[mexican]

Originariamente inviato da mexican
allora io ho fatto così:

<%
'connessione locale
Dim LocalConn
Set LocalConn = Server.CreateObject("ADODB.Connection")
LocalConn.ConnectionString="Provider=Microsoft.Jet .OLEDB.4.0;Data Source=E:LAVORI FINITI SVILUPPO\CANTINASOLOPACA\gestione\solopaca_db.mdb "
LocalConn.open

'connessione remota :

pathdb = Request.ServerVariables("APPL_PHYSICAL_PATH") & "gestione/solopaca_db.mdb"

Session("ConnInfo")="Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & pathdb

Dim RemoteConn
Set RemoteConn = Server.CreateObject("ADODB.Connection")
RemoteConn.ConnectionString=Session("ConnInfo")
RemoteConn.open
%>

con la connessione locale mi connetto al databse sul server che ho qui in casa!
mentre con la remota mi devo connettere a quello che ho in remoto cioè sul provider giusto???
è tutto corretto?

poi mi dice sule resto:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'colomtable'
è sbagliato o con cosa lo devo sostituire?

[djmax73]

colomtable lo devi sostituire con Remotetable...errore mio di battitura....

Le connessioni sono corrette. Verifica che il DB Remoto sia in una cartella con i premessi di scrittura