VB.net数据库编程（06）：调用存储过程（带参和不参数情况）

先建立一个无参的存储过程，为下面第一个无参调用作准备：

use Salesgocreate procedure sp_getGradeas select * from grade where 数学>60go

注：go是作为前面批处理的结束情况。因为前面执行是要花时间的，如果后面执行的要依赖前面结果，没有go的话，有可能前面

         没有执行完，当然后面依赖此结果的语句就会执行错误。所以go的作用很大。

再复习ADO.net的过程：

一、连接数据库

二、发出指令。command默认是commandType.text。因为是存储过程，所以应指明为commandType.StoreProcedure

三、填充结果集，显示。

所以代码如下：

Imports System.Data.SqlClientPublic Class Form1    Dim cn As SqlConnection    Dim cm As SqlCommand    Dim da As SqlDataAdapter    Dim ds As DataSet    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Try            cn = New SqlConnection("Data Source=(local);Initial Catalog=Sales;Integrated Security=false;User ID=sa;Password=123456;")            cn.Open()  '此句不省            cm = New SqlCommand("sp_getGrade", cn)            cm.CommandType = CommandType.StoredProcedure '指明为存储过程            da = New SqlDataAdapter(cm)            ds = New DataSet()            da.Fill(ds, "grade")            DataGridView1.DataSource = ds.Tables("grade")            cn.Close()        Catch ex As Exception            MessageBox.Show("执行失败")        End Try    End SubEnd Class

结果如下：

================================================================================================

下面是一个带参数的存储过程的调用。

这个带参的存储过程用到了前面的SQL存储过程：

注：output是说明这个参数是一个输出变量。有三种变量：输入变量（就是前面两个就是），输出变量（第三个），输入/输出变量。

表中存储的用户名和密码。存储过程就是来验证里面的用户名和密码的。

下面用vb.net来调用这个带参数的存储过程。

带参数的存储过程有一个专门的Parameters属性来指明，其中的Add就是添加这个参数。

另外还有一个Value是获得或设置其变量的值。direction也一样，只不过是特殊的值，比如本的输出参数。

看下实例：带参的存储过程调用

Imports System.Data.SqlClientPublic Class Form1    Dim cn As SqlConnection    Dim cm As SqlCommand    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Try            cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")            cn.Open()            cm = New SqlCommand("sp_CheckPass", cn)            cm.CommandType = CommandType.StoredProcedure            cm.Parameters.Add("@CHKName", SqlDbType.VarChar, 30).Value = TextBox1.Text            cm.Parameters.Add("@CHKPass", SqlDbType.VarChar, 30).Value = TextBox2.Text            cm.Parameters.Add("@ISValid", SqlDbType.VarChar, 12).Direction = ParameterDirection.Output            cm.ExecuteNonQuery()            If cm.Parameters("@ISValid").Value = "Good" Then                MessageBox.Show("验证成功")            Else                MessageBox.Show("验证失败")            End If        Catch ex As Exception            MessageBox.Show(ex.ToString)        End Try    End SubEnd Class

结果：

注：这里没用密码框，是为了显示程序流程。