VB调用O的RACLE存储过程.docVIP

在ADO中调用存储过程一直是一个困扰大家的问题。其实，关于ADO调用存储过程的 方法在很多书中都有讲到，标准的做法无非是按照以下步骤进行： 1、生成并初始化一个_CommandPtr对象； 2、生成调用存储过程需要的参数，这些参数都是_ParameterPtr对象； 3、按照顺序将使用_CommandPtr的Append方法为存储过程提供参数（包括输入参数 和输出参数）； 4、为_CommandPtr对象指定需要使用的ADO连接； 5、使用_CommandPtr的Execute方法调用存储过程； 6、从结果中获取返回参数的值（如果有的话）。 具体的过程在此我不详细描述，我想看看本文附带的代码就应该很明白了。 在这里我想就我使用ADO调用存储过程时的一些体会说明一下。 1、关于CreateParameter函数 该函数的原型为：CreateParameter (Name, Type, Direction, Size, Value) 其中Name是参数的名称，可以指定也可以不指定； Type是一个DataTypeEnum值，指定参数的类别，取值有adInteger（整型）、adChar（字符/字符串型）等； Direction是一个ParameterDirectionEnum值，其取值为adParamInput、adParamInputOutput、 adParamOutput、adParamReturnValue、adParamUnknown； Size是一个Long类型的值，指示该参数值以字节计算的最大长度，例如对int型，该值可以取为sizeof(int)， 对Long型，该值可以取为sizeof(long)，对字符串型，可以使用该字符串的长度； Value是一个variant类型的值，是该参数的取值。 在这里需要注意的是，Type参数、Direction参数以及Size参数一定要和存储过程定义时的参数相吻合， 例如，如果有下面一个存储过程?? CREATE? PROCEDURE SMS_Proc_Handle_All ?? (@UserID Integer, ??? @SourAddr Varchar(15), ??? @DestAddr varchar(5000), ??? @AvValue Single output, ??? @ReturnInfo varchar(100) output ?? ) 则Type参数的取值依次为adInteger、adChar、adChar、adSingle，adChar； Direction参数的取值依次为adParameterIn、adParameterIn、adParameterIn、adParameterOut、adParameterOut； 对于输入参数，Size的值可以根据实际数值来定，对于输出参数，最好是根据定义确定（上例中ReturnInfo参数的 Size值可以取为100）。 语法 Set parameter = command.CreateParameter (Name, Type, Direction, Size, Value) 返回值 返回 Parameter 对象。 参数 Name 可选。String 值，包含 Parameter 对象的名称。 Type 可选。DataTypeEnum 值，指定 Parameter 对象的数据类型。 Direction 可选。ParameterDirectionEnum 值，指定 Parameter 对象的类型。 Size 可选。Long 值，指定参数值的最大长度（以字符或字节为单位）。 Value 可选。Variant，指定 Parameter 对象的值。 说明 使用 CreateParameter 方法创建具用指定的名称、类型、方向、大小和值的新的 Parameter 对象。在参数中传送的任何值都将写入相应的 Parameter 属性。 此方法不会将 Parameter 对象自动追加到 Command 对象的 Parameters 集合。这样就可以设置附加属性，在将 Parameter 对象追加到集合时，ADO 将使这些附加属性的值生效。 如果在 Type 参数中指定变长数据类型，在将其追加到 Parameters 集合之前必须传送 Size 参数或者设置 Parameter 对象的 Size 属性；否则将发生错误。 如果在 Type 参数中指定数字型数据类型（adNumeric 或 adDecimal），也必须设置 NumericS