解读VB实现SQL Server 2000存储过程调用(2)_Mssql数据库教程

推荐：客户端备份与恢复MSSQL Server数据库
摘要:本文以SQL SERVER为例，总结了常用的几种备份和恢复数据库的方法,分析了作业机制的原理，并提出了一种以作业机制实现恢复和备份数据库的方法。用户可以不打开数据库管理器，在应用程序客户端就可以方便地实现数据库的备份和恢复。 关键词: 备份 恢复 作

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

VB作为当今应用极为普遍的数据库客户端开发工具之一，对客户端应用程序调用服务器端存储过程提供了强大的支持。特别是随着VB6.0的推出，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 6.0 (OLEDB)，然后在窗体中添加ADO控件。利用ADO连接数据库有两种方法，具体如下。

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

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

Provider=SQLOLEDB.1;

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 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为客户端应用程序调用存储过程提供了一组方便而有效的方法。

分享：谈SQL Server的空值处理策略
数据完整性是任何数据库系统要保证的重点。不管系统计划得有多好，空数据值的问题总是存在。本文探讨了在SQL Server中处理这些值时涉及的3个问题：计数、使用空表值以及外键处理。 用COUNT(*)处理空值 大多数集合函数都能在计算时消除空值;COUNT函数则属于例