xin3721网络学院为广大学员，准备了丰富了教学视频。为了更好的让大学配合视频进行学习，拓展学员的知，识面，我站特整理了大量的，技术文章，供学员参考。因此本VB.net教案需配合本站最新录制的VB.net 2010视频教程学习，视频教程地址为：vb.net教程
关于VB.net数扰方面的操作，xin3721网络学院，可以说是首屈一指。比如VB.net 2010高级视频，就全面介绍了大量的VB.net与数据库的配合操作。本文将会向大家介绍VB.NET调用SQL Server存储过程的相关应用方法。首先，定义数据链接部分省略, myConn为链接对象 ProcName为存储过程名：
本站为广大网友开发了最好的数据库视频教程，视频教程地址为：https://www.xin3721.com/eschool/SQLxin3721/
1．VB.NET调用SQL Server存储过程时无返回值
本站为广大网友开发了最好的数据库视频教程，视频教程地址为：https://www.xin3721.com/eschool/SQLxin3721/
1．VB.NET调用SQL Server存储过程时无返回值
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).＆#118alue = "年级编码" 7. Try
8. .ExecuteNonQuery()
9. Return True
10. Catch ex As Exception
11. Return False
12. End Try
13. 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).＆#118alue = "年级编码" 7. .Parameters.Add("@NewCode", SqlDbType.VarChar, 20).
Direction = ParameterDirection.Output 8. Try
9. .ExecuteNonQuery()
10. Return .Parameters(1).＆#118alue()
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).＆#118alue = 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 2008操作数据的内容介绍到这里有，更大内容请关注“xin3721网络学院”