VB.NET调用SQLServer的存储过程

VB.NET调用SQL Server的存储过程,针对这个问题,这篇文章详细介绍了相对应的分析和解答,希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名注册、网页空间、营销软件、网站建设、怀柔网站维护、网站推广。

VB.NET编程语言对于数据库的操作,我们51CTO以前也介绍了不少。比如VB.NET数据库压缩的实现方法,VB.NET操作MySQL数据库的具体操作技巧等等。

定义数据链接部分省略, myConn为链接对象 ProcName为存储过程名

1.VB.NET调用SQL Server存储过程时无返回值

Private Function SqlProc1(ByVal ProcName As String) As Boolean  '定义数据链接部分省略, myConn为链接对象 ProcName为存储过程名  Dim myCommand As New SqlClient.SqlCommand(ProcName, myConn)  With myCommand  .CommandType = CommandType.StoredProcedure  .Parameters.Add("@CodeType", SqlDbType.VarChar, 20).Value = "年级编码" Try  .ExecuteNonQuery()  Return True  Catch ex As Exception  Return False  End Try   End Function

2.VB.NET调用SQL Server存储过程返回普通值

  1. Private Function SqlProc1(ByVal ProcName As String) As String  

  2. '定义数据链接部分省略, myConn为链接对象  

  3. Dim myCommand As New SqlClient.SqlCommand(ProcName, myConn)  

  4. With myCommand  

  5. .CommandType = CommandType.StoredProcedure  

  6. .Parameters.Add("@CodeType", SqlDbType.VarChar, 20).Value = "年级编码" 

  7. .Parameters.Add("@NewCode", SqlDbType.VarChar, 20).
    Direction = ParameterDirection.Output  

  8. Try  

  9. .ExecuteNonQuery()  

  10. Return .Parameters(1).Value()  

  11. Catch ex As Exception  

  12. Return "无编码生成"  

  13. End Try   

  14. End Function 

3.VB.NET调用SQL Server存储过程返回数据集

  1. 'VB.NET代码  

  2. Private Function SqlProc2(ByVal ProcName As String, 
    ByVal Param1 As String) As DataSet  

  3. '定义命令对象,并使用储存过程  

  4. Dim myCommand As New SqlClient.SqlCommand  

  5. myCommand.CommandType = CommandType.StoredProcedure  

  6. myCommand.CommandText = ProcName 

  7. myCommand.Connection = myConn 

  8. '定义一个数据适配器,并设置参数  

  9. Dim myDapter As New SqlClient.SqlDataAdapter(myCommand)  

  10. myDapter.SelectCommand.Parameters.Add
    ("@name", SqlDbType.VarChar, 20).Value = Param1 

  11. '定义一个数据集对象,并填充数据集  

  12. Dim myDataSet As New DataSet  

  13. Try  

  14. myDapter.Fill(myDataSet)  

  15. Catch ex As Exception  

  16. End Try  

  17. Return myDataSet  

  18. End Function 

存储过程代码

  1. Create Proc Test @name varchar(20) As   

  2. Select * From EC_Grade where cGradeName=@name  

  3. GO  

  4. ***如果将存储过程修改部分内容,可以做为查询使用  

  5. CREATE Proc Test   

  6. @name varchar(200)=''   

  7. --此处应该注意200为查询条件的长度,可以根据实际情况而定;
    但不建议用于过长的查询条件  

  8. As  

  9. Declare @sql1 varchar(8000)  

  10. if @name<>''   

  11. Select @sql1='Select * From EC_Grade where '+ @name  

  12. else  

  13. Select @sql1='Select * From EC_Grade' 

  14. exec(@sql1)  

  15. GO 

关于VB.NET调用SQL Server的存储过程问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注创新互联行业资讯频道了解更多相关知识。


本文名称:VB.NET调用SQLServer的存储过程
转载来源:http://cdiso.cn/article/jjjpdd.html

其他资讯