ASP+ACCESS 删除数据库记录问题! - ASP技术论坛

编程论坛 → WEB开发 → 『 ASP技术论坛』 → ASP+ACCESS 删除数据库记录问题!

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

只看楼主

riospark

等　级：新手上路
帖　子：18
专家分：2
注　册：2008-10-14

楼主

问题点数：0 回复次数：15

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

2008-11-26 16:58

sunfishy

等　级：论坛游侠
威　望：5
帖　子：311
专家分：163
注　册：2007-6-29

第 2 楼

得分:0

SQL="Select * From infor"

得加上条件.

.cn

2008-11-26 17:16

riospark

等　级：新手上路
帖　子：18
专家分：2
注　册：2008-10-14

第 3 楼

得分:0

<%

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

2008-11-26 17:25

sunfishy

等　级：论坛游侠
威　望：5
帖　子：311
专家分：163
注　册：2007-6-29

第 4 楼

得分:0

是的.

.cn

2008-11-26 17:28

riospark

等　级：新手上路
帖　子：18
专家分：2
注　册：2008-10-14

第 5 楼

得分:0

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

2008-11-26 17:30

sunfishy

等　级：论坛游侠
威　望：5
帖　子：311
专家分：163
注　册：2007-6-29

第 6 楼

得分:0

userName=Request.QueryString("txtUser")

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

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

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

.cn

2008-11-26 17:34

sunfishy

等　级：论坛游侠
威　望：5
帖　子：311
专家分：163
注　册：2007-6-29

第 7 楼

得分:0

<%

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

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

%>

.cn

2008-11-26 17:43

riospark

等　级：新手上路
帖　子：18
专家分：2
注　册：2008-10-14

第 8 楼

得分:0

还是不行呀...

2008-12-10 12:29

hmhz

等　级：贵宾
威　望：30
帖　子：1890
专家分：503
注　册：2006-12-17

第 9 楼

得分:0

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

[编程论坛] ASP超级群：49158383 敲门暗号：ASP编程
龍艺博客 http://www.

2008-12-10 12:43

riospark

等　级：新手上路
帖　子：18
专家分：2
注　册：2008-10-14

第 10 楼

得分:0

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)

2008-12-10 13:04

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-246408-1-1.html