[ODBC Excel Driver]

[fraude]

Buongiorno.

Cosa c'è di sbagliato in questo code? perchè restituisce:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Excel Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x320 Thread 0x5e8 DBC 0x2352084 Excel'.
/vazi.asp, line 139

dim xls
xls = "example.xls"
dim ConnStr, i, errore, flag_errore, valore_campo
flag_errore=false
errore=""

ConnStr = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & server.MapPath(".") & ";"

set conn = createobject("adodb.connection")
SET RS = createobject("adodb.recordset")

Conn.Open ConnStr <---- LINE 139
set rs = conn.execute("select * from "&xls) 
for i=0 to rs.fields.count -1
response.Write(rs(i).name&" ") 'visualizzo i nomi dei campi per sfizio
next
response.Write("

"&rs.fields.count&"

") ' lo stesso il numero dei campi

do while not rs.eof
for i=0 to rs.fields.count -1

valore_campo=rs(i)
if not isnull(valore_campo) then 
flag_errore = false
else
errore=errore&" ["&rs(i).name&"] "
flag_errore=true
end if
valore_campo=""
next

if flag_errore = false then
response.Write("inserisco il record nr. blah blah------>"&rs(0)&"
")
else
errore=errore&"
"
end if

rs.movenext
loop

response.Write("

"&errore&"
non contiene alcun valore")

[burruchaga]

vedi se trovi qualcosa di utile.
http://www.aspitalia.com/servizi/con....aspx?db=excel

[morphy79]

l'errore è sicuramente nella stringa di connessione... può essere il path sbagliato del file xls...

[fraude]

Grazie per le risposte... in effetti anch'io ho pensato ad un'errore di connessione... il problema è che il file xls arriva in upload al server sempre utilizzando lo stesso script:

Dim FileField
  For Each FileField in Form.Files.Items
   
    if len(FileField.FileName)> 0 then

      Dim DestinationFileName

      DestinationFileName = DestinationPath & FileField.FileName

      FileField.SaveAs DestinationFileName
            
      DestinationFileName = "UploadFolder/" & Form("File1").FileName


dim xls
xls = "example.xls"
dim ConnStr, i, errore, flag_errore, valore_campo
flag_errore=false
errore=""

ConnStr = "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)

ma anche in questo caso scrivendo come sopra l'errore restituito è:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Excel Driver] The Microsoft Jet database engine cannot open the file 'example'. It is already opened exclusively by another user, or you need permission to view its data.

e non capisco perchè.

[rixx]

suppongo che sia perchè non chiuedi la connessione dopo l'upload e quindi la cosa rimane aperta con accesso esclusivo quando processi il codice
Rixx

[fraude]

Originariamente inviato da rixx
suppongo che sia perchè non chiuedi la connessione dopo l'upload e quindi la cosa rimane aperta con accesso esclusivo quando processi il codice
Rixx

Supponi male... anche così:

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

      DestinationFileName = DestinationPath & FileField.FileName

      FileField.SaveAs DestinationFileName
            
         
      DestinationFileName = "UploadFolder/" & Form("File1").FileName


dim xls
xls = "example.xls"
dim ConnStr, i, errore, flag_errore, valore_campo
flag_errore=false
errore=""

ConnStr = "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)

set conn = createobject("adodb.connection")
SET RS = createobject("adodb.recordset")

Conn.Open ConnStr
set rs = conn.execute("select * from "&xls) 
for i=0 to rs.fields.count -1
response.Write(rs(i).name&" ") 'visualizzo i nomi dei campi per sfizio
next
response.Write("

"&rs.fields.count&"

") ' lo stesso il numero dei campi

do while not rs.eof
for i=0 to rs.fields.count -1

valore_campo=rs(i)
if not isnull(valore_campo) then
flag_errore = false
else
errore=errore&" ["&rs(i).name&"] "
flag_errore=true
end if
valore_campo=""
next

if flag_errore = false then
response.Write("inserisco il record nr. blah blah------>"&rs(0)&"
")
else
errore=errore&"
"
end if

rs.movenext
loop

response.Write("

"&errore&"
non contiene alcun valore")

end if

Conn.Close
Set Conn = Nothing

restituisce:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Excel Driver] The Microsoft Jet database engine cannot open the file 'example'. It is already opened exclusively by another user, or you need permission to view its data.

[rixx]

mm di solito succede quando hai il file a cui ti vuoi connettere aperto con ad esempio excel...è il caso?

Rixx

[fraude]

Originariamente inviato da rixx
mm di solito succede quando hai il file a cui ti vuoi connettere aperto con ad esempio excel...è il caso?

Rixx

No il file excel che invio in upload è chiuso.

[rixx]

allora non so
di solito è quelloc he genera il tuo errore (almeno a me è sempre stato quello)
Rixx