ASP将Excel导入数据库的方法
生活随笔
收集整理的這篇文章主要介紹了
ASP将Excel导入数据库的方法
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
示例代碼如下（經過驗證，可以正確運行）：
<% dim FileName FileName="Excel.xls" '取得文件名，來自項目經理的指定，路徑固定在某個虛擬路徑中 Dim conn, rs set conn=CreateObject("ADODB.connection") conn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _ "DriverId=790;" & _ "Dbq=" & Server.mappath(""&FileName&"") & ";" & _ "DefaultDir=G:/"set rs=createobject("ADODB.recordset") rs.Open "Select * From [Sheet1$]",conn, 2, 2 if rs.eof thenresponse.write "Excel表中無紀錄" elseset connDB = Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("Excel.mdb")'RESPONSE.WRITE DBpathconnDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathSet RsDB = Server.CreateObject("ADODB.Recordset")SQLDB="Select * from Excel"RsDB.open SQLDB,connDB,1,3do while not rs.eof '利用循環讀出數據RsDB.addnewRsDB("filename")=rs(0)RsDB("id1")=rs(1)RsDB("id2")=rs(2)RsDB("id3")=rs(3)RsDB("id4")=rs(4)RsDB.updaters.movenextloop'response.redirect FileName end if RsDB.movefirst if RsDB.eof thenresponse.write "數據庫中無記錄" elsedo while not RsDB.EOFresponse.write RsDB("filename")&" "response.write RsDB("id1")&" "response.write RsDB("id2")&" "response.write RsDB("id3")&" "response.write RsDB("id4")&" "response.write "<br>"RsDB.movenextloop end if RSDB.close set RSDB = nothing rs.close set rs=nothing conn.close set conn=nothing %>總結
以上是生活随笔為你收集整理的ASP将Excel导入数据库的方法的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Java征途：行者的地图
- 下一篇： linux cmake编译源码,linu