Ciao a tutti, sto cercando di fare l'importazione di numeri telefonici da una pagina excel
dunque per prima cosa faccio l'upload del file excel (e fin qui tutto ok)
poi vado a leggere i numeri di cellulare presenti e li inserisco in un db,
qui ho il problema: non vengono letti i campi numerici
il file xls è qua
il codice usato per la lettura ed il salvataggio è
codice:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/sms.mdb"))
Set objRs = Server.CreateObject("ADODB.Recordset")
'SVUOTO IL GRUPPO
set objRs = objConn.Execute("DELETE * FROM gruppo")
'LEGGO L'XLS
Dim DbConn, rs, objFile, InStream
strConn = "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath ("/public/sms_num.xls") & ";"
set rs=server.createobject("adodb.recordset")
rs.activeconnection=strConn
sqlString="SELECT * FROM [Foglio1$]"
rs.open sqlString
while not rs.EOF
'SALVO I NUMERI NEL GRUPPO
set objRs = objConn.Execute("INSERT INTO gruppo (cell) VALUES ('"&rs(0)&"')")
rs.MoveNext
wend
rs.close
set rs=Nothing
set strConn=Nothing
'TEST LETTURA GRUPPO
'set objRs = objConn.Execute("SELECT * FROM gruppo")
'do while not objrs.eof
' response.write objrs("cell")&"</br>"
'objrs.movenext
'loop
set objRs=Nothing
set objConn=Nothing
credo che l'errore sia nella connessione ma non riesco a risolvere