Code
        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


posted on 2008-11-25 16:10  jarod99  阅读(846)  评论(0编辑  收藏  举报