å®å
¨æ£ç¡®çè¿ç¨ï¼æå
åå®å®éªæåççï¼
第ä¸æ¥ï¼å»ºç«å¥½ä½ çaccessæ°æ®è¡¨å¯¹åºexcelçå个å段ã
第äºæ¥ï¼aspä¸excel建ç«èç³»ï¼ä»excelä¸è¯»åæ°æ®ï¼å
·ä½ä»£ç å¦ä¸ï¼
<%
'å建æ°æ®åºè¿æ¥å¯¹è±¡
set excelconn=server.createobject("adodb.connection")
'è·åä½ çexcelæ°æ®è¡¨è·¯å¾ï¼å°excel1æ¿æ¢ä¸ºä½ çexcelæ件å
strAddr1 = Server.MapPath("excel1.xls")
'æå¼excelæ°æ®æº
excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr1
'建ç«excelè®°å½é
set excelrs=server.createobject("adodb.recordset")
'ä½ çsqlè¯å¥ï¼sheet1æ¿æ¢ä¸ºä½ ç表å
sql="select * from [Sheet1$]"
'æ§è¡sqlè¯å¥
excelrs.open sql,excelconn,1,1
%>
第ä¸æ¥ï¼å»ºç«aspä¸accessçèç³»ï¼å¾ªç¯å°ååæ°æ®éä¸çå
容填å
¥access表ä¸ï¼å
·ä½ä»£ç ï¼
<%
set accessconn=server.createobject("adodb.connection")
strAddr2 = Server.MapPath("test.mdb")
accessconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strAddr2
do while not excelrs.eof
'æ¤å¤åªåäºä¸ä¸ªå段çä¾åï¼åå®ä½ çaccessä¸è¡¨å为excel
addsql="insert into excel(num1) values('"& excelrs("num1")&"')"
excelrs.movenext
loop
%>
第åæ¥ï¼å¦ææé®é¢å¯ä»¥èç³»æï¼ç¶åå¦æææï¼è¯·å åç»æï¼è°¢è°¢ã
温馨提示:答案为网友推荐,仅供参考