学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机，支持月付专业 MSSQL 数据库空间，支持月付专业 MySQL 数据库空间，支持月付
轻松建立自己的群组，招兵买马   
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

一个access问题，头痛！！

zcppeter

新手上路

Rank: 1

帖子
3 
精华
0 
性别
男 
注册时间
2004-12-24 
1# 大 中 小 发表于 2004-12-24 16:43  只看该作者

一个access问题，头痛！！

我要做一个删除数据功能，用的是Access数据库，可是现在怎么搞就是不行！！ 数据库的代码如下：

<% Dim cn,rs Dim Sql set cn=server.createobject("adodb.connection") cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("lybf.mdb") Set rs = Server.CreateObject("ADODB.RecordSet") Sql = "Delete lyb WHERE id='" & Request("id") & "'" rs.Open Sql,cn rs.open "select * from lyb",cn %>

那位高手，如果可以的话，可以下载这个压缩文件帮我看一下，谢谢，急！

附件: 您所在的用户组无法下载或查看附件

TOP

griefforyou

论坛元老

Rank: 8Rank: 8

帖子
3338 
精华
8 
威望
27  
性别
男 
注册时间
2004-4-15 
2# 大 中 小 发表于 2004-12-24 17:02  只看该作者

没下载你的文件，如果ID是数值型，改成以下代码

Sql = "Delete * from lyb WHERE id=" & Request("id")

四月天原创文学网 http://yc.4yt.net

TOP

regedit

金牌会员

Rank: 6Rank: 6

帖子
950 
精华
3 
威望
19  
性别
男 
注册时间
2004-6-8 
3# 大 中 小 发表于 2004-12-24 17:03  只看该作者

改为:Sql = "Delete from lyb WHERE id= " & Request("id") & " "

建议楼主先去看看简单的SQL语法~

[此贴子已经被作者于2004-12-24 17:04:13编辑过]

我是假的!我没脑筋,没有心肠,没有胆子,没有骨气,没剑,没钱,是个真真的大洞口.我身上空得连一块肉都没有... http://www.jqjsw.com 剧情介绍网......

TOP

迷失星际

中级会员

Rank: 3Rank: 3

帖子
358 
精华
0 
性别
男 
注册时间
2004-7-9 
4# 大 中 小 发表于 2004-12-24 17:05  只看该作者

以下是改好的code:

<html> <head> <title>删除记录实例</title> </head> <body> <% Dim cn,rs Dim Sql set cn=server.createobject("adodb.connection") cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("lybf.mdb") Set rs = Server.CreateObject("ADODB.RecordSet")

if Request("id")<>"" then Sql = "Delete * from lyb WHERE id=" & Request("id") rs.Open Sql,cn end if

rs.open "select * from lyb",cn %> <p align="center">已注册ID列表</p> <table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="90%" align=center> <tr> <td width="97">注册ID</td> <td width="97">注册密码</td> <td width="77">Email地址</td> <td width="60">操作1</td> <td width="56">操作2</td> </tr> <% Do While Not rs.Eof %> <tr> <td width="97"><%=rs(0)%>　</td> <td width="97"><%=rs(1)%>　</td> <td width="77"><%=rs(2)%>　</td> <td width="60"><a href="gl.asp?id=<% =rs("id") %>">修改</a></td> <td width="56"><a href="delf.asp?id=<% =rs("id") %>">删除</a></td> </tr> <% rs.MoveNext Loop %> </table> <p>成功删除记录！ <% rs.Close cn.Close Set rs = Nothing Set cn = Nothing %> </body> </html>

TOP

迷失星际

中级会员

Rank: 3Rank: 3

帖子
358 
精华
0 
性别
男 
注册时间
2004-7-9 
5# 大 中 小 发表于 2004-12-24 17:08  只看该作者
为什么你们现在才来，害我浪费了10点积分

[此贴子已经被作者于2004-12-24 17:09:48编辑过]

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题