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.Data Imports 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. 运行结果