æ¯çï¼è¦ä»excelä¸å¯¼å
¥æ°æ®å°accessæ°æ®åºä¸ï¼é¦å
è¦å¨æ°æ®è¡¨ä¸å»ºç«åexcel对åºçå段ï¼ç¶åï¼å»ºç«ä¸¤ä¸ªè¿æ¥ï¼ä¸ä¸ªæ¯è¿æ¥æ°æ®åºçä¸ä¸ªæ¯è¿æ¥excelç
以ä¸æ¯è¯»åexcel表æ°æ®çæ¹æ³ï¼è¿ä¸ªä¼äºï¼ä½ åè¿ä¸æ°æ®åºï¼ç¨å¾ªç¯insert into æå
¥å°±è¡äº
<%
dim conn2
set conn2=server.createobject("adodb.connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 8.0;Data Source="&Server.MapPath("kb.xls")
'ækb.xlsæ¹æä½ èªå·±çexcel表
sql = "SELECT * FROM [Sheet1$]" 'sheet1åé¢ä¸è¦å¿è®°å $
set rs=conn2.execute(sql)
do while not rs.eof
for i=0 to rs.fields.count-1
response.write(rs(i)&"---")
next
response.write "<br>"
rs.movenext
loop
rs.close
conn2.close
%>
温馨提示:答案为网友推荐,仅供参考