VB实现SQLServer2000存储过程调用
时间：2008-04-08 来源：大学生计算机等级考试 打印本文
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 属性中指定的存储过程。
上一篇：用VB设计一个简单的加法程序
下一篇：VisualBasic中调用MSNAPI函数