VB.NET调用SQL Server存储过程的相关应用方法

比如VB.NET数据库压缩的实现方法，VB.NET操作MySql数据库的具体操作技巧等等。那么今天大家将会了解到VB.NET调用SQLServer存储过程的相关应用方法。

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

1．VB.NET调用SQLServer存储过程时无返回值

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

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

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.   Try  

8.   .ExecuteNonQuery()  

9.   Return True  

10.  Catch ex As Exception  

11.  Return False  

12.  End Try   

13.  End Function 

2．VB.NET调用SQLServer存储过程返回普通值

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调用SQLServer存储过程返回数据集

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调用SQLServer存储过程的相关应用方法就为大家介绍到这里。