function to return dataset

Hello Experts

I am trying to store some pattern in the database table using the data from the function which returns the dataset.

I wanted to loop through all the records from this dataset and assign the value to the stringcollection variable.

Please can someone advise how I can go about looping through the rows I get from this dataset, once I get the column values I can then assign them to the string collection.

Please see the code below, hope someone may understand what I am trying to do here?


Who is Participating?
newbie27Author Commented:
please see the code below
ds = RegistrationPersonalisedClassics.GetPatternIDAndPatternName(TemplateID)
Registration.Patterns.Add(FIRST_PATTERN_NAME_GOES_HERE + "\n" + txtPatternOne.Text)
Registration.Patterns.Add(second_PATTERN_NAME_GOES_HERE + "\n" + txtPatternTwo.Text)
Registration.Patterns.Add(third_PATTERN_NAME_GOES_HERE + "\n" + txtPatternThree.Text)
Registration.Patterns.Add(fourth_PATTERN_NAME_GOES_HERE + "\n" + txtPatternFour.Text)
Registration.Patterns.Add(fifth_PATTERN_NAME_GOES_HERE + "\n" + txtPatternFive.Text)
Registration.Patterns.Add(sixth_PATTERN_NAME_GOES_HERE + "\n" + txtPatternSix.Text)
Public Shared Function GetPatternIDAndPatternName(ByVal TemplatedID As Integer) As DataSet
        Dim dt As New Data.DataTable("Pattterns")
        Dim dr As Data.DataRow
        Dim dbConn As SqlConnection
        Dim SQL As String
        Dim dbComm As SqlCommand
        Dim dbRead As SqlDataReader
            SQL = "SELECT * " & _
                  "FROM PC_Pattern " & _
                  "WHERE TemplateID=" & TemplatedID
            dbComm = New SqlCommand(SQL, dbConn)
            dbRead = dbComm.ExecuteReader()
            dt.Columns.Add(New DataColumn("PatternID", GetType(Integer)))
            dt.Columns.Add(New DataColumn("PatternName", GetType(String)))
            While dbRead.Read
                dr = dt.NewRow
                dr.Item("PatternID") = dbRead("PatternID")
                dr.Item("PatternName") = dbRead("PatternName")
            End While
            Return ds
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
patterid pattername
1	 Alice	
2	 The White Rabbit	
3	 The Queen of Hearts	
4	 The King of Hearts	
5	 The Mad Hatter	
6	 The Cheshire Cat	

Open in new window

CodeCruiserConnect With a Mentor Commented:
Here is an example of looping through the dataset.

For i as integer = 0 to dSet.Tables(0).Rows.Count - 1
    str &= "Name: " & dSet.Tables(0).Rows(i).Item(0) & ", Address: " & dSet.Tables(0).Rows(i).Item(1) & VBCRLF

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.