Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP implémente l'importation des données dans Excel vers la base de données

Auteur：Eve Cole Date de mise à jour：2025-03-17 07:00:03

Cet article résume les méthodes d'utilisation de l'ASP pour importer des données d'Excel dans la base de données.

ASP implémente l'importation des données dans Excel vers la base de données

  1. <% Réponse.codepage = 65001%>
  2. <% Response.Charset = UTF-8%>
  3. <%
  4. wenjian = request.form (select)
  6. 'Obtenez l'extension du fichier
  7. ext = fileExec (wenjian)
  8. 'Extension du dossier du juge
  9. ifext <> xlsthen
  10. Response.Write (<Script> alert ('Le type de fichier est incorrect, veuillez vérifier!'); window.location.href = 'index.html'; </cript>)
  11. réponse.end ()
  12. endire
  14. Dimobjconn, objrs
  15. Dimstrconn, StrSQL
  17. setObjConn = server.createObject (Adodb.Connection)
  18. setObjrs = server.createObject (adodb.recordSet)
  20. Excelfile = server.mappath (Wenjian)
  21. 'Pour Excel2007
  22. strConn = provider = Microsoft.ace.oledb.12.0; DataSource = & Exvelfile &; & ExtendProperties = Excel8.0;
  23. objconn.openstroncon
  25. strSql = select * from [sheet1 $]
  27. Objrs.OpenStrsql, Objconn, 1,1
  28. objrs.movefirst
  30. %> <! - # includeFile = Conn.asp -> <%
  31. 'Boucle tous les enregistrements dans Excel
  32. whilenotobjrs.eof
  34. setrs = server.createObject (adodb.recordSet)
  35. 'Déclaration de requête
  36. SQL_S = SELECT * FromCeshiwherelName = '& Objrs (0) &' Andold = '& Objrs (1) &' Andsex = '& Objrs (2) &' andGuojia = '& Objrs (3) &' etqq = '& Objrs (4) &' '
  37. Rs.OpenSQL_S, Conn, 1,1
  38. 'N'entrez pas les données en double
  39. ifrs.eofthen
  40. 'Insérer une déclaration
  41. '**** Le premier élément d'Excel ne sera pas entré ****
  42. sql = insertoteshi (lname, old, sexe, guojia, qq) valeurs ('& objrs (0) &', '& objrs (1) &', '& objrs (2) &', '& objrs (3) &', '& Objrs (3) & ',' & Objrs (4) & ')
  43. 'Exécuter l'insertion
  44. Conn.execute (SQL)
  45. endire
  46. objrs.movenext
  47. Rs.Close
  48. setrs = rien
  49. se promener
  51. 'Il est temps de fermer à nouveau
  52. Conn.Close
  53. setConn = rien
  54. objrs.close
  55. objconn.close
  56. setObjrs = rien
  57. setObjConn = rien
  59. Response.Write (<Script> alert ('Importer réussi'); window.location.href = 'index.html'; </cript>)
  60. réponse.end ()
  62. Functionfileexec (nom de fichier)
  63. FileExec = mid (nom de fichier, instr (nom de fichier,.) + 1, Len (nom de fichier) -instr (nom de fichier ,.)))
  64. Finition de fin
  65. %>

Partagez une autre version simplifiée du code

  1. wenjian = request.form (plancher)
  2. FileExt = Mid (Wenjian, Instrev (Wenjian,.) + 1)
  3. iflCase (fileext) <> xlsthern
  4. Response.Write <Script> alert ('Le format de fichier est incorrect, veuillez télécharger le fichier Excel'); window.location.href = 'updatefloor.asp'; </cript>
  5. réponse.
  6. endire
  7. setConne = Server.CreateObject (ADODB.Connection)
  8. ConnStre = Provider = Microsoft.Jet.oledb.4.0; DataSource = & Server.Mappath (& Wenjian &) &; ExtendProperties = 'Excel8.0; hdr = oui; imex = 1';
  9. Conne.OpenConstre
  10. Sqle = select * from [sheet1 $]
  11. SetRse = server.createObject (adodb.recordSet)
  12. RSE.OpenSQLE, Conne, 1,1
  13. 'vérifier
  14. suspendre = 2
  15. dowhilenottrse.eof
  16. 'Le nom ne peut pas être vide
  17. iftrim (RSE (0)) <> puis
  18. autre
  19. Mess = Le nom de la & Hang & Line est vide, veuillez vérifier!
  20. réponse.Write <Script> alert ('& mess &'). window.location.href = 'updatefloor.asp' </cript>
  21. réponse.end ()
  22. endire
  23. RSE.MOVENEXT
  24. hang = hang + 1
  25. boucle
  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 (adresse) = C2 (RSE (2))
  35. RST (Tél) = C2 (RSE (3)) && C2 (RSE (7))
  36. RST (fax) = C2 (RSE (4))
  37. RST (Linkman) = C2 (RSE (5))
  38. RST (page d'accueil) = C2 (RSE (8))
  39. RST (Email) = C2 (RSE (6))
  40. rsst.update ()
  41. rst.close
  42. setrst = rien
  43. RSE.MOVENEXT
  44. boucle
  45. se.close
  46. setTrse = rien
  47. Response.Write <Script> alert («Importé avec succès!

En fait, mettez-le simplement comme une base de données d'accès, ouvrez le fichier Excel, lisez-le et écrivez-le pour accéder.

Regardez le code:

  1. tabac
  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 = SELECT * FROM [Sheet1 $]
  11. setrs = conn2.execute (sql)
  12. whilenotrs.eof
  13. sql = insertintoxxx ([a], [b], [c], [d]) valeurs ('& fixesql (rs (0)) &', '& fixesql (rs (1)) &', '& fixsql (rs (2 )) & ',' & fixesql (rs (3)) & ')
  14. Conn.execute (SQL)
  15. Rs.MovEnext
  16. se promener
  18. Conn.Close
  19. setConn = rien
  20. Conn2.close
  21. setConn2 = rien
  23. functionfixsql (str)
  24. dimnewstr
  25. newsstr = str
  26. ifisnull (newstr) alors
  27. newsstr =
  28. autre
  29. newsstr = remplacer (newstr, ',' ')
  30. endire
  31. fixesql = newrt
  32. finition de fin

Articles connexes