新微赢技术网

标题: ASP+ACCESS 删除数据库记录问题! [打印本页]

作者: ╰☆kiss寵壞 时间: 2010-1-11 02:56
标题: ASP+ACCESS 删除数据库记录问题!
del.asp 代码如下:
---------------------------------------------------------------
<%

Dim connstr

connstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data.mdb")
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open connstr

Set rs=server.Createobject("Adodb.recordset")

SQL="Select * From infor"
rs.open sql,conn,1,3

rs.delete
rs.update

rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing

%>

<html>
<center>
      <body>
         <a href="list.asp">返回</a>
      </body>
</center>
<html>
-------------------------------------------------------------
问题是这样可以删除 ACCESS 表 infor 中的记录, 但是它只能按照从上到下的顺序删除.
从上到下就是按照写入数据库的时间顺序删除.
我的想法是选择删除哪个就得删除哪个, 但不知道该怎么做.
哪位高手会的帮下忙了.

作者: (のkisδ≒雪 时间: 2010-1-11 02:56
还是不行呀...

作者: `|楛纞♂ぺ﹖ 时间: 2010-1-11 02:56
SQL="Select * From infor"

得加上条件.

作者: 林枫 时间: 2010-1-11 02:56
<%

Dim connstr
Dim userName

connstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data.mdb")
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open connstr

Set rs=Server.Createobject("Adodb.Recordset")

userName=Request.QueryString("txtUser")'得到客户端传值.并赋于变量userName

SQL="Select * From infor where username='"& userName&"' " '搜索记录集
rs.open sql,conn,1,3
if not rs.eof then
rs.delete '执行删除
rs.update '可省略
else
response.write "数据库中没有你想要删除的数据"
end if
'方法二:用conn.execute
'sql="delete From infor where username='"& userName&"' "
'if no
'if not rs.eof then
'conn.execute(sql)
'else
'response.write "数据库中没有你想要删除的数据"
'end if
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing

//---------------

%>

作者: 欧阳风 时间: 2010-1-11 02:56
userName=Request.QueryString("txtUser")

SQL="Select * From infor where username='"& txtUser &"' "

你这里有错
应该是:
userName=Request.QueryString("txtUser")

SQL="Select * From infor where username='"& username &"' "

作者: 深水海狗 时间: 2010-1-11 02:56
是的.

作者: 绝不放弃 时间: 2010-1-11 02:56
但是运行后是同样的效果.. 呵呵.. 真郁闷啊..

作者: け星☆辰ご 时间: 2010-1-11 02:56
<%

Dim connstr
Dim userName

connstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data.mdb")
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open connstr

Set rs=Server.Createobject("Adodb.Recordset")

userName=Request.QueryString("txtUser")

SQL="Select * From infor where username='"& txtUser &"' "
rs.open sql,conn,1,3

rs.delete
rs.update

rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing

%>
是这样吗???
刚开始做ASP.. 还不太明白.
Dim userName
userName=request.QueryString("txtUser")
这段代码是不是返回值, 然后根据这个返回的值在数据库里进行选择删除啊???

[[it] 本帖最后由 riospark 于 2008-11-26 17:28 编辑 [/it]]

作者: 击水之石 时间: 2010-1-11 02:56
conn.execute "delete infor where username='"& userName&"'"

作者: 梦aiq逍遥 时间: 2010-1-11 02:56
del.asp源码 .. 斑竹帮忙看看撒..
<%

Dim connstr
Dim id

connstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data.mdb")
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open connstr

Set rs=Server.Createobject("Adodb.Recordset")

id=Request.QueryString("txtID")

SQL="Delete From infor where id='"& id &"' "

conn.Execute(SQL)
rs.update

rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing

%>

<html>
<center>
      <body>
         <a href="list.asp">返回</a>
      </body>
</center>
</html>

错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/del.asp, 第 22 行

第 22 行就是这个..conn.Execute(SQL)

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)