I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
omnia2004
omnia2004
il 19 ottobre 2004 alle 07:42
160 messaggi dal 23 febbraio 2004
Ciao.
Per quello che sono riuscito a realizzare con questo script asp gli errori vengono giustamente segnalati (con la limitazione che vede solo la prima riga che contiene l'errore) ma invece di importarmi tutte le righe di un file excel precompilato, importa solo la prima... 
on error resume next

oRS.Open "ListFiles", GetConnection, 2, 2

  Rs.Open "SELECT * from [DATI$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)

contRighe = 1  

   Do Until Rs.Eof    
   
   if Not ISNUMERIC(Rs("2_PPM")) then
   response.write "ci sono lettere"
response.end
   end if

if Not ISNUMERIC(Rs("3_PPM")) then
   response.write "ci sono lettere"
response.end
   end if

if Not ISNUMERIC(Rs("4_PPM")) then
   response.write "ci sono lettere"
response.end
       
    else
   
oRS.AddNew

oRs("2_PPM")= Rs("2_PPM")                  
oRs("3_PPM")= Rs("3_PPM")
oRs("4_PPM")= Rs("4_PPM")

oRs.Update

contRighe = contRighe + 1
    
exit do 
end if

Rs.MoveNext   
Loop 


Response.write "esito positivo"
'manda email

end if
Next 

Rs.close    
set Rs=nothing    
oRs.Close
Set oRs = Nothing
Modificato da omnia2004 il 19 ottobre 2004 07.43 -
RispondiQuoting
dancos
dancos
il 21 ottobre 2004 alle 09:59
35 messaggi dal 06 settembre 2002
oRS.AddNew
oRs("2_PPM")= Rs("2_PPM")
oRs("3_PPM")= Rs("3_PPM")
oRs("4_PPM")= Rs("4_PPM")
oRs.Update
contRighe = contRighe + 1
exit do

ma se fai l'exit do dopo il primo inserimento è chiaro che nel file excel ti trovi una riga sola!
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.