![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
With cmd
.CommandText = "tsProduct"
.CommandType = CommandType.StoredProcedure
.Connection = cn
.Parameters.Add(New SqlParameter("@pname", SqlDbType.VarChar, 40))
.Parameters.Add(New SqlParameter("@gid", SqlDbType.Int))
.Parameters("@gid").Direction = ParameterDirection.Output
End With
cn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim ds As New DataSet("t1")
ds.Load(dr, LoadOption.OverwriteChanges, "aaa")
'把 DataReader 转换成 DataSet
Label2.Text = ds.Tables(0).TableName
GridView1.DataSource = ds.Tables(0).DefaultView
GridView1.DataBind()
dr.Close() '<---这句很关键,不关掉记录集取不到输出参数的
Label1.Text = "输出参数是:" + cmd.Parameters("@gid").Value.ToString