在ASP中使用ACCESS的“存储过程”技术

ACCESS中的“存储过程”（其实应该不是严格意义上的存储过程）其实在ACCESS中也可以使用存储过程的，这样的话大家就不必再为不能够使用ACCESS自带的一些SQL语句而发愁了，因为使用ADO的命令对象，你可以很方便的使用ACCESS自己的SQL语法，这样能够很大的提高使用access数据库的网站的性能。
在ASP中可以调用access中的“存储过程”，它的执行效率要优于简单的查询语句。其实我个人认为这并不是严格意义上的存储过程的，就是有别与SQL Server，Oracle等数据库中的存储过程的。
首先介绍在access中怎么建立一个“存储过程”打开你的数据库，选择新建一个查询，关闭“显示表”对话框而不指定表或查询。
然后切换到 SQL 视图，现在使用以下格式就能够建立一个查询了。（就是一个简单的“存储过程”了，呵呵）至少现在大家可以使用许多ACCESS才带有的专门功能了，例如access的子表功能，很好使的说。
一般查询语法如下：
PARAMETERS [inid] Text; SELECT *from 。。。。。
语法很简单，可以直接看access自带的帮助文件（查关键字PARAMETERS）。

下面介绍怎么在ASP中调用access的“存储过程”
<%@　Language=VBScript %>
<%
Dim cnn1
Dim cmdNyttSvarID
Dim prmNyttSvarID
Dim rstNyttSvarID
Dim strID
Dim strCnn
Dim strSize
Dim i
Dim tmpFields
Dim strName
Dim strTable

Set cnn1 = Server.CreateObject ("ADODB.Connection")
strCnn = "DSN=agenda21"
cnn1.Open strCnn
cnn1.CursorLocation = adUseClient

Set cmdNyttSvarID = Server.CreateObject ("ADODB.Command")
’你的查询名
cmdNyttSvarID.CommandText = "nyttsvarid"
cmdNyttSvarID.CommandType = adCmdStoredProc

’给初始参数值
strID = "00001"
strSize = Len(strID)

’参数名
strName = "inid"

’建立命令对象所需参数
Set prmNyttSvarID = cmdNyttSvarID.CreateParameter(strName, adVarChar, adParamInput,strSize,strID)
cmdNyttSvarID.Parameters.Append prmNyttSvarID
prmNyttSvarID.Value = strID

Set cmdNyttSvarID.ActiveConnection = cnn1
Set rstNyttSvarID = cmdNyttSvarID.Execute
i = 1

Do While Not rstNyttSvarID.EOF
Response.Write ("<BR>")

For Each tmpField In rstNyttSvarID.Fields
Response.Write (tmpField.Name & ":" & tmpField.Value & ",")
Next

rstNyttSvarID.MoveNext
Loop

rstNyttSvarID.Close
cnn1.Close
%>