Página Inicial>Tutorial de programação de redes>Tutorial ASP

ASP implementa a importação de dados no Excel para o banco de dados

Autor：Eve Cole Data da Última Atualização：2025-03-17 07:00:03

Este artigo resume os métodos de uso do ASP para importar dados do Excel para o banco de dados.

ASP implementa a importação de dados no Excel para o banco de dados

  1. <%Response.codePage = 65001%>
  2. <%Response.CharSet = UTF-8%>
  3. <%
  4. wenjian = request.form (selecione)
  6. 'Obtenha a extensão do arquivo
  7. ext = fileExec (Wenjian)
  8. 'Juiz Extensão de Arquivos
  9. ifext <> xlsthen
  10. Response.Write (<Script> alert ('O tipo de arquivo está incorreto, verifique!'); window.location.href = 'index.html'; </script>)
  11. Response.end ()
  12. endif
  14. Dimobjconn, Objrs
  15. DIMSTRCONN, STRSQL
  17. setobjconn = server.createObject (adodb.connection)
  18. setobjrs = server.createObject (adodb.recordset)
  20. Excelfile = server.mappath (Wenjian)
  21. 'Para Excel2007
  22. strConn = provedor = microsoft.ace.oledb.12.0; DataSource = & Excelfile &; & ExtendedProperties = Excel8.0;
  23. objconn.openstrconn
  25. strSQL = selecione*de [Sheet1 $]
  27. objrs.openstrsql, objconn, 1,1
  28. objrs.movefirst
  30. %> <!-#incluirfile = Conn.asp-> <%
  31. 'Loop todos os registros no Excel
  32. whilenotobjrs.eof
  34. setrs = server.createObject (adodb.recordset)
  35. 'Declaração de consulta
  36. sql_s = selecione*FromCeshiwhereelname = '& objrs (0) &' andold = '& objrs (1) &' andSex = '& objrs (2) &' andguojia = '& objrs (3) &' andqq = '& objrs (4) &' '
  37. rs.opensql_s, Conn, 1,1
  38. 'Não insira os dados duplicados
  39. ifrs.eofthen
  40. 'Inserir declaração
  41. '**** O primeiro item no Excel não será inserido ****
  42. sql = insertIntoceshi (lname, velho, sexo, guojia, qq) valores ('& objrs (0) &', '& objrs (1) &', '& objrs (2) &', '& objrs (3) &' & objrs (3) & ',' & objrs (4) & ')
  43. 'Executar inserção
  44. Conn.Execute (SQL)
  45. endif
  46. objrs.movenext
  47. rs.close
  48. setrs = nada
  49. Wend
  51. 'É hora de fechar novamente
  52. Conn.Close
  53. setConn = nada
  54. objrs.close
  55. objconn.close
  56. setobjrs = nada
  57. SetoBJConn = nada
  59. Response.Write (<Script> alert ('importação com sucesso'); window.location.href = 'index.html'; </script>)
  60. Response.end ()
  62. FunctionFileExec (nome do arquivo)
  63. FileExec = MID (nome do arquivo, Instr (nome do arquivo,.)+1, Len (nome do arquivo) -Instr (nome do arquivo,.))
  64. Função final
  65. %>

Compartilhe outra versão simplificada do código

  1. wenjian = request.form (piso)
  2. FileExt = MID (Wenjian, Instrrev (Wenjian ,.)+1)
  3. iflcase (fileExt) <> xlsthen
  4. Response.Write <Cript> alert ('O formato do arquivo está incorreto, envie o arquivo do Excel'); window.location.href = 'updatefloor.asp'; </sCript>
  5. resposta.END
  6. endif
  7. setConne = server.createObject (adodb.connection)
  8. ConnStre = provedor = Microsoft.Jet.oledb.4.0; DataSource = & Server.Mappath (& Wenjian &) &; ExtendedProperties = 'Excel8.0; hdr = sim; imex = 1';
  9. conne.openconnstre
  10. Sqle = selecione*de [Sheet1 $]
  11. SetRSe = server.createObject (adodb.recordset)
  12. rse.opensqle, conne, 1,1
  13. 'verificar
  14. pendurar = 2
  15. Dowhilenottrse.eof
  16. 'O nome não pode estar vazio
  17. iftrim (rse (0)) <> então
  18. outro
  19. bagunça = o nome do & Hang & Line está vazio, por favor, verifique!
  20. Response.Write <Cript> alert ('& Mess &'). Window.Location.href = 'updateFloor.asp' </sCript>
  21. Response.end ()
  22. endif
  23. rse.movenext
  24. hang = hang+1
  25. laço
  26. rse.movefirst
  27. Dowhilenottrse.eof
  28. setRst = server.createObject (adodb.recordset)
  29. sqlt = select*fromsellman
  30. rst.opensqlt, Conn, 1,3
  31. rsst.addnew ()
  32. RST (CompanyName) = C2 (RSE (0))
  33. RST (CompanyInfo) = C2 (RSE (1))
  34. RST (endereço) = C2 (RSE (2))
  35. rst (tel) = c2 (rse (3)) && c2 (rse (7))
  36. RST (Fax) = C2 (RSE (4))
  37. RST (Linkman) = C2 (RSE (5))
  38. RST (página inicial) = C2 (RSE (8))
  39. RST (email) = C2 (RSE (6))
  40. rsst.Update ()
  41. rsst.close
  42. setRst = nada
  43. rse.movenext
  44. laço
  45. rse.close
  46. settrse = nada
  47. Response.write <Cript> alert ('importado com sucesso!'); location.href = 'updatefloor.asp'; </script>

De fato, basta colocar em um banco de dados de acesso, abra o arquivo do Excel, leia e escreva para acessar.

Veja o código:

  1. Dimconn
  2. DimConn2
  3. setConn = createObject (adodb.connection)
  4. Conn.OpenProvider = Microsoft.Jet.OLEDB.4.0; JetoledB: DATABASEPASSWORD =; DataSource = C: /book1.mdb
  6. setConn2 = CreateObject (adodb.connection)
  7. Conn2.OpenProvider = Microsoft.Jet.OLEDB.4.0; JetoledB: DATABASEPASSWORD =; ExtendedProperties = Excel5.0; DataSource = C: /book1.xls
  10. sql = selecione*de [Sheet1 $]
  11. setrs = Conn2.Execute (SQL)
  12. whilenotrs.eof
  13. sql = insertIntoxxx ([a], [b], [c], [d]) valores ('& fixsql (rs (0)) &', '& fixsql (rs (1)) &', '& fixsql (rs (2 )) & ',' & FixSQL (Rs (3)) & ')
  14. Conn.Execute (SQL)
  15. rs.movenext
  16. Wend
  18. Conn.Close
  19. setConn = nada
  20. Conn2.Close
  21. setConn2 = nada
  23. functionfixsql (str)
  24. Dimnewstr
  25. Newsstr = str
  26. ifisnull (newstr) Então
  27. Newsstr =
  28. outro
  29. Newsstr = Substitua (Newstr, ',' ')
  30. endif
  31. FIXSQL = Newstr
  32. Função final

Artigos Relacionados