EXCEL加数据到ACCESS,代码出了什么问题?

littleboy_6235573 2008-04-15 11:14:39
问题:有些编号的数量导进了,但有些没有导进去?

EXCEL格式如下:
编号 规格 净重 毛重 数量
1 HFA01 57*33*32 23 21 200
2 HFA01 57*33*33 23 21 200
3 HFA01 57*33*34 23 21 200
4 HFA01 57*33*35 23 21 200
5 HFA01 57*33*36 23 21 200
6 HFA01 57*33*36 200

代码如下:
<%
'将Excel中的数据导入到Access中,前提是在Access中的表已经建好。
dim conn
dim conn2
dim db,i,count,daiti
i=0
count=0
db="/Databass/DataShop.mdb"
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="& Server.MapPath("1.xls")


sql = "SELECT * FROM [1$]"
set rs = conn2.execute(sql)
if not (rs.eof and rs.bof) then
while not rs.eof
if IsNumeric(trim(rs(2)))=true then
jingmaozhong = trim(rs(2))&"/"&trim(rs(3))&" KGS"
else
jingmaozhong = ""
end if
sql = "Update Product set Content = '装数/PCS"&Chr(32)&fixsql(rs(4))& "<br>规格/CBM"&chr(32)&fixsql(RS(1))&"<br>净毛重"&chr(32)&fixsql(jingmaozhong)&"' where Product_ID = '"&fixsql(rs(0))&"'"
conn.execute(sql)
i=i+1
rs.movenext
wend
end if

conn.close
set conn = nothing
conn2.close
set conn2 = nothing
response.write i

function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
%>

...全文
15 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-15 11:14
社区公告
暂无公告