1706端口

<%
'
'这是类文件，用来保存有关文件上传的类
'
'----------------------------------------------------------------------------------
Class jjUpload
'定义几个私有变量，在类内部都可以使用
Private formData,formSize,bncrlf,divider

'下面是初始化类的方法
Private Sub Class_Initialize()
formsize=RequestTotalBytes '获取传上来的二进制数据的大小
formdata=RequestBinaryRead(formsize) '获取传上来的二进制数据
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1) '分隔符
End Sub
'下面的函数用来返回上传文件对象
Public Function GetFiles(FormName)
Dim objGetFiles
Set objGetFiles=New MyGetFiles
Call objGetFilesGetProperty(formData,FormName)
Set GetFiles=objGetFiles
End Function
'下面的函数用来返回上传表单对象
Public Function GetForms(FormName)
Dim objGetForms
Set objGetForms=New MyGetForms
Call objGetFormsGetValue(formdata,FormName)
Set GetForms=objGetForms
End Function
End Class
'----------------------------------------------------------------------------------
Class MyGetFiles
'定义几个私有变量
Dim theFilePath,theFileName,theExt,theSize,theMIME,theformData
'定义几个只读属性，用来返回有关信息
Public Property Get FilePath
FilePath=theFilePath
End Property
Public Property Get FileName
FileName=theFileName
End Property
Public Property Get Ext
Ext=theExt
End Property
Public Property Get Size
Size=theSize
End Property
Public Property Get MIME
MIME=theMIME
End Property
'下面是初始化类的方法
Private Sub Class_Initialize()
End Sub
'下面是返回各个类的属性
Public Sub GetProperty(formData,FormName)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(formData,Divider & bncrlf & strTemp)
Dim arrayTemp()
If intFlag>0 Then
'重定义数组长度
Redim arrayTemp(4)
'首先返回文件在客户端的路径
dataStart=intFlag+LenB(Divider & bncrlf & strTemp) '定位到第1个字符
dataend=InstrB(datastart,formdata,bncrlf)-2 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
theFilePath=BinaryToString(MidB(formdata,datastart,datalen)) '返回文件路径
'返回文件的名称，其实只要从客户端路径中分析出文件名称即可
theFileName=Mid(theFilePath,InstrRev(theFilePath,"\")+1)
'返回文件的扩展名，其实只要从文件名称中分析出文件扩展名即可
theExt=Mid(theFileName,InstrRev(theFileName,"")+1)
'下面获取文件的MIME类型
temp=dataend '记住当前位置
datastart=temp+18 '定位到第1个字符
dataend=InstrB(datastart,formdata,bncrlf & bncrlf)-1 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
theMIME=BinaryToString(MidB(formdata,datastart,datalen)) '返回MIME类型
'下面获取文件大小
temp=dataend
datastart=dataend+5 '定位到第1个字符
dataend=InstrB(datastart,formdata,divider)-3 '定位到最后1个字符
theSize=dataend-datastart+1 '返回文件大小
End If
'将formData保存在本类的私有变量中，以备使用
theformData=formData
End Sub
'----------------------------------------------------------------------------------
'下面定义一个保存文件的方法
Public Function SaveToFile(FormName,SaveFilePath,OverWriteFlag)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(theformData,CInt(InstrB(theformdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,filepath,filename
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(theformData,Divider & bncrlf & strTemp)
Dim arrayTemp()
If intFlag>0 Then
'因为后面要用到文件的名字，所以首先返回文件的名字
dataStart=intFlag+LenB(Divider & bncrlf & strTemp) '定位到第1个字符
dataend=InstrB(datastart,theformData,bncrlf)-2 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
filepath=BinaryToString(MidB(theformData,datastart,datalen)) '返回文件路径
filename=Mid(filepath,InstrRev(filepath,"\")+1)
'从当前位置找到两个回车换行符，也就是文件内容开头的地方
dataStart=InstrB(intFlag,theformData,bncrlf & bncrlf)+4 '定位到文件内容所在的第1个字符
dataEnd=InstrB(datastart,theformData,divider)-3 '定位到文件内容的最后一个字符
dataLen=dataend-datastart+1 '返回文件内容的长度
If dataLen<=0 Then
SaveToFile=3
Exit Function
End If

'下面建立了两个Stream对象，objStream1将整个theformData读取到对象中，然后将其中的文件内容部分复制到
'objStream2对象中，然后再利用SaveToFile方法保存到指定文件夹下。
Dim objStream1
Set objStream1=ServerCreateObject("AdodbStream")
objStream1Type = 1 '设置二进制方式
objStream1Open '打开对象
objStream1Write theformData '写出文件内容到对象中
Dim objStream2
Set objStream2=ServerCreateObject("AdodbStream")
objStream2Type = 1 '设置二进制方式
objStream2Open '打开对象
objStream1Position=datastart-1 '设定起始位置，这里索引从0开始，所以减1
objStream1CopyTo objStream2,dataLen '写出文件内容到对象中
'如果允许覆盖，才覆盖，否则给出提示信息，提示客户更改名字
If OverWriteFlag=True Then
objStream2SaveToFile SaveFilePath & "\" & filename,2 '保存文件,2表示可以覆盖
Else
Set fso=ServerCreateObject("ScriptingFileSystemObject")
IF fsoFileExists(SaveFilePath & "\" & filename)=True Then
SaveToFile=2 '返回函数值，1表示已经存在同名文件
Exit Function
Else
objStream2SaveToFile SaveFilePath & "\" & filename,1 '1表示不可以覆盖
End If
End IF

'关闭对象
objStream1Close
Set objStream1=Nothing
objStream2Close
Set objStream2=Nothing
SaveToFile=1 '下面返回函数值，0表示正常
Else
SaveToFile=0 '下面返回函数值，2表示找不到，发生错误
End If
End Function
'下面定义保存文件到数据库的方法
Public Function SaveToDataBase(FormName,strConn,strSql)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(theformData,CInt(InstrB(theformdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,fileimage
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(theformData,Divider & bncrlf & strTemp)
Dim arrayTemp()
If intFlag>0 Then
'从当前位置找到两个回车换行符，也就是文件内容开头的地方
dataStart=InstrB(intFlag,theformData,bncrlf & bncrlf)+4 '定位到文件内容所在的第1个字符
dataEnd=InstrB(datastart,theformData,divider)-3 '定位到文件内容的最后一个字符
dataLen=dataend-datastart+1 '返回文件内容的长度
fileimage=MidB(theformData,datastart,datalen) '返回二进制文件内容
If dataLen<=0 Then
SaveToFile=3 '3表示根本没有选择文件
Exit Function
End If
'！！！因为当文件大小为奇数字符时，在往数据库中保存时有一些小问题，会少一个字节，所以这里先给它加一个二进制空格
If dataLen Mod 2 = 1 Then
fileimage=fileimage & Chrb(32)
datalen=datalen+1
End If

'下面将文件保存到数据库中
Dim db,cmd,rs
Set db=ServerCreateObject("ADODBConnection")
dbOpen strConn
Set cmd= ServerCreateObject("ADODBCommand")
cmdActiveConnection=db
cmdCommandText=strSql
'下面建立一个参数对象prm，并将该对象加入到参数集合中,204表示是二进制值
Dim prm
Set prm=cmdCreateParameter("fileimage",204,1,datalen,fileimage)
cmdParametersAppend prm
set rs=cmdExecute
SaveToDatabase=1 '返回函数值，0表示正常
Else
SaveToDatabase=0 '返回函数值，2表示错误
End If
End Function
'下面是注销该类的方法
Private Sub Class_Terminate()
'theformData=Nothing
End Sub
End Class
'----------------------------------------------------------------------------------
Class MyGetForms
'定义1个私有变量
Dim theValue
'定义几个只读属性，用来返回有关信息
Public Property Get Value
Value=theValue
End Property
'下面是初始化类的方法
Private Sub Class_Initialize()
End Sub
'该方法给属性赋值
Public Sub GetValue(formData,FormName)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，下面会首先定义几个变量,strTemp为一个字符串变量，临时保存二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用，为了记住当前位置。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """")
'在整个二进制字符串中查找下面这一个二进制字符串
intFlag=InstrB(formData,Divider & bncrlf & strTemp & bncrlf & bncrlf)
'如果找到了，就依次返回有关信息,如果找不到，就返回一个错误信息
If intFlag>0 Then
datastart=intFlag+LenB(Divider & bncrlf & strTemp & bncrlf & bncrlf) '定位到第1个字符
dataend=InstrB(datastart,formdata,divider)-3 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
theValue=BinaryToString(MidB(formdata,datastart,datalen)) '返回出表单内容信息
Else
theValue=""
End If
End Sub
End Class
'------------------------------------------------------------------------------------------------
'该函数可以将二进制字符串转换成文本字符串
Function BinaryToString(thedata)
'变量strNow表示正在处理的字符，strTemp用来保存已经处理完毕的字符串
'变量flag是一个标志，False表示前一个字符不是中文，True表示前一个字符是中文
Dim strNow,strTemp,flag,I
flag=False
'利用循环依次转换每一个字符
For I=1 To LenB(thedata)
'因为一个中文字符包括两个字节，如果flag=True，表示前一个字符是中文，所以
'要跳过该字符，需要令标志flag=False。否则表示不是中文，就需要将其转换
If flag=True Then
flag=False
Else
'取出当前二进制字符
strNow=MidB(thedata,I,1)
'如果AscB(strNow)>127，表示这是一个中文字符，AscB(tsrNow)<127，表示不是中文字符
If AscB(strNow) > 127 Then
'如果是中文，首先需要把当前字符和下一个字符调换位置，然后用AscW
'返回对应的ASCII码。随之，用Chr函数返回该ASCII码对应的文本
'最后，还要把中文标志设为True
strTemp=strTemp & Chr(AscW(MidB(thedata,I+1,1) & strNow))
flag=True
Else
'这表示是英文，AscB返回对应的ASCII码，Chr返回对应的文本字符
strTemp=strTemp & Chr(AscB(strNow))
End If
End If
Next
BinaryToString=strTemp '返回函数值
End Function
'该函数可以将文本字符串转换成二进制字符串
Function StringToBinary(thedata)
'变量strNow表示正在处理的字符，strTemp用来保存已经处理完毕的字符串
'变量intNow用来表示当前字符的ASCII码
'变量ascLow和ascHigh用来保存中文字符的第1个和第2个字节
Dim strNow,intNow,strTemp,I,binLow,binHigh
'利用循环依次转换每一个字符
For I=1 To Len(thedata)
'取出当前文本字符，并返回ASCII码
strNow=Mid(thedata,I,1)
intNow=Asc(strNow)
'如果Asc(strNow)<0，则表示是中文字符，则需要加上65535返回它的无符号数值
If intNow<0 Then
intNow=intNow+65535
End If
'如果加上65535后ASCII码大于255，则表示是中文，中文是用两个字节表示的，必须分开处理。当然，如果是英文字符就简单了
If intNow>255 Then
'这里binLow返回低字节，binHigh返回高字节其中Hex函数返回一个字符串，表示一个数字的十六进制数
binLow="&H" & Left(Hex(Asc(strNow)),2)
binHigh="&H" & Right(Hex(Asc(strNow)),2)
strTemp=strTemp & ChrB(binLow) & ChrB(binHigh)
Else
'这表示是英文，Asc函数返回ASCII码，ChrB返回对应的二进制字符。
strTemp=strTemp & ChrB(Asc(strNow))
End If
Next
StringToBinary=strTemp '返回函数值
End Function
%>

在ASP中使用存储过程
什么是存储过程（存储过程位于数据库服务器中，是一个SQL语句的集合，可包含一个或多个SQL语句）、怎样创建存储过程不属于本讲座的内容，本讲座主要是举例说明在ASP中如何调用存储过程。
使用存储过程的好处是大大的，存储过程比在ASP脚本中运行SQL命令效率更高；可以提高整体性能并减轻网络负载（减少了在网络服务器和数据服务器之间的交互）；可以优化ASP代码和增强代码灵活性等等。
（一） 在存储过程中使用输入参数
本例中使用的存储过程为SQL Server70自带的"byroyalty"，里面的一条SQL语句非常简单，无非是多了一个CREATE PROCEDURE byroyalty，并且有一个输入参数为@percentage：
CREATE PROCEDURE byroyalty @percentage int
AS
select au_id from titleauthor
where titleauthorroyaltyper = @percentage
例wuf71asp
<% @LANGUAGE = VBScript %>
<!--#include file="AdoSQL7asp"-->
<!--#include file="adovbsinc"-->
<% ' wuf71asp
Dim cmdTest, prmTest, rsTest
Set cmdTest = ServerCreateObject("ADODBCommand")
cmdTestCommandText = "byroyalty" '存储过程名
'设命令类型为 存储过程
cmdTestCommandType = adCmdStoredProc
'创建 Parameter 对象
Set prmTest = ServerCreateObject("ADODBParameter")
'Type属性对应wuf70asp中的第二个参数
prmTestType = adInteger '4 字节的带符号整型
'Direction属性对应wuf70asp中的第三个参数
prmTestDirection = adParamInput
'Value属性对应wuf70asp中的第五个参数
prmTestValue = 30
cmdTestParametersAppend prmTest
Set cmdTestActiveConnection = Cnn
'需要返回一个记录集，故使用Set rsTest = cmdTestExecute
Set rsTest = cmdTestExecute
While Not rsTestEOF
ResponseWrite rsTest(0) & "<br>"
rsTestMoveNext
Wend
Cnnclose
Set rsTest = Nothing : Set prmTest = Nothing
Set cmdTest = Nothing: Set Cnn = Nothing
%>
以下为我收集的通用分页存储过程
>分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

我只知道Parameter对象要与Command对象一起使用，但不清楚它的具体含义是做什么用的，还有我弄不明白Parameter对象与一个存储过程之间是怎样传递参数值的，例如：

Set Mypara = MyCommCreateParameter("@UserID",3,1,4,UserID)

MyCommParametersAppend MyPara

这一句中它是如何把页面上输入的UserID这个变量的值传递到存储过程的@UserID中再进行查询等 *** 作的？
好苦恼啊～～希望大家可以帮帮忙，谢谢！！^-^

解析:

VB实现SQL Server 2000存储过程调用

存储过程是存储在服务器上的一组预编译的Transact-SQL语句，是一种封装重复任务 *** 作的方法，支持用户提供的变量，具有强大的编程功能。它类似于DOS系统中的BAT文件。在BAT文件中，可以包含一组经常执行的命令，这组命令通过BAT文件的执行而被执行。同样的道理，可以把要完成某项任务的许多Transact-SQL语句写在一起，组织成存储过程的形式，通过执行该存储过程就可以完成这项任务。存储过程与BAT文件又有差别，即存储过程已经进行了预编译。

1、创建存储过程的方法

在Transact-SQL语言中，创建存储过程可以使用CREATE PROCEDURE语句，其语法形式如下：

CREATE PROC[EDURE] procedure_name[;number]

[{@parameter data_type}[VARYING][=default][OUTPUT]

]],…n]

[WITH{RECOMPILE|ENCRYPTION|RECOMPILE,ENCRYPTION}]

[FOR REPLICATION]

AS sql_statement[…n]

在上面的CREATE PROCEDURE语句中，方括号"[ ]"中的内容是可选的，花括号"{}"中的内容是必须出现的，不能省略，[，…n]表示前面的参数样式，可以重复出现。竖线"|"表示两边的选项可以任选一个。

下面分析该语句中各种选项的含义。

CREATE PROCEDURE是关键字，也可以写成CREATE PROC。

procedure_name是该存储过程的名称，名称可以是任何符合命名规则的标示符。名称后的[；number]参数表示可以定义一系列的存储过程名称，这些存储过程的数量由number指定。

参数名称可以使用@parameter data_type来指定。在Transact-SQL语言中，用户定义的参数名称前面加"@"符号，这些数据类型是Transact-SQL语言允许的各种数据类型，包括系统提供的数据类型和用户定义的数据类型。

当参数类型为cursor时，必须使用关键字VARYING和OUTPUT。VARYING表示结果集可以是一个输出参数，其内容是动态的。该关键字只能在使用游标作为数据类型时使用。关键字OUTPUT表示这是一个输出参数，可以把存储过程执行的结果信息返回应用程序。

default用于指定参数的默认值。

RECOMPILE选项表示重新编译该存储过程。该选项只是在需要的时候才使用，例如经常需要改变数据库模式时。

ENCRYPTION选项用来加密创建存储过程的文本，防止他人查看。

选项FOR REPLICATION主要用于复制过程中。注意，该选项不能和选项RECOMPILE同时使用。

AS是一个关键字，表示其后的内容是存储过程的语句。参数sql-statement[…n]表示在一个存储过程中可以包含多个Transact-SQL语句。

2、存储过程的优点

在频繁访问数据库的系统中，开发者都乐于使用存储过程，这与存储过程的下列优点是分不开的。

⑴ 存储过程可以与其他应用程序共享应用程序的逻辑，从而确保一致的数据访问和 *** 纵。

⑵ 存储过程提供了一种安全机制。如果用户被授予执行存储过程权限，那么即使该用户没有访问在执行该存储过程中所参考的表或视图的权限，该用户也可以完全执行该存储过程而不受到影响。因此，可以创建存储过程来完成所有的增加、删除等 *** 作，并且可以通过编程控制上述 *** 作中对信息的访问权限。

⑶ 存储过程执行速度快，便于提高系统的性能。由于存储过程在第一次执行之后，其执行规划就驻存在过程高速缓冲存储区中，在以后的 *** 作中，只需从过程高速缓冲存储区中调用编译好的二进制形式存储过程来执行。

⑷ 使用存储过程可以减少网络传输时间。如果有一千条Transact-SQL语句的命令，一条一条地通过网络在客户机和服务器之间传送，那么这种传输所耗费的时间将很长。但是，如果把这一千条Transact-SQL语句的命令写成一条较为复杂的存储过程命令，这时在客户机和服务器之间网络传输所需的时间就会大大减少。

SQL Server 2000数据库存储过程的调用

VB作为当今应用极为普遍的数据库客户端开发工具之一，对客户端应用程序调用服务器端存储过程提供了强大的支持。特别是随着VB60的推出，VB客户端应用程序可以方便地利用ADO的对象和 来实现对数据库存储过程的调用。

在笔者编写的科技档案管理系统中，就是采用VB作为开发平台，采用SQL Server2000数据库管理数据，在这个科技档案管理系统中有海量的数据，并且对数据库有频繁的访问，利用存储过程访问数据库节省了执行时间，大大提高了系统的性能。

1、ADO简介

ADO控件（也称为ADO Data控件）与VB固有的Data控件相似。使用ADO Data控件，可以利用Microsoft ActiveX Data Objects（ADO）快速建立数据库绑定控件和数据提供者之间的连接。

ADO Data控件可以实现以下功能：

·连接一个本地数据库或远程数据库。

·打开一个指定的数据库表，或定义一个基于结构化查询语言（SQL）的查询、存储过程或该数据库中的表的视图的记录 。

·将数据字段的数值传递给数据绑定控件，可以在这些控件中显示或更改这些数值。

·添加新的记录，或根据更改显示在绑定的控件中的数据来更新一个数据库。

2、数据库的连接

数据库的连接可通过ADO控件实现，为此，必须在工程部件中选择Microsoft ADO Data Control 60 (OLEDB)，然后在窗体中添加ADO控件。利用ADO连接数据库有两种方法，具体如下。

1) 通过ADODC属性页实现连接

在ADODC属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；最后测试连接，连接成功后，按确定按钮，返回到属性页对话框，可获得连接字符串，如下例：

Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;Initial Catalog=Science_File;Data Source=Data_Server

其中sa是用户名；Science_File是数据库名；Data_Server是数据库名。

通过下列语句，即可连接到指定的数据库：

dim odbcstr as String, adocon As New ADODBConnection

odbcstr = "Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;Initial Catalog=Science_File;Data Source=Data_Server"

adoconOpen odbcstr '连接到数据库

2) 直接使用连接语句实现

连接数据库的语句如下：

Dim ado as ADODC

adoConnectionString = "Provider=SQLOLEDB1;Password=" & User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Initial Catalog=" & Data_Name & ";Data Source=" & server_name

其中User-Pwd是用户密码；User_Name是用户名；Data_Name是数据库名；server_name是服务器名。

连接数据库成功后就可以调用存储过程执行 *** 作。

3、存储过程的调用

假设有一个名为doc_ProcName存储过程，该存储过程有一个输入参数，一个输出参数。

1) 直接传递参数调用存储过程

直接传递参数方法主要通过以下几个步骤来实现：

（1） 通过ADODB的Connection对象打开与数据源的连接；

（2） 通过ActiveConnection指定Command对象当前所属的Connection对象；

（3） 通过CommandText属性设置Command对象的源，即要调用的存储过程；

（4） 通过CommandType属性确定Command对象的源类型，如果源类型为存储过程CommandType即为adCmdStoredProc；

（5） 通过Command对象的Parameters 向所调用的存储过程传递参数，其中对象Parameters（0）为执行存储过程的返回值，返回值为0则执行存储过程成功；

（6） 通过Eexecute方法执行在 CommandText 属性中指定的存储过程。

以存储过程doc_ProcName为例，关键代码如下：

Dim strS As String '定义一变量

Dim adoconn As New ADODBConnection 'Connection 对象代表了打开与数据源的连接。

Dim adom As New ADODBCommand 'Command 对象定义了将对数据源执行的指定命令。

Dim ReturnValue As Integer '调用存储过程的返回值

adoconnConnectionString = Adodc1ConnectionString 'Adodc1为窗体中的ADO控件，并已成功连接数据库

adoconnOpen

Set adomActiveConnection = adoconn '指示指定的 Command对象当前所属的 Connection对象。

adomCommandText = "doc_ProcName" '设置Command对象源。

adomCommandType = adCmdStoredProc '通知提供者CommandText属性有什么，它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。

adomParameters(1) = "1"

adomParameters(2) = "OutputParameters" 'OutputParameters可以为任意的字符串或数字

adomExecute

ReturnValue = adomParameters(0) '存储过程的返回值，返回0则成功执行。

strS = adomParameters(2) '把存储过程的输出参数的值赋给变量strS

2) 追加参数法调用存储过程

追加参数通过CreateParameter方法，用来指定属性创建新的Parameter对象。具体语法如下：

Set parameter = mandCreateParameter (Name, Type, Direction, Size, Value)

·Name 可选，字符串，代表 Parameter 对象名称。

·Type 可选，长整型值，指定 Parameter 对象数据类型。

·Direction 可选，长整型值，指定 Parameter 对象类型。

·Size 可选，长整型值，指定参数值最大长度（以字符或字节数为单位）。

·Value 可选，变体型，指定 Parameter 对象值。

这种方法与上面一种方法的分别主要在于，追加参数的方法在向存储过程传递参数时，这种方法首先通过CreateParameter方法为存储过程创建参数，然后通过Append方法将创建的参数追加到Parameters 中去。

仍然以存储过程doc_ProcName的调用为例，关键代码如下：

Dim mRst As ADODBRecordset 'Recordset 对象表示的是来自基本表或命令执行结果的记录全集。

Dim prm As ADODBParameter 'Parameter 对象代表参数或与基于参数化查询或存储过程的Command 对象相关联的参数。

adoconnConnectionString = Adodc1ConnectionString

adoconnOpen

Set adomActiveConnection = adoconn

adomCommandText = "doc_ProcName"

adomCommandType = adCmdStoredProc

Set prm = adomCreateParameter("parameter1", adTinyInt, adParamInput, , "1")

adomParametersAppend prm

Set prm = adomCreateParameter("parameter2", adInteger, adParamOutput)

adomParametersAppend prm

Set mRst = adomExecute

ReturnValue = adomParameters(0)

---