errore importazione dati excel - access

[elisa21]

ciao a tutti,
ho letto le varie discussioni in merito all'argomento importazione dati da excel ad access, purtroppo mi sono state di poco aiuto. Ho quindi cercado di creare una procedura semplice per importare i dati che facesse al caso mio.

Questo è il codice che ho implementato:
<%
'apro la connessione al db dove importare i dati
Set DFCon = Server.CreateObject( "ADODB.Connection" )
DFCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath("mdb-database/db2.mdb")
DFCon.Open

'mi connetto al foglio excel
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/public/film2.xls") & "Extended Properties=""Excel 8.0;"""


'faccio la query al fooglio excel per leggere i dati
Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * from [film]"
objRS.Open SQL, objConn
If Not objRS.EOF then 'se cis ono dati

While Not objRS.EOF

strTitoloItaliano = objRS("Titoloitaliano")
strTitoloOriginale = objRS("Titolooriginale")

'eseguo l'insert nella tabella del db
Set objRSInsert = Server.CreateObject("ADODB.Recordset")
strSQLInsert = "INSERT INTO tbl_film"
strSQLInsert = strSQLInsert & "( f_titolo_italiano,"
strSQLInsert = strSQLInsert & " f_titolo_originale"
strSQLInsert = strSQLInsert & ")"
strSQLInsert = strSQLInsert & " VALUES ( "
strSQLInsert = strSQLInsert & "'"& strTitoloItaliano&"',"
strSQLInsert = strSQLInsert & "'"& strTitoloOriginale &"' "
strSQLInsert = strSQLInsert & ")"

response.write strSQLInsert
' response.End()

objRSInsert.Open strSQLInsert, DFCon, 3, 3
Set objRSInsert = Nothing


objRS.MoveNext
Wend
Else
Response.Write("nessun record")
End IF
objRS.Close
Set objRS = Nothing
DFCon.Close
Set DFCon = Nothing
%>

quando eseguo la pagina ricevo questo errore:

Microsoft JET Database Engine error '80004005'

Not a valid file name.

/importa.asp, line 10

dove la riga 10 è questa:
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/public/film2.xls") & "Extended Properties=""Excel 8.0;"""

da cosa può dipendere?
vi ringrazio per l'aiuto
elisa

[optime]

lizzie, manca un ; prima di Extended Properties= , altrimenti gli si attacca il nome del file

[elisa21]

Originariamente inviato da optime
lizzie, manca un ; prima di Extended Properties= , altrimenti gli si attacca il nome del file

lizzie... che carino mi piace

grazie mille dell'aiuto.. adesso devo sistemarlo per renderlo più... intelligente
elisa

[optime]

per le insert usa la connection.execute invece della recordset.open

[dan1988]

ciao, sto cercando disperatamente uno script in asp che appunto mi permetta di implementare giornalmente un db access importando dati da excel e questo tuo codice mi sembra, per le mie conoscenze, abbastanza intuitivo da utilizzare.

l'ho riadattato rinominando i miei file e compare il seguente errore:

Script error detected at line 8.
Source line: objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("elenco.xls") & "Extended Properties=""Excel 8.0;"""
Description: Nome file non valido.

questo il codice completo:
<%
'apro la connessione al db dove importare i dati
Set DFCon = Server.CreateObject( "ADODB.Connection" )
DFCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath("db.mdb")
DFCon.Open

'mi connetto al foglio excel
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("elenco.xls") & "Extended Properties=""Excel 8.0;"""

'faccio la query al fooglio excel per leggere i dati
Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * from [nominativi]"
objRS.Open SQL, objConn
If Not objRS.EOF then 'se cis ono dati

While Not objRS.EOF

strTitoloItaliano = objRS("nome")
strTitoloOriginale = objRS("cognome")

'eseguo l'insert nella tabella del db
Set objRSInsert = Server.CreateObject("ADODB.Recordset")
strSQLInsert = "INSERT INTO nominativi"
strSQLInsert = strSQLInsert & "( nome,"
strSQLInsert = strSQLInsert & " cognome"
strSQLInsert = strSQLInsert & ")"
strSQLInsert = strSQLInsert & " VALUES ( "
strSQLInsert = strSQLInsert & "'"& nome&"',"
strSQLInsert = strSQLInsert & "'"& cognome &"' "
strSQLInsert = strSQLInsert & ")"

response.write strSQLInsert
' response.End()

objRSInsert.Open strSQLInsert, DFCon, 3, 3
Set objRSInsert = Nothing


objRS.MoveNext
Wend
Else
Response.Write("nessun record")
End IF
objRS.Close
Set objRS = Nothing
DFCon.Close
Set DFCon = Nothing
%>




mi riuscite a dire per caso cosa c'è di sbagliato?
grazie mille

[cavicchiandrea]

Originariamente inviato da optime
lizzie, manca un ; prima di Extended Properties= , altrimenti gli si attacca il nome del file

[dan1988]

hai ragione, scusa, mi sono espresso male io, è che alla stringa


objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/public/film2.xls") & "Extended Properties=""Excel 8.0;"""


non ho ben capito dove va messo il ;
- dopo la &
- dopo le "
- prima della chiusa parentesi

cioè le ho provae un po' tutte ma non va...

grazie mille

[optime]

Originariamente inviato da optime
lizzie, manca un ; prima di Extended Properties= , altrimenti gli si attacca il nome del file

anche dopo 2 anni e mezzo, continua a sembrarmi scritto in un italiano comprensibile. sforzati un po', che ce la fai

[elisa21]

Originariamente inviato da optime
anche dopo 2 anni e mezzo, continua a sembrarmi scritto in un italiano comprensibile. sforzati un po', che ce la fai

ihihiiihhih