VB.NET调用SQL Server存储过程

VB.NET编程语言对于数据库的操作，我们以前也介绍了不少。比如VB.NET数据库压缩的实现方法，VB.NET操作MySql数据库的具体操作技巧等等。那么今天大家将会了解到VB.NET调用SQL Server存储过程的相关应用方法。

定义数据链接部分省略, 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存储过程返回普通值

 
 
   
  
  Private Function SqlProc1(ByVal ProcName As String) As String    
  
  '定义数据链接部分省略, myConn为链接对象    
  
  Dim myCommand As New SqlClient.SqlCommand(ProcName, myConn)    
  
  With myCommand    
  
  .CommandType = CommandType.StoredProcedure    
  
  .Parameters.Add("@CodeType", SqlDbType.VarChar, 20).Value = "年级编码"   
  
  .Parameters.Add("@NewCode", SqlDbType.VarChar, 20).
Direction = ParameterDirection.Output    
  
  Try    
  
  .ExecuteNonQuery()    
  
  Return .Parameters(1).Value()    
  
  Catch ex As Exception    
  
  Return "无编码生成"    
  
  End Try     
  
  End Function

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

 
 
   
  
  'VB.NET代码    
  
  Private Function SqlProc2(ByVal ProcName As String, 
ByVal Param1 As String) As DataSet    
  
  '定义命令对象，并使用储存过程    
  
  Dim myCommand As New SqlClient.SqlCommand    
  
  myCommand.CommandType = CommandType.StoredProcedure    
  
  myCommand.CommandText = ProcName   
  
  myCommand.Connection = myConn   
  
  '定义一个数据适配器，并设置参数    
  
  Dim myDapter As New SqlClient.SqlDataAdapter(myCommand)    
  
  myDapter.SelectCommand.Parameters.Add
("@name", SqlDbType.VarChar, 20).Value = Param1   
  
  '定义一个数据集对象，并填充数据集    
  
  Dim myDataSet As New DataSet    
  
  Try    
  
  myDapter.Fill(myDataSet)    
  
  Catch ex As Exception    
  
  End Try    
  
  Return myDataSet    
  
  End Function

存储过程代码

 
 
   
  
  Create Proc Test @name varchar(20) As     
  
  Select * From EC_Grade where cGradeName=@name    
  
  GO    
  
  ***如果将存储过程修改部分内容,可以做为查询使用    
  
  CREATE Proc Test     
  
  @name varchar(200)=''     
  
  --此处应该注意200为查询条件的长度,可以根据实际情况而定;
但不建议用于过长的查询条件    
  
  As    
  
  Declare @sql1 varchar(8000)    
  
  if @name<>''     
  
  Select @sql1='Select * From EC_Grade where '+ @name    
  
  else    
  
  Select @sql1='Select * From EC_Grade'   
  
  exec(@sql1)    
  
  GO

VB.NET调用SQL Server存储过程的相关应用方法就为大家介绍到这里。

【编辑推荐】

VB.NET添加自动查询功能实现技巧概述
VB.NET关于对话框制作技巧分享
VB.NET Mid函数相关应用方法解析
VB.NET获取当前URL方法浅谈
VB.NET初始化网格实现方法解析

名称栏目：VB.NET调用SQL Server存储过程
网站网址：http://www.csdahua.cn/qtweb/news36/378436.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容