Sto facendo un file asp che importa i darti di une xcel in un file access.
Il problema è che vorrei fare in modo che in una sola pagina asp vengono presi tutti i record excl e messi nel file mdb (precedentemente svuotato).
Ma mi carica solo il primo record da file a file!!!
Qualcuno ouò aiutarmi? posto qui sotto il codice...
*****************************
<%
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTableDirect = &H0200
Const adUseClient = 3
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("catalogo_w.xls") & ";Extended Properties=Excel 5.0;"
strSQL="SELECT * FROM catalogo"
Dim excelrs
Set excelrs = Server.CreateObject("ADODB.Recordset")
excelrs.PageSize = 1
excelrs.CacheSize = 1
excelrs.CursorLocation = adUseClient
excelrs.Open strSQL, connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect
%>
<%
Dim artista
Dim titolo
Dim label
Dim formato
Dim prezzo
Dim genere
Dim info
Dim condizioni
Dim novita
Dim stato
artista = excelrs("artista")
titolo = excelrs("titolo")
label = excelrs("label")
formato = excelrs("formato")
prezzo = excelrs("prezzo")
genere = excelrs("genere")
info = excelrs("info")
condizioni = excelrs("condizioni")
novita = excelrs("novita")
stato = excelrs("stato")
%>
<%
Dim Rs
Dim Conn
Set Conn=Server.createobject("ADODB.connection")
Set Rs=Server.createobject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../catalogo_w.mdb")
set rs = Conn.Execute("DELETE * FROM catalogo")
rs.open "catalogo", Conn,3,3
rs.AddNew
If Not excelrs.EOF Then
rs("artista") = artista
rs("titolo") = titolo
rs("label") = label
rs("formato") = formato
rs("prezzo") = prezzo
rs("genere") = genere
rs("info") = info
rs("condizioni") = condizioni
rs("novita") = novita
rs("stato") = stato
excelrs.Movenext
End If
rs.update
rs.close
Set rs = nothing
Conn.close
Set Conn = nothing
Rispondi quotando
