تلخص هذه المقالة طرق استخدام ASP لاستيراد البيانات من Excel إلى قاعدة البيانات.
يقوم ASP بتنفيذ استيراد البيانات في Excel إلى قاعدة البيانات
- <٪ استجابة. codepage = 65001 ٪>
- <٪ استجابة. Charset = UTF-8 ٪>
- <٪
- wenjian = request.form (حدد)
- احصل على ملحق الملف
- ext = fileexec (Wenjian)
- "القاضي ملحق الملف
- ifext <> xlsthen
- Response.write (<script> ALERT ('نوع الملف غير صحيح ، يرجى التحقق!') ؛ window.location.href = 'index.html' ؛ </script>)
- استجابة.
- Endif
- Dimobjconn ، objrs
- Dimstrconn ، Strsql
- setObjConn = server.createBject (adodb.connection)
- setObjrs = server.createBject (adodb.recordset)
- Excelfile = server.mappath (Wenjian)
- 'ل Excel2007
- strconn = provider = microsoft.ace.oledb.12.0 ؛ dataSource = & Excelfile & ؛ & ExtendedProperties = excel8.0 ؛
- objconn.openstrconn
- strsql = حدد*من [sheet1 $]
- objrs.openstrsql ، objconn ، 1،1
- objrs.movefirst
- ٪> <!-#includefile = conn.asp-> <٪
- حلقة جميع السجلات في Excel
- whilenotobjrs.eof
- setRs = server.createBject (adodb.recordset)
- بيان الاستعلام
- sql_s = select*fromCeshiwereName = '& objrs (0) &' Andold = '& objrs (1) &' andsex = '& objrs (2)
- Rs.Opensql_S ، Conn ، 1،1
- لا تدخل البيانات المكررة
- ifrs.eofthen
- "إدراج بيان
- '**** لن يتم إدخال العنصر الأول في Excel ****
- sql = insertintoceshi (lname ، old ، sex ، guojia ، qq) القيم ('& objrs (0) &' ، '& objrs (1) &' ، '& objrs (2) &' ، '& objrs (3) &' ، '& objrs (3) & '،' & objrs (4) & ')
- تنفيذ الإدراج
- conn.execute (SQL)
- Endif
- objrs.movenext
- Rs.close
- setRs = لا شيء
- ويند
- حان الوقت للإغلاق مرة أخرى
- conn.close
- setConn = لا شيء
- objrs.close
- objconn.close
- setObjrs = لا شيء
- setObjConn = لا شيء
- Response.write (<script> ALERT ('import bantaving') ؛ window.location.href = 'index.html' ؛ </script>)
- استجابة.
- FunctionFileexec (اسم الملف)
- fileexec = mid (filename ، instr (filename ،.)+1 ، len (filename) -instr (filename ،)))
- الوظيفية
- ٪>
مشاركة نسخة مبسطة أخرى من الرمز
- wenjian = request.form (floor)
- filext = mid (wenjian ، instrev (wenjian ،.)+1)
- iflcase (filext) <> xlsthen
- Response.write <Script> ALERT ('تنسيق الملف غير صحيح ، يرجى تحميل ملف excel') ؛ window.location.href = 'updatefloor.asp' ؛ </script>
- استجابة
- Endif
- setConne = server.createObject (ADODB.Connection)
- connstre = provider = microsoft.jet.oledb.4.0 ؛ datasource = & server.mappath (& wenjian &)
- conne.openconnstre
- sqle = حدد*من [sheet1 $]
- setrse = server.createBject (adodb.recordset)
- RSE.Opensqle ، Conne ، 1،1
- 'يؤكد
- شنق = 2
- dowhilenottrse.eof
- لا يمكن أن يكون الاسم فارغًا
- Iftrim (RSE (0)) <> ثم
- آخر
- الفوضى = اسم & Hang & Line فارغ ، يرجى التحقق!
- Response.write <Script> Alert ('& mess &'). window.location.href = 'updatefloor.asp' </script>
- استجابة.
- Endif
- RSE.Movenext
- شنق = شنق+1
- حلقة
- rse.movefirst
- dowhilenottrse.eof
- setRst = server.createBject (adodb.recordset)
- SQLT = SELECT*FROMSELLMAN
- RST.Opensqlt ، Conn ، 1،3
- rsst.addnew ()
- RST (CompanyName) = C2 (RSE (0))
- RST (CompanyInfo) = C2 (RSE (1))
- RST (العنوان) = C2 (RSE (2))
- RST (Tel) = C2 (RSE (3)) && C2 (RSE (7))
- RST (الفاكس) = C2 (RSE (4))
- RST (Linkman) = C2 (RSE (5))
- RST (الصفحة الرئيسية) = C2 (RSE (8))
- RST (البريد الإلكتروني) = C2 (RSE (6))
- rsst.update ()
- rsst.close
- setRst = لا شيء
- RSE.Movenext
- حلقة
- RSE.Close
- setTrse = لا شيء
- Response.write <Script> ALERT ('استيراد بنجاح!') ؛ location.href = 'UpdateFloor.asp' ؛ </script>
في الواقع ، ببساطة مثل قاعدة بيانات الوصول ، افتح ملف Excel ، وقراءته واكتبه للوصول.
انظر إلى الكود:
- 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*من [sheet1 $]
- setRs = conn2.execute (SQL)
- whilenotrs.eof
- SQL = insertintoxxx ([A] ، [B] ، [C] ، [D]) ('& fixsql (rs (0)) &' ، '& fixsql (rs (1)) &' ، '& fixql (rs (2 )) و "و" & FixSql (Rs (3)) و ")
- conn.execute (SQL)
- Rs.Movenext
- ويند
- conn.close
- setConn = لا شيء
- conn2.close
- setConn2 = لا شيء
- FunctionFixSql (STR)
- Dimnewstr
- newsstr = str
- Ifisnull (NewStr) ثم
- newsstr =
- آخر
- NewsStr = استبدال (Newstr ، '،' ')
- Endif
- FixSql = NewsTr
- الوظيفية