请问如何用asp实现将Excel文件导入到access数据库中( 急! 急!急!) 如何把EXCEL表导入到access数据库
\u5982\u4f55\u7528asp\u5b9e\u73b0\u5c06Excel\u6587\u4ef6\u5bfc\u5165\u5230access\u6570\u636e\u5e93\u4e2d\uff1f\u6c42\u7b54\u6848'\u5199\u5165\u6570\u636e\u5e93.
oConn.Execute(Insert into users(userid,password)Values('
& rsRead.Fields(userid)&',' &rsRead.Fields(password) & ') )
rsRead.MoveNextloop%\u6570\u636e\u5e93data.mdb\u8868usersid,uesrid,password
Excel\u6587\u4ef6data.xls\u6570\u636euserid passwordwang w521zhange z254hong h112'================!!!!
ASP\u8bfb\u53d6EXCEL\u6ce8\u4e8b\u9879!!!!======================'i)\u5c06Excel97\u6216Excel2000\u751f\u6210\u7684XLS\u6587\u4ef6\uff08
book\uff09\u770b\u6210\u4e00\u4e2a\u6570\u636e\u5e93\uff0c\u5176\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5de5\u4f5c\u8868(sheet)
\u770b\u6210\u6570\u636e\u5e93\u8868
'ii)ADO\u5047\u8bbeExcel\u4e2d\u7684\u7b2c\u4e00\u884c\u4e3a\u5b57\u6bb5\u540d.
\u6240\u4ee5\u4f60\u5b9a\u4e49\u7684\u8303\u56f4\u4e2d\u5fc5\u987b\u8981\u5305\u62ec\u7b2c\u4e00\u884c\u7684\u5185\u5bb9
'iii)Excel\u4e2d\u7684\u884c\u6807\u9898\uff08\u5373\u5b57\u6bb5\u540d\uff09\u4e0d\u80fd\u591f\u5305\u542b\u6570\u5b57. Excel\u7684\u9a71\u52a8\u5728\u9047\u5230\u8fd9\u79cd\u95ee\u9898\u65f6\u5c31\u4f1a\u51fa\u9519\u7684\u3002
\u6750\u6599/\u5de5\u5177\uff1aExcel2003
1\u3001\u9996\u5148\u542f\u52a8access\uff0c\u6267\u884c\u65b0\u5efa-\u7a7a\u6570\u636e\u5e93\u547d\u4ee4\uff0c\u8f93\u5165\u540d\u79f0\u4fdd\u5b58\u5728\u4e00\u4e2a\u5408\u9002\u7684\u4f4d\u7f6e\u4e0a\u3002
2\u3001\u5728\u6570\u636e\u5e93\u5bf9\u8bdd\u6846\u4e2d\u70b9\u51fb\u65b0\u5efa\u547d\u4ee4\uff0c\u8c03\u51fa\u65b0\u5efa\u8868\u5bf9\u8bdd\u6846\uff0c\u9009\u62e9\u5bfc\u5165\u8868\u9009\u9879\uff0c\u70b9\u51fb\u786e\u5b9a\u6309\u94ae\u3002
3\u3001\u5728\u5bfc\u5165\u5bf9\u8bdd\u6846\u4e2d\u627e\u5230\u9700\u8981\u5bfc\u5165\u7684\u6570\u636e\u8868\u683c\uff0c\u9009\u4e2d\u540e\u70b9\u51fb\u5bfc\u5165\u6309\u94ae\uff0c\u51fa\u73b0\u5bfc\u5165\u6570\u636e\u8868\u5411\u5bfc\u5bf9\u8bdd\u6846\u3002
4\u3001\u63a5\u7740\u6839\u636e\u5411\u5bfc\u63d0\u793a\u70b9\u51fb\u4e0b\u4e00\u6b65\uff0c\u5728\u201c\u8bf7\u9009\u62e9\u6570\u636e\u7684\u4fdd\u5b58\u4f4d\u7f6e\u201d\u4e2d\u52fe\u9009\u65b0\u8868\u4e2d\u3002
5\u3001\u5728\u5b57\u6bb5\u9009\u9879\u4e2d\u91c7\u7528\u9ed8\u8ba4\u5373\u53ef\uff0c\u70b9\u51fb\u4e0b\u4e00\u6b65\uff0c\u63a5\u7740\u9009\u62e9\u8bbe\u7f6e\u4e3b\u952e\u4e3a\u201c\u5b57\u6bb52\u201d\u3002
6\u3001\u76f4\u5230\u51fa\u73b0\u5b8c\u6210\u6309\u94ae\uff0c\u5e76\u70b9\u51fb\u5b8c\u6210\u540e\uff0c\u5728\u6570\u636e\u5e93\u4e2d\u5c31\u4f1a\u51fa\u73b0sheet1\u8868\uff0c\u53cc\u51fb\u6253\u5f00\u5373\u53ef\uff0c\u63a5\u7740\u53ef\u4ee5\u8fdb\u884c\u5fc5\u8981\u7684\u5904\u7406\u4e86\u3002
demo.asp
<%
Dim cn,oConn,connstr
'打开XLS.
Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source=" & Server.MapPath("data.xls") & ";" & _
"Extended Properties=Excel 8.0;"
cn.Open
'打开MDB.
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set oConn=server.CreateObject("ADODB.CONNECTION")
oConn.open connstr
'读取数据.
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select * from [Sheet1$]",cn,1,1
do until rsRead.EOF
'写入数据库.
oConn.Execute("Insert into users(userid,password)Values('"& rsRead.Fields("userid")&"','" &rsRead.Fields("password") & "')" )
rsRead.MoveNext
loop
%>
数据库data.mdb
表users
id,uesrid,password
Excel文件data.xls
数据
userid password
wang w521
zhange z254
hong h112
'================!!!!ASP读取EXCEL注事项!!!!======================
'i)将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表
'ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容
'iii)Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”
'iiii)如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致
'====================================================
其他:
http://bbs.dvbbs.net/dispbbs.asp?boardid=1&id=1124887
Excel 和 Access 都是微软的Office系列软件啊，不用 asp 就可以导入的，在 Access 的菜单栏中单击文件->获取外部数据->导入，就可以导入Excel文件了
把excel的数据读到rs记录集中，然后用sql语句一条条插入到access中。
绛旓細鏂规硶涓锛氬鍏ュ悗锛屽啀瀵瑰簱涓暟鎹帓搴忥紝鏌ラ噸锛屽垹闄ら噸澶嶆暟鎹銆傛柟娉曚簩锛氭槸鍦ㄦ暟鎹簱澶栵紝鏌ラ噸锛屽垹闄ら噸澶嶆暟鎹紝鍦ㄥ鍏ュ鐞嗗ソ鐨勬墍鏈夋暟鎹備互涓婁緵妤间富鍙傝冦
绛旓細1.濡備綍鍦缃戦〉涓婃樉绀篧ord鍜孍xcel a.鍙互浣跨敤office缁勪欢鎴朼spose灏唚ord 鍜宔xcel 杞崲涓簆df 鐒跺悗鍦ㄧ綉椤典笂鎵撳紑pdf,浣嗘槸鏁堟灉涓嶆槸寰堝ソ.姣斿璇磂xcel 澶氫釜宸ヤ綔钖勪笉鏄寜exce 鏍煎紡鏄剧ず鍑烘潵,瀹藉害澶у皬,涓嶅ソ鎺у埗(?).b.鍙互浣跨敤office缁勪欢鎴朼spose灏嗘枃妗ｈ浆鎹负html,浣嗘槸杞崲涓篽tml 浼氫骇鐢熼澶栫殑xml鍜孋SS鍜屽浘鐗囨枃浠.(褰...
绛旓細Add鏂规硶:鍒涘缓鏂板伐浣滆〃骞跺皢鍏舵坊鍔犲埌宸ヤ綔绨夸腑銆係elect鏂规硶:閫夋嫨宸ヤ綔琛ㄣ侰opy鏂规硶:澶嶅埗宸ヤ綔琛ㄣ侻ove鏂规硶:灏嗘寚瀹氬伐浣滆〃绉诲埌宸ヤ綔绨跨殑鍙︿竴浣嶇疆銆侱elete鏂规硶:鍒犻櫎鎸囧畾宸ヤ綔琛ㄣ侾rintOut鏂规硶:鎵撳嵃宸ヤ綔琛ㄣ傜ず渚:灏咰鐩樺伐浣滅翱涓殑宸ヤ綔琛ㄥ鍒跺埌A鐩樺伐浣滅翱涓:Dim VBExcel As Excel.ApplicationSet VBExcel=CreateObject("Excel.Applicat...
绛旓細浣跨敤conn.excecute鏄负浜嗗噺灏戜竴浜涚▼搴忚鍙ワ紝灏辨槸鍦ㄨ繛鎺ヤ腑鐩存帴鎿嶄綔鏌愪釜鏁版嵁琛紝鑰宺s.open鑲畾鏄墦寮杩炴帴涓煇涓暟鎹〃锛岀劧鍚庡琛ㄨ繘琛屾搷浣滐紝鍘熺悊涓鏍风殑锛屽氨鏄氳繃rs澶氫簡涓涓楠よ屽凡
绛旓細涓鑸繖绉嶈娆炬槸瑕佸垎椤垫樉绀虹殑銆傚垎椤碉紝鍙互鐢ㄥ師鐢熺殑ASP鍒嗛〉鏂规硶锛欰bsolutePage 渚嬪锛<% set rs=server.createobject("adodb.recordset") exce="sql" 'sql 鏌ヨ璇彞 rs.open exce,conn,1,1 %> 鐒跺悗鏄垎椤靛睘鎬х殑璁剧疆 <% rs.PageSize=3 鈥樿缃〉鐮 pagecount=rs.PageCount '鑾峰彇鎬婚〉鐮 page=int(...
绛旓細asp.net鎬庝箞鑳界敤杩欏彞<%#DataBinder.Eval(Container.DataItem,"id")%>?鍋囧access鏁版嵁搴撳悕瀛楁槸a.accdb,閲岄潰鏈変竴涓〃news,鍚瓧娈礽d銆傝皝鑳芥妸鏁版嵁搴撶殑杩炴帴鍜岃皟鐢ㄥ叧绯诲憡璇夋垜,瀹屾暣浠ｇ爜婕... asp.net鎬庝箞鑳界敤杩欏彞<%#DataBinder.Eval(Container.DataItem,"id")%>?鍋囧access鏁版嵁搴撳悕瀛楁槸a.accdb,閲岄潰鏈変竴涓〃news,...
绛旓細鎴戜滑鍙ソ鏂板缓涓涓猇iewResult瀹炰緥锛屽苟灏嗗叾瑙嗗浘鍚嶈涓篍rror锛屽皢涓婁笅鏂囦腑鐨凞ataView浼犺繃鍘汇傛渶鍚庨偅琛宖ilterContext.ExcepitonHandled = true;寰堥噸瑕侊紝杩欒鐨勬剰鎬濇槸鍛婅瘔绯荤粺锛屽紓甯稿凡缁忓鐞嗭紝涓嶈鍐嶆澶勭悊浜嗐備娇鐢ㄦ嫤鎴櫒鍥虹劧寰堢埥锛屼絾鏄娉ㄦ剰涓や釜鍦版柟锛1.Action鎷︽埅鍣ㄧ殑浣滅敤鑼冨洿闄や簡鐢ˋction鎷︽埅鍣ㄦ爣璁颁竴涓狝ction鏂规硶...
绛旓細1銆侀鍏堟妸杩炴帴鏁版嵁搴撳瓧绗︿覆閰嶇疆鍒皐eb.config鏂囦欢锛屽锛<connectionStrings> <add name="ConnectionString" connectionString="Data Source=127.0.0.1;Initial Catalog=xueitdb;Integrated Security=False;User=sa;Pwd=test;" providerName="SqlServer"/> </connectionStrings> 2銆佸垱寤轰竴涓枃浠秈ndex.aspx锛...
绛旓細璇烽棶loginid鍚庣殑""涓濡備綍鍐欒〃鍚嶇殑鏍煎紡锛熺瓟锛氳繖涓〃鍚嶆槸浣犺嚜宸辫捣鐨勶紝闅忎究璧凤紝濡傗済g鈥濓紝鈥淴CE鈥濈瓑绛 DataSet ds = db.GetDataSet("select a.name,a.code,a.zzdd_chn,a.bank,a.zh,a.gssh from wldw a,ht b where a.code=b.ghdwdm and b.hth='"+loginid+"'" ,"XCExceXCExce"...
绛旓細鍙互浣跨敤 DateAdd 鍑芥暟瀵规棩鏈熷姞涓婃垨鍑忓幓鎸囧畾鐨勬椂闂撮棿闅斻備緥濡,鍙互鐢 DateAdd 鏉ヨ绠楄窛浠婂ぉ涓轰笁鍗佸ぉ鐨勬棩鏈;鎴栬呰绠楄窛鐜板湪涓 45 鍒嗛挓鐨勬椂闂淬備负浜嗗 date 鍔犱笂鈥滄棩鈥,鍙互浣跨敤鈥滀竴骞寸殑鏃ユ暟鈥 (鈥測鈥),鈥滄棩鈥 (鈥漝鈥) 鎴栤滀竴鍛ㄧ殑鏃ユ暟鈥 (鈥漺鈥)銆侱ateAdd 鍑芥暟灏嗕笉杩斿洖鏈夋晥鏃ユ湡銆傚湪浠ヤ笅瀹炰緥涓皢 1 鏈31 ...
