Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

ASP implementiert den Datenimport in Excel in die Datenbank

Autor：Eve Cole Aktualisierungszeit：2025-03-17 07:00:03

Dieser Artikel fasst die Methoden der Verwendung von ASP zum Importieren von Daten aus Excel in die Datenbank zusammen.

ASP implementiert den Datenimport in Excel in die Datenbank

  1. <%Antwort.CodePage = 65001%>
  2. <%Response.charset = utf-8%>
  3. <%
  4. Wenjian = Request.Form (SELECT)
  6. 'Holen Sie sich die Dateierweiterung
  7. ext = FileExec (Wenjian)
  8. 'Richter Dateierweiterung
  9. IFEXT <> xlSthen
  10. response.write (<Script> alert ('Der Dateityp ist falsch, bitte überprüfen Sie!'); window.location.href = 'index.html'; </script>)
  11. Antwort.end ()
  12. Endif
  14. Dimobjconn, objrs
  15. Dimstrcinn, Strsql
  17. setObjconn = server.createObject (adodb.Connection)
  18. setObjrs = server.createObject (adodb.recordset)
  20. excelfile = server.mappath (Wenjian)
  21. 'Für Excel2007
  22. strconn = provider = microsoft.ace.oledb.12.0; DataSource = & Excelfile &; & ExtendedProperties = Excel8.0;
  23. objconn.openstronn
  25. STRSQL = SELECT*aus [Sheet1 $]
  27. objrs.openstrsql, objconn, 1,1
  28. objrs.movefirst
  30. %> <!-#includeFile = conn.asp-> <%
  31. 'Schleife alle Datensätze in Excel
  32. whilenotobjrs.eof
  34. setrs = server.createObject (adodb.recordset)
  35. 'Abfrageanweisung
  36. SQL_S = SELECT*FromCeshiWhereelName = '& Objrs (0) &' andold = '& Objrs (1) &' undSex = '& Objrs (2) &' und guojia = '& objrs (3) &' undqq = '& Objrs (4) &' '' '' '' ''
  37. rs.opensql_s, conn, 1,1
  38. „Geben Sie die doppelten Daten nicht ein
  39. ifrs.eofthen
  40. 'Anweisung einfügen
  41. '**** Der erste Artikel in Excel wird nicht eingegeben ****
  42. SQL = InsertIntoCeshi (Lname, Old, Sex, Guojia, QQ) Werte ('& Objrs (0) &', '& Objrs (1) &', '& Objrs (2) &', '& Objrs (3) &', '& Objrs (3) & ',' & Objrs (4) & ')
  43. 'Insertion ausführen
  44. Conn.Execute (SQL)
  45. Endif
  46. objrs.Movenext
  47. rs.close
  48. setrs = nichts
  49. Wend
  51. 'Es ist Zeit, wieder zu schließen
  52. conn.close
  53. setConn = nichts
  54. objrs.close
  55. objconn.close
  56. setObjrs = nichts
  57. setObjconn = nichts
  59. response.write (<Script> alert ('erfolgreich importieren'); window.location.href = 'index.html'; </script>)
  60. Antwort.end ()
  62. FunktionsFileexec (Dateiname)
  63. FileExec = Mid (Dateiname, Instrument (Dateiname,.)+1, Len (Dateiname) -instr (Dateiname ,.)))
  64. Endfunktion
  65. %>

Teilen Sie eine weitere vereinfachte Version des Codes

  1. Wenjian = Request.Form (Boden)
  2. Fileext = Mid (Wenjian, Instrrev (Wenjian,.)+1)
  3. IFLCase (FileEXT) <> xlSthen
  4. response.write <Script> alert ('Das Dateiformat ist falsch. Bitte laden Sie die Excel -Datei hoch'); window.location.href = 'updatefloor.asp'; </script>
  5. Antwort.end
  6. Endif
  7. setConne = server.createObject (adodb.Connection)
  8. connstre = provider = microsoft.jet.oledb.4.0; dataSource = & server.mappath (& wenjian &) &; extendedProperties = 'excel8.0; hdr = yes; imex = 1';
  9. conne.openconnstre
  10. Sqle = Select*aus [Sheet1 $]
  11. SetRse = server.createObject (adodb.recordset)
  12. rse.opensqle, conne, 1,1
  13. 'verifizieren
  14. Hang = 2
  15. dowhilenottrse.eof
  16. 'Der Name kann nicht leer sein
  17. iftrim (rse (0)) <> Dann
  18. anders
  19. Mess = Der Name der & Hang & Zeile ist leer, bitte überprüfen Sie!
  20. response.write <Script> alert ('& mess &'). window.location.href = 'updatefloor.asp' </script>
  21. Antwort.end ()
  22. Endif
  23. RSE.Movenext
  24. hängen = hängen+1
  25. Schleife
  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 (Tel) = C2 (RSE (3)) && C2 (RSE (7))
  36. RST (Fax) = C2 (RSE (4))
  37. RST (LinkMan) = C2 (RSE (5))
  38. RST (Homepage) = C2 (RSE (8))
  39. RST (E -Mail) = C2 (RSE (6))
  40. rst.update ()
  41. RSST.CLOSE
  42. setrst = nichts
  43. RSE.Movenext
  44. Schleife
  45. rse.close
  46. settrse = nichts
  47. response.write <Script> alert ('erfolgreich importiert!'); location.href = 'updatefloor.asp'; </script>

Tatsächlich öffnen Sie es einfach wie eine Zugriffsdatenbank, öffnen Sie die Excel -Datei, lesen und schreiben Sie sie, um sie auf den SQL -Server zu schreiben, und ändern Sie den Schreibprozess und es wird sein.

Schauen Sie sich den Code an:

  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 = SELECT*von [Sheet1 $]
  11. setrs = conn2.execute (SQL)
  12. whilenotrs.eof
  13. SQL = InsertOxxx ([A], [B], [C], [D]) Werte ('& 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 = nichts
  20. conn2.close
  21. setConn2 = nichts
  23. functionFixSQL (STR)
  24. Dimnewstr
  25. Newsstr = str
  26. Ifisnull (Newstr) dann
  27. Newsstr =
  28. anders
  29. Newsstr = Ersetzen (Newstr, ',' ')
  30. Endif
  31. FixSQL = NewStr
  32. Endfunktion

Ähnliche Artikel