' devi costruirti una pagina che legga dal foglio excel e copi questi dati all'interno di access. ' Un foglio excel puo' essere trattato come una qualsiasi altra fonte di dati per cui a livello teorico puoi farci sopra delle query o scorrere i record (righe) uno per uno. <% SQL = "SELECT nome, cognome, telefono FROM id" strProvider="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath ("cartel1.xls") Set rs = Server.CreateObject("ADODB.recordset") rs.Open SQL, strProvider response.write rs("nome") response.write rs("cognome") response.write rs("telefono") Dim ConnDown Set ConnDown=Server.CreateObject("ADODB.Connection") ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"DB1.mdb") Dim SQL1, RECDown SQL1 = "INSERT INTO tbl1 (nome, cognome, telefono) VALUES (' "& rs("nome") &" ',' "& rs("cognome") &" ',' "& rs("telefono") &" ' )" set RECdown = connDown.execute(sql1) %> ' oppure <% SQL = "SELECT * from [Foglio1$]" strProvider="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath ("cartel1.xls") Set rs = Server.CreateObject("ADODB.recordset") rs.Open SQL, strProvider Do while not rs.eof response.write rs("nome") & "<br>" response.write rs("cognome") & "<br>" response.write rs("telefono") & "<br>" Dim ConnDown Set ConnDown=Server.CreateObject("ADODB.Connection") ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"DB1.mdb") Dim SQL1, RECDown SQL1 = "INSERT INTO tbl1 (nome, cognome, telefono) VALUES (' "& rs("nome") &" ',' "& rs("cognome") &" ',' "& rs("telefono") &" ' )" set RECdown = connDown.execute(sql1) response.write (SQL1) rs.movenext Loop rs.close set rs=nothing ConnDown.Close set ConnDown=nothing %> |