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

发布时间：2020-12-17 07:57:45 所属栏目：百科来源：网络整理

导读：先建立一个无参的存储过程，为下面第一个无参调用作准备： [sql] view plain copy print ? useSales go create procedure sp_getGrade as select * from grade where 数学60 go 注：go是作为前面批处理的结束情况。因为前面执行是要花时间的，如果后面执行的

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

[sql] 
    view plain 
    copy 
    print 
    ? 
     
    
 useSales
 go
 createproceduresp_getGrade
 as
 select*fromgradewhere数学>60
 go

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

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

再复习ADO.net的过程：

一、连接数据库

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

三、填充结果集，显示。

所以代码如下：

[vb] 
    ?

ImportsSystem.Data.SqlClient

PublicClassForm1
DimcnAsSqlConnection
DimcmAsSqlCommand
DimdaAsSqlDataAdapter
DimdsAsDataSet
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Try
cn=NewSqlConnection("DataSource=(local);InitialCatalog=Sales;IntegratedSecurity=false;UserID=sa;Password=123456;")
cn.Open()'此句不省
cm=NewSqlCommand("sp_getGrade",cn)
cm.CommandType=CommandType.StoredProcedure'指明为存储过程
da=NewSqlDataAdapter(cm)
ds=NewDataSet()
da.Fill(ds,"grade")
DataGridView1.DataSource=ds.Tables("grade")
cn.Close()
CatchexAsException
MessageBox.Show("执行失败")
EndTry
EndSub
EndClass

结果如下：

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

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

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

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

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

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

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

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

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

?

PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click

Try
cn=NewSqlConnection("DataSource=.;InitialCatalog=Sales;IntegratedSecurity=False;UserID=sa;Password=123456;")
cn.Open()
cm=NewSqlCommand("sp_CheckPass",cn)
cm.CommandType=CommandType.StoredProcedure
cm.Parameters.Add("@CHKName",SqlDbType.VarChar,30).Value=TextBox1.Text
cm.Parameters.Add("@CHKPass",30).Value=TextBox2.Text
cm.Parameters.Add("@ISValid",12).Direction=ParameterDirection.Output
cm.ExecuteNonQuery()
Ifcm.Parameters("@ISValid").Value="Good"Then
MessageBox.Show("验证成功")
Else
MessageBox.Show("验证失败")
EndIf
MessageBox.Show(ex.ToString)
EndClass

结果：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!