บทความนี้สรุปวิธีการใช้ ASP เพื่อนำเข้าข้อมูลจาก Excel ไปยังฐานข้อมูล
ASP ใช้ข้อมูลนำเข้าใน Excel ไปยังฐานข้อมูล
- <%response.codePage = 65001%>
- <%response.charset = utf-8%>
- -
- wenjian = request.form (เลือก)
- 'รับนามสกุลไฟล์
- ext = fileexec (Wenjian)
- 'ผู้พิพากษานามสกุลไฟล์
- ifext <> xlsthen
- Response.write (<script> การแจ้งเตือน ('ประเภทไฟล์ไม่ถูกต้องโปรดตรวจสอบ!'); window.location.href = 'index.html'; </script>)
- Response.end ()
- endif
- dimobjconn, objrs
- dimstrconn, strsql
- setObjConn = server.createObject (adodb.connection)
- setObjrs = server.createObject (adodb.recordset)
- excellile = server.mappath (Wenjian)
- 'สำหรับ excel2007
- strConn = ผู้ให้บริการ = microsoft.ace.oledb.12.0; dataSource = & excellile &; & extendedProperties = excel8.0;
- objconn.openstronn
- strsql = select*จาก [sheet1 $]
- objrs.openstrsql, objconn, 1,1
- objrs.movefirst
- %> <!-#include = conn.asp-> <%
- 'วนบันทึกทั้งหมดใน Excel
- whilenotobjrs.eof
- setRs = server.createObject (adodb.recordset)
- คำสั่งค้นหา
- sql_s = select*fromceshiwhereelname = '& objrs (0) &' Andold = '& objrs (1) &' Andsex = '& objrs (2) &' Andguojia = '& objrs (3) &' และ '& objrs (4) &' '
- Rs.opensql_s, Conn, 1,1
- 'อย่าป้อนข้อมูลที่ซ้ำกัน
- ifrs.eofthen
- 'คำสั่งแทรก
- '**** รายการแรกใน Excel จะไม่ถูกป้อน ****
- sql = insertintoceshi (lname, เก่า, เพศ, 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 ('นำเข้าสำเร็จ'); window.location.href = 'index.html'; </script>)
- Response.end ()
- FunctionFileExec (ชื่อไฟล์)
- fileexec = mid (ชื่อไฟล์, instr (ชื่อไฟล์,.)+1, len (ชื่อไฟล์) -instr (ชื่อไฟล์,.))))
- endfunction
- -
แบ่งปันรหัสเวอร์ชันที่เรียบง่ายอื่น
- wenjian = request.form (ชั้น)
- fileext = mid (Wenjian, Instrrev (Wenjian,.)+1)
- iflcase (fileext) <> xlsthen
- Response.Write <Script> การแจ้งเตือน ('รูปแบบไฟล์ไม่ถูกต้องโปรดอัปโหลดไฟล์ excel'); window.location.href = 'updatefloor.asp'; </script>
- Response.end
- endif
- setConne = server.createObject (adodb.connection)
- connstre = ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource = & server.mappath (& wenjian &) &; extendedProperties = 'excel8.0; hdr = ใช่; imex = 1';
- conne.openconnstre
- sqle = select*จาก [sheet1 $]
- setRse = server.createObject (adodb.recordset)
- RSE.OPENSQLE, Conne, 1,1
- 'ตรวจสอบ
- Hang = 2
- dowhilenottrse.eof
- 'ชื่อไม่ว่าง
- iftrim (rse (0)) <> จากนั้น
- อื่น
- Mess = ชื่อของ & Hang & Line ว่างเปล่าโปรดตรวจสอบ!
- Response.write <Script> Alert ('& mess &'). window.location.href = 'updateFloor.asp' </script>
- Response.end ()
- endif
- rse.movenext
- Hang = Hang+1
- วง
- rse.movefirst
- dowhilenottrse.eof
- setrst = server.createObject (adodb.recordset)
- sqlt = select*fromsellman
- rst.opensqlt, Conn, 1,3
- rsst.addnew ()
- RST (ชื่อ บริษัท ) = 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> การแจ้งเตือน ('นำเข้าสำเร็จ!'); 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)) &', '& fixsql (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
- endfunction