请高手分析(SQL SERVER数据导入EXCEL中)

[wubaiyong]

<%
dim startime
dim conn
dim connstr
dim endtime
dim db,pass_word,User_ID,Data_Source

db="jacs"
Pass_word="yongw"
User_ID="sa"
Data_Source="JACKSON\JACKSON"
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"
conn.Open connstr
set rs=conn.execute ("select * from admin")
do while not rs.eof

teacher=rs("teacher")

Set conn1 = Server.CreateObject("ADODB.Connection")
drive="DBQ="+server.mappath("itat.xls")+";DefaultDir=;DRIVER={Microsoft excel Driver (*.xls)};"
conn1.Open drive

conn1.execute ("insert into sheet1 (a) values ('"&teacher&"')") '这一句为什么报错,sheet1为工作表,这样写法对吗?

rs.movenext
loop
rs.close
set rs=nothing
conn1.close
set conn1=nothing
Conn.close
Set conn = Nothing
%>

[hahu]

打开excel读取数据的时候用的是sheet1$
你试一试
conn1.execute ("insert into sheet1$ (a) values ('"&teacher&"')")

[Reker熊]

http://www.csdn.net/develop/Read_Article.asp?Id=14952

vb导excel提速法,asp類似,自己修改一下吧'

[hahu]

或者这样
conn1.execute ("insert into [sheet1$] (a) values ('"&teacher&"')")

[wubaiyong]

上面的方法用了还是不能解决问题,请各位高手再指点,上面的方法用了不是报insert 语句错误,就是报操作必须使用一个可更新的查询错误,下面再把代码贴出来,请各位高手再想想办法:

[blues-star]

DTS或许可以哦。