SQL Error on my dataset Last row

[Lawrence 007]

Hi,



This is the first time I am running through a dataset the way I am doing it now and I have specific reasons for doing it this way. I am having a issue when I get to the last row of my dataset and was wondering if someone could help my and let me know what I am doing wrong.

My error says there is no row after the last row, wich is true, but what do I need to do to correct that?

Here is my code:

Dim ds As New DataSet()
    Dim rpos As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
Dim con As New SqlClient.SqlConnection
        con.ConnectionString = [properties goes here]
 
        con.Open()
        Try
            If con.State = 1 Then
                MsgBox("Connection Succesful!!")
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show(ex.Message, "Connection Error!")
        End Try
 
        Dim com As New SqlClient.SqlCommand
        com.Connection = con
        com.CommandText = "Select * from Customer Where Number = '" & TextBox3.Text & "'"
 
        Dim da As New SqlClient.SqlDataAdapter
 
        Try
            da.SelectCommand = com
            da.Fill(ds, "Number")
            rpos = 0
 
            TextBox1.Text = ds.Tables("Number").Rows(rpos)("CKNumber").ToString
            TextBox2.Text = ds.Tables("Number").Rows(rpos)("CustName").ToString
 
        Catch ex As SQLClient.SQLException
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        rpos += 1
        Navigate()
    End Sub
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        rpos -= 1
        Navigate()
    End Sub
    Private Sub Navigate()
        TextBox1.Text = ds.Tables("Number").Rows(rpos)("CKNumber").ToString
            TextBox2.Text = ds.Tables("Number").Rows(rpos)("CustName").ToString
    End Sub

[haroldisw]

Hi,

Put the conditional statement before accessing the row record.

e.g.

if not ds is nothing
if ds.tables.count > 0
if ds.tables(0).rows.count > 0
' insert your statement which will access the row record
end if
end if
end if

Harold

[Lawrence 007]

OK,

This is what I did and it Still is giving me that error. That means that this is wrong as well?



If Not ds Is Nothing Then
If ds.Tables.Count > 0 Then
If ds.Tables(0).Rows.Count > 0 Then
TextBox1.Text = ds.Tables("Number").Rows(rpos)("CKNumber").ToStrin g
End If
End If
End If

[kenobewan]

What line and error numbers do you get?

[Lawrence 007]

When I get to the last record it still gives me an error saying: There is no record 9. Wich means I have 8 records starting at 0, but when I get to record 9 there is nothing and that breaks my program with the error noted above.