move to next record

Question

   Dim i As Integer
        Dim con As New SqlConnection("Data Source=QADCOM7026;Initial Catalog=stu_info1;Integrated Security=True")
        con.Open()
        Dim adp As New SqlDataAdapter("select * from stu_info", con)
        Dim builder As New SqlCommandBuilder(adp)
        Dim ds As New DataSet()
        adp.Fill(ds, "stu_info")

        If (i < ds.Tables(0).Rows.Count - 1) Then
            i = i + 1

            textBox1.Text = ds.Tables(0).Rows(i)("First_name").ToString()
            textBox2.Text = ds.Tables(0).Rows(i)("Last_name").ToString()
            textBox3.Text = ds.Tables(0).Rows(i)("Address").ToString()
            textBox4.Text = ds.Tables(0).Rows(i)("Phone_no").ToString()
            textBox5.Text = ds.Tables(0).Rows(i)("City").ToString()
        Else
            MessageBox.Show("this is first record")

        End If
this shows only one next record,i want to move next record each time on button click...

Crish · Answer

Hi Its very easy and helpful code . thanks for help us through this code.

Hirendra Sisodiya · Answer

Hello Ranjana you need to manage your code like this declare private variables on the form class: Dim i As Integer = -1 Dim recordCound As Integer = 0 Dim ds As DataSet on From_Load event: Dim con As New SqlConnection(Data Source=QADCOM7026;Initial Catalog=stu_info1;Integrated Security=True) con.Open() Dim adp As New SqlDataAdapter(select * from stu_info con) Dim builder As New SqlCommandBuilder(adp) ds = New DataSet adp.Fill(ds stu_info) recordCound = ds.Tables(0).Rows.Count - 1 On Button_Click event: If recordCound >= i Then i = i + 1 TextBox1.Text = ds.Tables(0).Rows(i)(First_name).ToString() textBox2.Text = ds.Tables(0).Rows(i)(Last_name).ToString() textBox3.Text = ds.Tables(0).Rows(i)(Address).ToString() textBox4.Text = ds.Tables(0).Rows(i)(Phone_no).ToString() textBox5.Text = ds.Tables(0).Rows(i)(City).ToString() Else MessageBox.Show(This is last record) End If thanks