操作符丢失 错误

[cqnuzjj]

<%
set con=server.createobject("adodb.connection")
constr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("rss.mdb")
con.open constr
sql1="select * from feed "
set rs=server.createobject("adodb.recordset")
rs.open sql1,con,1,3
do while not rs.EOF
dim xmldoc,http
set http=server.createobject("microsoft.xmlhttp")
http.open "get",""&rs("f_url")&"",false
http.send
set xmldoc=server.createobject("microsoft.xmldom")
xmldoc.async=false
xmldoc.validateonparse=false
xmldoc.load(http.responsexml)
set items=xmldoc.getelementsbytagname("item")
for i=0 to items.length-1
title=items(i).selectSingleNode("title").text
link=items(i).selectSingleNode("link").text
i_description=items(i).selectSingleNode("description").text
sql2="select * from item where title='"&title&"'"
set rs2=con.execute(sql2)
if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"')")
end if
next
rs.movenext
loop
con.close
set con=nothing
%>
以上代码实现的功能是:根据URL下载远程XML文件,解析后取得更新的信息并添加到数据库中.
程序报错如下:
Microsoft JET Database Engine '80040e14'

语法错误 (操作符丢失) 在查询表达式 ''

\feed.asp, line 26
求高手赐教

[Dogfish]

少了那些字段要insert。

con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs("f_sort") & "')"

[cqnuzjj]

[Quote=引用 3 楼 Anlige 的回复:]
if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"')")
end if
改
if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"'")
end if
[/Quote]
你这个不正确
直接报错
INSERT INTO 错误

[cqnuzjj]

[Quote=引用 1 楼 dogfish 的回复:]
少了那些字段要insert。

VBScript code
con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs("f_sort") & "')"
[/Quote]
没有少字段
程序虽然会报错
但是目的达到了
数据库里有数据
但这样总不完整

[一把编程的菜刀]

不完整，请检查你各个变量传值问题

[Anlige]

if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"')")
end if
改
if rs2.eof then
con.execute("insert into item values('"&title&"','"&link&"','"&i_description&"','"&rs("f_sort")&"'")
end if

[Anlige]

[Quote=引用 1 楼 dogfish 的回复:]
少了那些字段要insert。

VBScript code
con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs("f_sort") & "')"
[/Quote]

[mysite365]

con.execute "insert into item (title, link, description, sort) values('" & title & "','" & link & "','" & i_description & "','" & rs

如果添加的字符不是全部列的话，要用item（列名1，列名2，...）,如果是是全部列，你的用法应该是正确的。。。

[小逗狗]

如果你表中还有别的字段,一定要用1楼的方法!