Segnalare errore con precisione.

[fraude]

Salve a tutti.
Ho previsto un controllo su un campo di un file excel che viene importato in automatico in access tramite asp ed ho scritto così:

If Rs("ABC") <> ""  Then
          
      oRS.AddNew
    
    oRs("ID") = Rs("ID")  
    oRs("ABC") = Rs("ABC")                        
    oRs("DEF")= Rs("DEF")           

 else 
Response.write "







<center>Problema di importazione nel file excel selezionato!" & "

"

exit do 
end if

il controllo funziona correttamente ma l'errore indicato è troppo generico, si potrebbe anche indicare a quale riga del file excel (sono centinaia di righe) da importare corrisponde l'errore segnalato?
Grazie

[Roby_72]

contRighe = 1
If Rs("ABC") <> ""  Then
          
    oRS.AddNew

    oRs("ID") = Rs("ID")  
    oRs("ABC") = Rs("ABC")                        
    oRs("DEF")= Rs("DEF")           

contRighe = contRighe + 1
 else 
Response.write "







<center>Problema di importazione nel file excel selezionato alla riga "& contRighe &"!" & "

"

exit do 
end if

Roby

[fraude]

Grazie, il controllo funziona ma anche quando il caricamento va a buon fine, risponde sempre:

Problema di importazione nel file excel selezionato alla riga 1!

alla riga 1 del file excel ci sono le intestazioni delle colonne che corrispondono a quelle della tabella di access...
dove sbaglio????

[Roby_72]

Vuol dire che entra sempre nell'else.
Prova così:

If Rs("ABC") <> "" and contRighe > 1 Then

Roby

[fraude]

Originariamente inviato da Roby_72
Vuol dire che entra sempre nell'else.
Prova così:

If Rs("ABC") <> "" and contRighe > 1 Then

Roby

Grazie.
Ma così non importa più niente anche se il file excel è correttamente compilato... e segnala sempre:

Problema di importazione nel file excel selezionato alla riga 1!

[fraude]

non capisco perchè....

[Roby_72]

Ma tu sei dentro ad un Loop???
E dov'è???

Roby

[fraude]

Originariamente inviato da Roby_72
Ma tu sei dentro ad un Loop???
E dov'è???

Roby

Questa è la parte di code in questione:

Dim DestinationFileName

      DestinationFileName = DestinationPath & FileField.FileName

Dim Conn, RS, oRs, contRighe
   
      DestinationFileName = "UploadFolder/" & Form("File1").FileName

Set Conn = GetConnection 
      Set RS = Server.CreateObject("ADODB.Recordset")
      Set oRs = Server.CreateObject("ADODB.Recordset")
  
  oRS.Open "ListFiles", GetConnection, 2, 2

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

    oRs("ID") = Rs("ID")
    oRs("ABC") = Rs("ABC") 
    oRs("DEF") = Rs("DEF")                        
    
    oRs.Update
    
   contRighe = contRighe + 1
      
   else 
Response.write "







<center>Problema di importazione nel file excel selezionato alla riga "& contRighe &"!" & "

"
 
exit do 
end if
    
        
 
    Rs.MoveNext   
    
    
    Loop 
    
         
    if rs.eof Then 
    Response.Write "La procedura ha avuto esito Positivo ! " & "

"
    
    End if
       
  
  end if
  Next 

.......

[Roby_72]

Scusa ma metti un NEXT senza FOR ed un LOOP senza DO?


Roby

[fraude]

Allora il NEXT è giustificato da questo pezzo:

Dim FileField
  For Each FileField in Form.Files.Items
    if len(FileField.FileName)> 0 then 'File is specified.
      Dim DestinationFileName
......

per il LOOP è saltato un pezzo nel ricopiare il code :

Do Until Rs.Eof     
   
   contRighe = 1
   
   If Rs("ABC") <> "" and contRighe > 1 Then

   
       
      oRS.AddNew
.....