Question

asp如何运行Access的删除、修改和添加查询

我在Access中新建了一个sql语句为：delete from 表名 where a=1的查询，我想在asp中执行这个查询，那该如何操作？
不是建在表里的，是建在查询里的。
如果可以就能实现类似简单的mssql存储过程的作用

直接在asp里执行的方法我会的，只是我想知道在查询的办法行不行？

Answer 1

ASP执行ACCESS中的"存储过程"(查询)
将查询名称作为SQL语句运行就行了,不过ACCESS中的查询不像SQLSERVER中的存储过程那样可以传参.

例:
假设你的查询保存为"mySelect"
在ASP中:
rs.Open "mySelect",conn,1,1

----- 以上是补充回答 ---------------

Dim db,Connstr,conn
db = "数据库文件存放地址"
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open Connstr

conn.Execute("delete from 表名 where a=1")

Answer 2

在asp里先连接数据库,然后写要弄的sql，执行一下就可以了

set rs=server.CreateObject("adodb.recordset")
sql=
rs.open sql,conn,1,1
if rs.EOF or rs.BOF then
response.write"当前没有内容"
else

如上，sql=后加你的操作

Answer 3

不知道你具体做做什么，我把我做的所以用到的全都列出来了

'查询
set Rs=server.CreateObject("adodb.recordset")
sql="select * from LawData"
Rs.open sql,conn,1,1
Response.Write (Rs("fw_zxsj")) '显示数据
Rs.Close
Set Rs=Nothing
'添加
set Rs=server.CreateObject("adodb.recordset")
sql="select * from LawData"
Rs.open sql,conn,1,3
Rs.addnew
Rs("字段1")=值1
Rs("字段2")=值2
Rs("字段3")=值3
Rs.update
Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！信息发布成功"");"
Response.Write"window.navigate('1.asp');" '完后转到哪个页面
Response.Write"</script>"
Rs.Close
Set Rs=Nothing
或
conn.execute ("insert into 表(字段1,字段2,..)values('值1','值2',..)" )
str="<script language=JavaScript>"
str=str&"alert(""恭喜！信息发布成功"");"
str=str&"window.location='AdminInfo.asp?ld="&request("ld")&"'" '完后转到哪个页面
str=str&"</script>"
Response.Write(str)

'修改
set Rs=server.CreateObject("adodb.recordset")
sql="select * from LawData"
Rs.open sql,conn,1,3
Rs("字段1")=值1
Rs("字段2")=值2
Rs("字段3")=值3
Rs.update
Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！信息发布成功"");"
Response.Write"window.navigate('house.asp?add=qz');" '完后转到哪个页面
Response.Write"</script>"
Rs.Close
Set Rs=Nothing
或
conn.execute ("Update LawData Set 字段名1='值1',字段名2='值2' where ArticleNo="&id )
str="<script language=JavaScript>"
str=str&"alert(""恭喜！修改成功"");"
str=str&"window.location='AdminInfo.asp?ld="&request("ld")&"'" '完后转到哪个页面
str=str&"</script>"
Response.Write(str)

'删除
conn.execute ("delete from LawData where ArticleNo="&id )
str="<script language=JavaScript>"
str=str&"alert(""恭喜！删除成功"");"
str=str&"window.location='AdminInfo.asp?ld="&request("ld")&"'" '完后转到哪个页面
str=str&"</script>"
Response.Write(str)