ASP+ACCESS 删除数据库记录问题! - ASP

╰☆kiss寵壞

电梯直达

1^#

发表于 2010-1-11 02:56:11 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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 中的记录, 但是它只能按照从上到下的顺序删除.
从上到下就是按照写入数据库的时间顺序删除.
我的想法是选择删除哪个就得删除哪个, 但不知道该怎么做.
哪位高手会的帮下忙了.

收藏0

使用道具举报

(のkisδ≒雪

2^#

发表于 2010-1-11 02:56:15 | 只看该作者

还是不行呀...

回复支持反对

使用道具举报

`|楛纞♂ぺ﹖

3^#

发表于 2010-1-11 02:56:18 | 只看该作者

SQL="Select * From infor"

得加上条件.

回复支持反对

使用道具举报

林枫

4^#

发表于 2010-1-11 02:56:22 | 只看该作者

<%

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

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

%>

回复支持反对

使用道具举报

欧阳风

5^#

发表于 2010-1-11 02:56:26 | 只看该作者

userName=Request.QueryString("txtUser")

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

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

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

回复支持反对

使用道具举报

深水海狗

6^#

发表于 2010-1-11 02:56:30 | 只看该作者

是的.

回复支持反对

使用道具举报

绝不放弃

7^#

发表于 2010-1-11 02:56:34 | 只看该作者

但是运行后是同样的效果.. 呵呵.. 真郁闷啊..

回复支持反对

使用道具举报

け星☆辰ご

8^#

发表于 2010-1-11 02:56:38 | 只看该作者

<%

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]]

回复支持反对

使用道具举报

击水之石

9^#

发表于 2010-1-11 02:56:42 | 只看该作者

conn.execute "delete infor where username='"& userName&"'"

回复支持反对

使用道具举报

梦aiq逍遥

10^#

发表于 2010-1-11 02:56:46 | 只看该作者

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)

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册