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

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

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

 
 

  
  
PrivateFunctionsqlProc1(ByValProcNameAsString)AsBoolean 
  
  
'定义数据链接部分省略,myConn为链接对象ProcName为存储过程名 
  
  
DimmyCommandAsNewsqlClient.sqlCommand(ProcName,myConn) 
  
  
WithmyCommand 
  
  
.CommandType=CommandType.StoredProcedure 
  
  
.Parameters.Add("@CodeType",sqlDbType.VarChar,20).Value="年级编码"
  
  
Try 
  
  
.ExecuteNonQuery() 
  
  
ReturnTrue 
  
  
CatchexAsException 
  
  
ReturnFalse 
  
  
EndTry 
  
  
EndFunction
 
 

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

 
 

  
  
PrivateFunctionsqlProc1(ByValProcNameAsString)AsString 
  
  
'定义数据链接部分省略,myConn为链接对象 
  
  
DimmyCommandAsNewsqlClient.sqlCommand(ProcName,20).Value="年级编码"
  
  
.Parameters.Add("@NewCode",20). Direction=ParameterDirection.Output 
  
  
Try 
  
  
.ExecuteNonQuery() 
  
  
Return.Parameters(1).Value() 
  
  
CatchexAsException 
  
  
Return"无编码生成" 
  
  
EndTry 
  
  
EndFunction
 
 

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

 
 

  
  
'VB.NET代码 
  
  
PrivateFunctionsqlProc2(ByValProcNameAsString,ByValParam1AsString)AsDataSet 
  
  
'定义命令对象，并使用储存过程 
  
  
DimmyCommandAsNewsqlClient.sqlCommand 
  
  
myCommand.CommandType=CommandType.StoredProcedure 
  
  
myCommand.CommandText=ProcName
  
  
myCommand.Connection=myConn
  
  
'定义一个数据适配器，并设置参数 
  
  
DimmyDapterAsNewsqlClient.sqlDataAdapter(myCommand) 
  
  
myDapter.SelectCommand.Parameters.Add ("@name",20).Value=Param1
  
  
'定义一个数据集对象，并填充数据集 
  
  
DimmyDataSetAsNewDataSet 
  
  
Try 
  
  
myDapter.Fill(myDataSet) 
  
  
CatchexAsException 
  
  
EndTry 
  
  
ReturnmyDataSet 
  
  
EndFunction
 
 

存储过程代码

 
 

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