在 Access 里使用查询建立 存储过程/视图, 并使用 ASP 执行 By shawl.qiu

在 Access 里使用查询建立 存储过程/视图, 并使用 ASP 执行 By shawl.qiu

摘要: 本文演示了 使用 Access查询 构造类似于 MSSQL 存储过程的功能, 并在 ASP 中操作插入数据,显示数据功能.

目录:
1. 在 Access 查询里建表, 名 tt

2. 在 Access 查询里新建查询, 内容为:...

3. 在 ASP 里使用 tt_insertParm 添加10条记录到 表tt
3.1 构造ASP ado 连接函数, fCreateCnn 与 fCloseCnn
3.2 组合使用 fCreateCnn, fCloseCnn, tt_insertParm 添加记录

4. 在 Access 查询里 创建 显示数据用的 存储过程/视图, 内容:...

5. 在 ASP 里使用 tt_selectParm 选取数据

6. 完.

shawl.qiu 
2006-08-30
  http://blog.csdn.net/btbtd

1. 在 Access 查询里建表, 名 tt
输入以下内容到查询, 并执行, 执行后就新建表 tt 了. 

1. linenum
2. create table tt
3. (
4. id autoIncrement 
5. primary key, 
6. title varchar(255),
7. content memo,
8. dateandtime date
9. )

说明: 
id 字段为自动编号, 并且为主键
title 为文本类型, 长度 255
content 为备注类型
dateandtime 为日期类型

2. 在 Access 查询里新建查询, 内容为:

1. linenum
2. parameters spTitle varchar(255),spContent varchar(255);
3. insert into tt(title, content, dateandtime)
4. values([spTitle], [spContent], now())

保存名为: tt_insertParm
作用为: 添加记录到 Access 的存储过程
注: spContent 字段里, 某某无法使用 memo 数据类型.

3. 在 ASP 里使用 tt_insertParm 添加10条记录到 表tt

3.1 构造ASP ado 连接函数, fCreateCnn 与 fCloseCnn

1. linenum
2. <%
3. function fCreateCnn(cnn)
4.     set cnn=createObject("adodb.connection")
5. end function
6.  
7. function fCloseCnn(cnn)
8.         cnn.close
9.     set cnn=nothing
10. end function
11. %>

3.2 组合使用 fCreateCnn, fCloseCnn, tt_insertParm 添加记录

1. linenum
2. <% 
3.     dim title, content
4.         title="insert title"
5.         content="insert content"
6.     dim cnn, rs
7.     dim i
8.     call fCreateCnn(cnn)
9.         cnn.open conn
10.         for i=1 to 10
11.             cnn.execute("exec tt_insertParm "&title&i&","&content&i)
12.         next
13.     call fCloseCnn(cnn)
14.     if err.number=0 then response.Write "数据已添加" else response.Write "发生错误, 数据未添加"
15. %>

4. 在 Access 查询里 创建 显示数据用的 存储过程/视图, 内容:

1. linenum
2. PARAMETERS qId Long;
3. SELECT *
4. FROM tt
5. WHERE id=iif(isNull([qId]),id,[qId])

保存名为: tt_selectParm
说明: 如果 qId 参数值为空, 则选取所有数据, 否则选取 qId 对应的行

5. 在 ASP 里使用 tt_selectParm 选取数据

1. linenum
2. <% 
3.     dim qId, fldNum, i
4.         qId = 10
5.     dim cnn, rs
6.     call fCreateCnn(cnn)
7.             cnn.open conn
8.         set rs = cnn.execute("EXEC tt_selectParm " & qId) 
9.         'set rs = cnn.execute("EXEC tt_selectParm null") 
10.             fldNum=rs.fields.count-1
11.             do until rs.eof 
12.                  for i=0 to fldNum
13.                     response.write rs(i)
14.                     response.write " "
15.                 next
16.                    response.write "<br/>"
17.                    rs.movenext 
18.             loop 
19.             rs.close
20.         set rs=nothing
21.     call fCloseCnn(cnn)
22. %>

6. 完.

附注: 还有 更新,删除数据 的 存储过程/视图 没有演示, 不过相信你如果看了以上操作, 这个应该不是问题了.