国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

公司開發工資軟件，最大的問題在于數據庫的導入導出方便。導出好辦，咱輸出excel就行了，但是導入呢？想來想去，采用如下方法：[br]財務人員用excel用的比較多，對格式也比較熟悉，所以，借用這個機會，采用excel保存許多數據，然后將這個excel使用無組件上傳到服務器上，然后打開excel，將里面的數據寫入到數據庫中。[br][br]無組件今天不做討論。[br]這里我寫的是將excel中的數據讀出來，然后寫入到數據庫中[br]具體代碼：[br][br]< %[br]'===========================================[br]' 函數功能：數據批量導入[br]' 文章為作者原創，轉載請注明文章出處、保留作[br]' 者信息，謝謝支持！[br]' 原理:將excel中的數據導入到access[br]'===========================================[br][br]'連接excel數據庫[br]path="./"[br]dim xlsconn,strsource,xlbook,xlsheet,i[br]dim myconn_xsl,xlsrs,sql,objcmd [br]set xlsconn = server.createobject("adodb.connection") [br]set xlsrs = server.createobject("adodb.recordset")[br][br]filename="商品" [br]file2="商品列表" [br]source=server.mappath(path&filename&".xls")[br][br]myconn_xsl="provider=microsoft.jet.oledb.4.0;data source=" &source& ";extended properties=excel 8.0"[br]xlsconn.open myconn_xsl [br][br]sql = "select * from ["&file2&"$]"[br]xlsrs.open sql,xlsconn,1,1 [br]if xlsrs.eof then[br]else[br]i=1[br]response.write ""[br]do while not xlsrs.eof [br]goods_name=xlsrs("商品名")[br]goods_images=xlsrs("圖片")[br]cat_id=xlsrs("商品分類")[br]%>[br][br][br] [br] [br] [br][br][br]<% [br] sql="insert into goods(goods_name,goods_images,cat_id) values('"&goods_name&"','"&goods_images&"',"&cat_id&")"[br] conn.execute(sql)[br]i=i+1 [br]xlsrs.movenext[br] loop [br]response.write "

<%=goods_name%>

<%=goods_images%>

<%=cat_id%>

"[br]end if[br]xlsrs.close[br][br]response.write "共導入" & i-1 & "條記錄.
" & vbcrlf[br][br]set xlsconn=nothing [br]set objcmd=nothing[br][br]% >[br][br]這里的圖片要使用ftp上傳到指定的目錄images下面，這樣就行