第8章与数据库应用程序.ppt

* 7.4 在ADO.NET中调用存储过程 Private Sub Form1_Load(…) Handles MyBase.Load 定义数据适配器Adapter对象和DataTable对象Avg_score Dim adapter As SqlClient.SqlDataAdapter Dim avg_score As New System.Data.DataTable ‘定义带有存储过程初始化参数和数据库连接的 sqlcommand对象mycomm Dim mycomm As SqlClient.SqlCommand mycomm = New SqlClient.SqlCommand(sc_proc;1, Me.SqlConnection1) 8.5 在ADO.NET中调用存储过程 代码： * 7.4 在ADO.NET中调用存储过程 申明mycomm的CommandType为存储过程(StoredProcedure) mycomm.CommandType = CommandType.StoredProcedure 创建Adapter adapter = New SqlClient.SqlDataAdapter(mycomm) 存储过程执行的结果填充表对象avg_score adapter.Fill(avg_score) 将datagrid1的DaTaSource设置为avg_score DataGrid1.DataSource = avg_score DataGrid1.CaptionText = 学生平均成绩统计 End Sub 8.5 在ADO.NET中调用存储过程 * 7.4 在ADO.NET中调用存储过程 例8.13 查询某个学生的平均成绩。在VB.NET中调用有输入参数存储过程(sc_proc;2)来实现。 Private Sub Button1_Click(…) Handles Button1.Click 定义数据库连接 Dim cnnstr As String = Integrated Security=SSPI; Data Source=USER-DC1CDE9C87; Initial Catalog=教学数据库; Dim myconn As New SqlClient.SqlConnection(cnnstr) 定义sqlCommand对象mycomm并初始化 Dim mycomm As SqlClient.SqlCommand 定义对象变量 mycomm = New SqlClient.SqlCommand(sc_proc;2, myconn) 赋值 8.5 在ADO.NET中调用存储过程 * 7.4 在ADO.NET中调用存储过程 mycomm.CommandType = CommandType.StoredProcedure 定义存储过程的参数para_snum Dim para_snum As SqlClient.SqlParameter para_snum = mycomm.Parameters.Add(@_snum, System.Data.SqlDbType.Char, 10) 将界面输入值赋给存储过程的参数para_snum para_snum.Value = TextBox1.Text Dim myreader As SqlClient.SqlDataReader myconn.Open() 8.5 在ADO.NET中调用存储过程 * 7.4 在ADO.NET中调用存储过程 将存储过程执行结果赋给myreader