Este artículo resume los métodos de usar ASP para importar datos de Excel a la base de datos.
ASP implementa la importación de datos en Excel a la base de datos
- <%Respuesta.codepage = 65001%>
- <%Respuesta.CharSet = UTF-8%>
- <%
- wenjian = request.form (seleccionar)
- 'Obtenga la extensión del archivo
- ext = FileExec (Wenjian)
- 'Juez Extensión del archivo
- ifext <> xlsthen
- Response.Write (<Script> Alert ('El tipo de archivo es incorrecto, por favor verifique!'); window.location.href = 'index.html'; </script>)
- respuesta.end ()
- endif
- Dimobjconn, objrs
- Dimstrconn, strsql
- setobjconn = server.createObject (ADODB.Connection)
- setobjrs = server.createObject (ADODB.RecordSet)
- Excelfile = Server.Mappath (Wenjian)
- 'Para Excel2007
- strconn = Provider = Microsoft.ace.OLEDB.12.0; DataSource = & Exalfile &; & ExtendedProperties = Excel8.0;
- objconn.openstrconn
- strsql = select*de [Hoja1 $]
- objrs.openstrsql, objconn, 1,1
- objrs.movefirst
- %> <!-#includeFile = conn.asp-> <%
- 'Loop todos los registros en Excel
- mientras que
- setrs = server.createObject (ADODB.Recordset)
- 'Declaración de consulta
- sql_s = select*fromceshiwhereLname = '& objrs (0) &' andold = '& objrs (1) &' andsex = '& objrs (2) &' yguojia = '& objrs (3) &' andqq = '& objrs (4) &' '
- Rs.Opensql_S, Conn, 1,1
- 'No ingrese los datos duplicados
- IFRS.EOFTHEN
- 'Insertar la declaración
- '**** El primer elemento en Excel no se ingresará ****
- SQL = InsertInToceshi (lname, antiguo, sexo, guojia, qq) valores ('& objrs (0) &', '& objrs (1) &', '& objrs (2) &', '& objrs (3) &', '& objrs (3) & ',' & objrs (4) & ')
- 'Ejecutar inserción
- Conn.execute (SQL)
- endif
- objrs.movenext
- rs.
- SETRS = nada
- encaminarse a
- 'Es hora de cerrar de nuevo
- Conn.clar
- setConn = nada
- objrs.clar
- objconn.close
- setobjrs = nada
- setobjconn = nada
- Response.Write (<Script> Alert ('Importar exitosamente'); Window.location.href = 'index.html'; </script>)
- respuesta.end ()
- FunctileExec (nombre de archivo)
- FileExec = mid (nombre de archivo, instrer (nombre de archivo ,.)+1, len (nombre de archivo) -instr (nombre de archivo ,.)))
- Función final
- %>
Comparte otra versión simplificada del código
- wenjian = request.form (piso)
- FileExt = Mid (Wenjian, Instrrev (Wenjian,.)+1)
- iflcase (fileext) <> xlsthen
- Response.write <Script> Alert ('El formato de archivo es incorrecto, cargue el archivo de Excel'); Window.location.href = 'updateFloor.asp'; </script>
- respuesta.
- endif
- setconne = server.createObject (ADODB.Connection)
- Connstre = Provider = Microsoft.Jet.OLEDB.4.0; DataSource = & Server.Mappath (& Wenjian &) &; ExtendedProperties = 'Excel8.0; HDR = YES; IMEX = 1';
- conne.openconnstre
- SQLE = SELECT*de [Hoja1 $]
- Setrse = server.createObject (ADODB.RecordSet)
- rse.opensqle, Conne, 1,1
- 'verificar
- Hang = 2
- dowhilenottrse.eof
- 'El nombre no puede estar vacío
- iftrim (rse (0)) <> entonces
- demás
- Mess = El nombre de & Hang & Line está vacío, por favor verifique!
- Response.Write <Script> Alert ('& Mess &'). Window.location.href = 'updateFloor.asp' </script>
- respuesta.end ()
- endif
- rse.movenext
- Hang = Hang+1
- bucle
- rse.movefirst
- dowhilenottrse.eof
- setrst = server.createObject (ADODB.RecordSet)
- sqlt = select*fromsellman
- rst.opensqlt, Conn, 1,3
- rsst.addnew ()
- RST (CompanyName) = C2 (RSE (0))
- RST (CompanyInfo) = C2 (RSE (1))
- RST (Dirección) = C2 (RSE (2))
- RST (Tel) = C2 (RSE (3)) && C2 (RSE (7))
- RST (fax) = C2 (RSE (4))
- RST (Linkman) = C2 (RSE (5))
- RST (Página de inicio) = C2 (RSE (8))
- RST (correo electrónico) = C2 (RSE (6))
- rsst.update ()
- rsst.lose
- setrst = nada
- rse.movenext
- bucle
- rse.close
- setTrse = nada
- Response.Write <Script> Alert ('Importado con éxito!'); ubicación.href = 'updateFloor.asp'; </script>
De hecho, simplemente colóquelo como una base de datos de acceso, abra el archivo de Excel, lea y escriba para acceder.
Mira el código:
- dimconn
- dimconn2
- setConn = createObject (ADODB.Connection)
- conn.openProvider = Microsoft.Jet.OLEDB.4.0; Jetoledb: DataBASEPASSWORD =; DataSource = C: /Book1.mdb
- setConn2 = createObject (ADODB.Connection)
- Conn2.openProvider = Microsoft.Jet.OLEDB.4.0; Jetoledb: DataBASEpassword =; ExtendedProperties = Excel5.0; DataSource = C: /Book1.xls
- SQL = SELECT*de [Hoja1 $]
- setRS = conn2.execute (SQL)
- mientras que
- sql = insertItoxxx ([a], [b], [c], [d]) valores ('& fixSql (rs (0)) &', '& fixSQL (rs (1)) &', '& FixSQl (rs (2 (2 )) & ',' & FixSql (rs (3)) & ')
- Conn.execute (SQL)
- Rs.Movenext
- encaminarse a
- Conn.clar
- setConn = nada
- conn2
- setConn2 = nada
- FINTOFIXSQL (STR)
- dimnewstr
- Newsstr = Str
- ifisnull (periodista) entonces
- Newsstr =
- demás
- Newsstr = Reemplazar (Newstr, ',' ')
- endif
- FIXSQL = Newstr
- Función final