importare tabelle access

[kluster]

adox.catalog

guarda questo articolo

[rixx]

quindi dovrebbe essere una cosa del tipo
[/CODE]
Set objADOX = Server.CreateObject("ADOX.Catalog")
objADOX.ActiveConnection = objConn
For Each whatever in objADOX.Tables

If Tabella.Type = "TABLE" Then
connessione = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.open connessione
SQLTrasfert = "SELECT * INTO [NOME_DA_DARE_ALLA_TABELLA_DB_2] IN '" & Server.MapPath("db2.mdb") & "' FROM [TABELLA_DB_1];"
Connection.execute(SQLTrasfert )

next[/CODE]
?

[rixx]

sbagliai il tag

quindi dovrebbe essere una cosa del tipo

 
Set objADOX = Server.CreateObject("ADOX.Catalog") 
objADOX.ActiveConnection = objConn 
For Each whatever in objADOX.Tables 

If Tabella.Type = "TABLE" Then 
connessione = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb") 
Set Cn = Server.CreateObject("ADODB.Connection") 
Cn.open connessione 
SQLTrasfert = "SELECT * INTO [NOME_DA_DARE_ALLA_TABELLA_DB_2] IN '" & Server.MapPath("db2.mdb") & "' FROM [TABELLA_DB_1];" 
Connection.execute(SQLTrasfert ) 

next

?

[kluster]

hai troppa fretta leggiti tutto l'articolo

se fai
for each whatever in objADOX.Tables
devi cambiare tutti i riferimenti da table a whatever

ed inoltre la select diventa

SQLTrasfert = "SELECT * INTO " & whatever.name & " IN '" & Server.MapPath("db2.mdb") & "' FROM " & whatever.name & ";"

[rixx]

si era solo per capirci grazie cmq!

Set objADOX = Server.CreateObject("ADOX.Catalog") 
objADOX.ActiveConnection = objConn 
For Each whatever in objADOX.Tables 

If whatever.Type = "TABLE" Then 
connessione = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb") 
Set Cn = Server.CreateObject("ADODB.Connection") 
Cn.open connessione 
SQLTrasfert = "SELECT * INTO whatever.name IN '" & Server.MapPath("db2.mdb") & "' FROM whatever.name;" 
Connection.execute(SQLTrasfert ) 

next

non cè altro mi pare..?

[kluster]

Set objADOX = Server.CreateObject("ADOX.Catalog") 
connessione = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb") 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn .open connessione 

objADOX.ActiveConnection = objConn 
For Each whatever in objADOX.Tables 
  If whatever.Type = "TABLE" Then 
  SQLTrasfert = "SELECT * INTO " & whatever.name & "IN '" & Server.MapPath("db2.mdb") & "' FROM " & whatever.name & ";" 
  objConn.execute(SQLTrasfert ) 
next

Set ObjAdox = nothing
ObjConn.Close
Set objConn = nothing

[rixx]

+ naturalmente la conn al db sopra

[rixx]

wow me lo hai pure scritto
thx!
ma non ti fanno moderatore?
ciaoo

[kluster]

bastava prendere lo script dell'articolo e levare quello che non serviva

[rixx]

ahimè non va probabilmente cè un errore anche se non capisco quale:

<%
Set objADOX = Server.CreateObject("ADOX.Catalog") 
connessione = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.open = connessione
objADOX.ActiveConnection = objConn 
For Each whatever in objADOX.Tables 
  If whatever.Type = "TABLE" Then 
  SQLTrasfert = "SELECT * INTO " & whatever.name & "IN '" & Server.MapPath("db2.mdb") & "' FROM " & whatever.name & ";" 
  objConn.execute(SQLTrasfert ) 
end if
next

Set ObjAdox = nothing
ObjConn.Close
Set objConn = nothing
%>

volevo testarlo percui h creato due semplici db di una tabella ciascuno chiamati db1 e db2 nella stessa cartella e ho lanciato il file, mi dice:

L'input per la query deve contenere almeno una tabella o una query.

nella riga di query ovviamente, a cosa è dovuto?
grazie ciao!!