关于“Microsoft OLE DB Provider for ODBC Drivers '80040e14'"的问题再请教
各位前辈,你们好!我在编写程序的时候再次遇到Microsoft OLE DB Provider for ODBC Drivers '80040e14'的问题,弄了好一阵子也不知如何解决,请各位前辈多多帮忙,指点一下迷津。谢谢!
以下为程序代码:
<%
Dim name1,password1
name1=Trim(request.Form("name"))
password1=Trim(request.Form("password"))
If name1<>"" And password1<>"" Then
Dim rs,strsql,id0
Set rs=server.CreateObject("adodb.recordset")
strsql="select *from tong_xue where name='" &name1&"'and password='"&password1&"'"
rs.open strsql,db,1
%>
<table border="1" width="600">
<caption align=center> 删除记录</caption>
<tr><th>姓名</th> <th>性别</th> <th>年龄</th> <th>电话</th> <th>邮箱</th> <th>地址</th> <th>删除</th>
<%
Do While Not rs.bof And Not rs.eof
session("id")=rs("id")
%>
<tr><td><%=rs("name")%></td> <td><%=rs("sex")%></td> <td><%=rs("age")%></td> <td><%=rs("tel")%></td> <td><%=rs("email")%></td> <td><%=rs("address")%</td>
<td> <a href="del.asp?id0=<%=session("ID")%>">删除</a> </td>
<%
rs.movenext
loop
Dim id1,strsql0
id1=request.querystring("id0")
strsql0="delete from tong_xue where ID=" & id1
db.execute(strsql0)
else
response.write"找不到相关记录,请重新输入"
End If
%>
</table>
页面上出现
Microsoft OLE DB Provider for ODBC Drivers '80040e14'
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'ID=' 中。
其中错误指向:db.execute(strsql0)
我的数据库ID字段为自动编号类型