How to write for Each on dataset in VB.Net

Hi,

Please refer below code

C#

string constr = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
using (SqlConnection con = new SqlConnection(constr))
{
    using (SqlCommand cmd = new SqlCommand("select * from customer_prod where Cust_name = @Cust_name"))
    {
        cmd.Parameters.AddWithValue("@Cust_name", "A");
        using (SqlDataAdapter sda = new SqlDataAdapter())
        {
            cmd.CommandType = CommandType.StoredProcedure;
            cmd.Connection = con;
            sda.SelectCommand = cmd;
            using (DataSet ds = new DataSet())
            {
                sda.Fill(ds);
                foreach (DataRow row in ds.Tables[0].Rows)
                {
                    string price = row["Price"].ToString();
                }
            }
        }
    }
}

VB

Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using con As New SqlConnection(constr)
    Using cmd As New SqlCommand("select * from customer_prod where Cust_name = @Cust_name")
        cmd.Parameters.AddWithValue("@Cust_name", "A")
        Using sda As New SqlDataAdapter()
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = con
            sda.SelectCommand = cmd
            Using ds As New DataSet()
                sda.Fill(ds)
                For Each row As DataRow In ds.Tables(0).Rows
                    Dim price As String = row("Price").ToString()
                Next
            End Using
        End Using
    End Using
End Using

I hope this will help you out.

Hi Shashikant,

May i know how to get the value?

dim strprice as string

For Each row As DataRow In ds.Tables(0).Rows

    strprice =  ds.Tables(0).Rows.Item("Price").ToString() ???? got error Next

Hi,

Please refer my previous reply I have modified it.

http://www.aspforums.net/Threads/589986/How-to-write-for-Each-on-dataset-in-VBNet/Replies/1#Replies

Thanks a lot bro!!!!!!!!!!!!

u really good..thanks agains...