Gestione errori

[fraude]

Ciao.

Ho realizzato uno script asp con il quale è possibile scrivere dei dati inseriti in un file excel direttamente nel db access.

Quando non c'è congruità tra il formato del dato scritto in excel e quello previsto nel corrispondente campo del db access, lo script segnala giustamente:

Type Mismatch

questo succede per esempio quando nella cella di excel si scrive del testo ed invece il campo nel db access è previsto numerico.

Come posso gestire questo tipo di errore?

Grazie

[deleted_c]

come tutti gli altri

on error resume next, oggetto err o asperror

[fraude]

Grazie, ma inserendo on error resume next mi pare che l'errore non venga più segnalato, a me invece servirebbe una cosa del tipo:

-lo script che importa legge che c'è testo al posto di numerico;
-a video l'utente viene avvisato con:
Attenzione, nel campo 'tizio' è stato inserito del testo al posto di numeri...etc"

è possibile?

[Roby_72]

Quello è un altro discorso...
Usa IsNumeric()

Roby

[fraude]

Grazie, ho modificato il code ma anche se il controllo IsNumeric funziona, registra nel dbase, stampa sempre "esito positivo" ed invia il msg email...

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

  Rs.Open "SELECT * from [DATI$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)
      
  Do Until Rs.Eof    
   
   If Rs("campotesto") <> "" Then
   
    oRS.AddNew

oRs("DATS")= Rs("DATA")                  
oRs("TEMPERATURA")= Rs("TEMPERATURA")
    
    if ISNUMERIC(Rs("PPM")) <> TRUE then
    response.write "ci sono lettere"
    else
    oRs("PPM") = Rs("PPM") 
    end if
                
oRs("2_campotesto")= Rs("2_campotesto")                  
oRs("3_campotesto")= Rs("3_campotesto")

else 

Response.write "esito positivo"

Dim Link

'manda email

[Roby_72]

Prova:

If Not IsNumeric(Rs("PPM")) then

Roby

[fraude]

Grazie, ma non cambia nulla...

[fraude]

Ho impostato così:

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

  Rs.Open "SELECT * from [DATI$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)
  
   Do Until Rs.Eof    
   
   if Not ISNUMERIC(Rs("O2_PPM")) then
   response.write "ci sono lettere"
       
    else
   
oRS.AddNew

oRs("DATS")= Rs("DATA")                  
oRs("TEMPERATURA")= Rs("TEMPERATURA")
oRs("2_PPM")= Rs("2_PPM")                  
oRs("3_PPM")= Rs("3_PPM")

oRs.Update
  
Response.write "esito positivo"

Dim Link
'manda email

exit do 
end if

Rs.MoveNext   
Loop 

end if
Next 

Rs.close    
set Rs=nothing    
oRs.Close
Set oRs = Nothing   
Conn.Close
Set Conn = Nothing

ma stampa 'ci sono lettere' n volte... :master:

[fraude]

Non va neanche così... stampa un generico Type mismatch...

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

  Rs.Open "SELECT * from [DATI$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)
  
   Do Until Rs.Eof    
   
   if Not ISNUMERIC(Rs("2_PPM")) then
   response.write "ci sono lettere"
   end if

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

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

oRs("DATS")= Rs("DATA")                  
oRs("TEMPERATURA")= Rs("TEMPERATURA")
oRs("2_PPM")= Rs("2_PPM")                  
oRs("3_PPM")= Rs("3_PPM")
oRs("4_PPM")= Rs("4_PPM")

oRs.Update

exit do 
end if

Rs.MoveNext   
Loop 

end if
Next 
  
Response.write "esito positivo"
'manda email

Rs.close    
set Rs=nothing    
oRs.Close
Set oRs = Nothing   
Conn.Close

[fraude]

ci sono quasi... lo script individua bene l'errore, lo stampa a video ma visualizza sempre l'esito positivo ed invia l'email... aiutatemi a capire dove sbaglio...:

on error resume next

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

  Rs.Open "SELECT * from [DATI$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)
  
   Do Until Rs.Eof    
   
   if Not ISNUMERIC(Rs("2_PPM")) then
   response.write "ci sono lettere"
   end if

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

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

oRs("DATS")= Rs("DATA")                  
oRs("TEMPERATURA")= Rs("TEMPERATURA")
oRs("2_PPM")= Rs("2_PPM")                  
oRs("3_PPM")= Rs("3_PPM")
oRs("4_PPM")= Rs("4_PPM")

oRs.Update

Response.write "esito positivo"
'manda email

exit do 
end if

Rs.MoveNext   
Loop 

end if
Next 

Rs.close    
set Rs=nothing    
oRs.Close
Set oRs = Nothing   
Conn.Close