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

dim odbcstr as String, adocon As New ADODB.Connection
odbcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Science_File;Data Source=Data_Server"
adocon.Open odbcstr '连接到数据库
　　2) 直接使用连接语句实现

　　连接数据库的语句如下：

Dim ado as ADODC
ado.ConnectionString = "Provider=SQLOLEDB.1;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 ADODB.Connection 'Connection 对象代表了打开与数据源的连接。
Dim adocomm As New ADODB.Command 'Command 对象定义了将对数据源执行的指定命令。
Dim ReturnValue As Integer '调用存储过程的返回值
adoconn.ConnectionString = Adodc1.ConnectionString 'Adodc1为窗体中的ADO控件，并已成功连接数据库
adoconn.Open
Set adocomm.ActiveConnection = adoconn '指示指定的 Command对象当前所属的 Connection对象。
adocomm.CommandText = "doc_ProcName" '设置Command对象源。
adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么，它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。
adocomm.Parameters(1) = "1"
adocomm.Parameters(2) = "OutputParameters" 'OutputParameters可以为任意的字符串或数字
adocomm.Execute
ReturnValue = adocomm.Parameters(0) '存储过程的返回值，返回0则成功执行。
strS = adocomm.Parameters(2) '把存储过程的输出参数的值赋给变量strS
　　2) 追加参数法调用存储过程

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

Set parameter = command.CreateParameter (Name, Type, Direction, Size, Value)
　　·Name 可选，字符串，代表 Parameter 对象名称。
　　·Type 可选，长整型值，指定 Parameter 对象数据类型。
　　·Direction 可选，长整型值，指定 Parameter 对象类型。
　　·Size 可选，长整型值，指定参数值最大长度（以字符或字节数为单位）。
　　·Value 可选，变体型，指定 Parameter 对象值。

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

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

Dim mRst As ADODB.Recordset 'Recordset 对象表示的是来自基本表或命令执行结果的记录全集。
Dim prm As ADODB.Parameter 'Parameter 对象代表参数或与基于参数化查询或存储过程的Command 对象相关联的参数。
adoconn.ConnectionString = Adodc1.ConnectionString
adoconn.Open
Set adocomm.ActiveConnection = adoconn
adocomm.CommandText = "doc_ProcName"
adocomm.CommandType = adCmdStoredProc
Set prm = adocomm.CreateParameter("parameter1", adTinyInt, adParamInput, , "1")
adocomm.Parameters.Append prm
Set prm = adocomm.CreateParameter("parameter2", adInteger, adParamOutput)
adocomm.Parameters.Append prm
Set mRst = adocomm.Execute
ReturnValue = adocomm.Parameters(0)
　　以上代码中未定义的变量以及未注释的语句与前述相同。

　　结束语

　　在应用程序中调用服务器端存储过程，不仅能显著提高整个应用的性能，而且能加强对数据库数据的保护。VB为客户端应用程序调用存储过程提供了一组方便而有效的方法。

上一篇： VB打造超酷个性化菜单(3)
下一篇： VB打造超酷个性化菜单(2)

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有