vb对数据库操作用存储过程

转载于 2007-08-09 21:50:00 发布 · 147 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/redfox241/archive/2007/08/09/849924.html

文章标签：

#数据库

本文介绍了一个使用VB.NET通过ADO访问SQL Server存储过程的例子。示例中定义了一个名为sp_recordset的存储过程，并展示了如何使用VB.NET代码设置连接字符串、创建参数并执行存储过程。

存储过程如下
create proc sp_recordset
@bbb int
as
select * from aaa where bbb = @bbb
vb代码如下：

Dim cmd As ADODB.Command
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ADOPrm
Set ADOPrm = New ADODB.Parameter

Set rs = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB_PurchaseOrder;Data Source=."
conn.Open

Set cmd = New ADODB.Command
cmd.CommandType = adCmdStoredProc
cmd.ActiveConnection = conn
cmd.CommandText = "sp_recordset"
Set ADOPrm = cmd.CreateParameter("@bbb", adInteger, adParamInput)
cmd.Parameters.Append ADOPrm
cmd.Parameters("@bbb").Value = "123"