回复 2楼 yms123
我用的是如下代码：
<%
Dim excConn,Coon
Dim excStrConn,strConn
Dim excrs,rs
Dim excSql
Set excconn=Server.CreateObject("ADODB.Connection")
Set excrs = Server.CreateObject("ADODB.Recordset")
excStrConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="&Server.MapPath("database/sbfhs.xls")
excconn.Open excStrConn
excSql="select * from [sbfhs$]" '查询excel语句
excrs.Open excSql,excconn,2,2
set rs=server.createObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="provider=microsoft.jet.oledb.4.0; data source="&Server.MapPath("database/yjglxt.mdb")
conn.Open StrConn
sql="select * from clfhs" '修改
rs.open sql,conn,1,3
do while Not excrs.EOF
rs.addnew
for i=0 to excrs.Fields.Count-1
rs(i)=excrs(i)
next
rs.update
excrs.MoveNext
Loop
rs.close
set rs1=nothing
excrs.close
set excrs=nothing
excConn.close
set excConn=nothing
conn.close
set conn=nothing
response.write" 数据导入成功！"
response.end
%>
请yms123版主帮我看看代码有没有问题。
，请教各位高手，我用了一组单选按钮来选择要将相应的excel表导入到access库中的相应表中，当access库中的各表中数据为空时，各excel表都能够成功导入，但一旦access库中的个别表中有数据后，再导入excel表时，就不提示导入成功了，库中的相应表中也没有被导入数据。
