VB.NET调用SQL Sever存储过程

概要：

本文介绍VB.NET使用创建并调用带有输入参数和输出参数的SQL Sever存储过程

本文代码首先检查要创建的存储过程再数据库中是否存在在。如果不存在，则代码创建一个存储过程，该过程一个参数来搜索用户的密码，并在输出参数中返回匹配的行及行数。

步骤：

1.      创建基本的用户界面

2.      创建GetUserID存储过程

create Procedure GetUserID (@username varchar(40), @RowCount int output)  as select * from userlogin where adminUser = @username; /* @@ROWCOUNT 返回最后一个受影响的行数 */ select @RowCount=@@ROWCOUNT

此代码包括两个参数：@username和@RowCount。@username是输入参数，用于获取搜索字符串比便在userlogin中执行搜索功能。@RowCount是输出参数，用于使用@@ROWCOUNT变量获取受影响的行。

3.      编写窗体代码

3.1添加“声明”部分

Imports System.DataImports System.Data.SqlClient

3.2若要确保存储过程并创建存储过程，结合使用SqlCommand对象和SqlDataReader对象。可以使用SqlCommand针对数据库运行任何 SQL命令。然后调用 SqlCommand的ExecuteReader方法以返回SqlDataReader，它包含查询的匹配行。

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Dim MyConnection As SqlConnection        Dim MyCommand As SqlCommand        Dim MyDataReader As SqlDataReader        '设置连接语句        MyConnection = New SqlConnection("Data Source=192.168.24.75;Initial Catalog=P_charge;User ID=sa;Pwd=123456")        MyCommand = New SqlCommand        '检查存储过程是否存在        MyCommand = New SqlCommand("if object_id('pubs..GetUserID') is not null " + "begin" + " if objectproperty(object_id('pubs..GetUserID'), 'IsProcedure')= 1" + " select object_id('pubs..GetUserID')" + " else" + " return " + "end" + " else" + " return", MyConnection)        '设置command命令按钮的属性        With MyCommand            .Connection = MyConnection            .CommandType = CommandType.Text            .Connection.Open()            '执行sql语句            MyDataReader = .ExecuteReader()            '如果不存在那么就创建一个新的存储过程，如果存在就关闭数据库            If MyDataReader.Read() Then                .CommandText = "create procedure GetUserID (@username varchar(40), " & "@RowCount int output) " & " as select * from userlogin where adminUser = @username; select @RowCount=@@ROWCOUNT"                MyDataReader.Close()                .ExecuteNonQuery()            Else                MyDataReader.Close()            End If            '关闭数据库            .Dispose()  'Dispose of the Command object.            MyConnection.Close() 'Close the connection.        End With    End Sub

3.3在按钮的Click事件中调用存储过程，然后使用SqlDataAdapter对象运行存储过程。必须为该存储过程创建参数，并将它附加到SqlDataAdapter对象的Parameters集合中。

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim DS As DataSet        Dim MyConnection As SqlConnection        Dim MyDataAdapter As SqlDataAdapter        '连接数据库语句        MyConnection = New SqlConnection("Data Source=192.168.24.75;Initial Catalog=userlogin;User ID=sa;Pwd=123456")        '创建一个dataapater，然后给出存储过程的名字        MyDataAdapter = New SqlDataAdapter("GetUserID", MyConnection)        '设置命令类型是存储过程        MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure        '设置存储过程参数        MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@username", SqlDbType.VarChar, 40))        '指定存储过程过程参数        MyDataAdapter.SelectCommand.Parameters("@username").Value = Trim(TxtLastName.Text)        '设置存储过程参数         MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@RowCount", SqlDbType.Int, 4))        '设置参数是输出参数        MyDataAdapter.SelectCommand.Parameters("@RowCount").Direction = ParameterDirection.Output        '创建一个新的记录集来保存数据        DS = New DataSet()        MyDataAdapter.Fill(DS, "userid") '返回的行填充到数据集        '得到返回行数，赋给lblRowCount        'lblRowCount.Text = DS.Tables(0).Rows.Count().ToString() & " Rows Found!"        lblRowCount.Text = MyDataAdapter.SelectCommand.Parameters(1).Value & " Rows Found!"        '设定DataGrid控件的数据源        Grdauthors.DataSource = DS.Tables("userid").DefaultView        '关闭dataapater和数据库        MyDataAdapter.Dispose() 'Dispose of the DataAdapter.        MyConnection.Close() 'Close the connection.    End Sub

4． 运行结果