Error "There is no row at position 0"

Question

0.00/5 (No votes)

See more:

Hello Every One,

When i run my project i get Error "There is no row at position 0",please help.

Here is my code:

VB

Private Sub PopulateDepartmentHead()

        'Fill data in comboBox
        Dim SqlDataAdapter As OleDbDataAdapter
        Dim DSet As New DataSet
        Dim strSelect As String
        SQLConn.Close()
        SQLConn.ConnectionString = oFunc.GetConnectionString(sINIFile)
        'myConn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & strPath & "\" & strName & ".mdf" & ";Integrated Security=True;User Instance=True")
        SQLConn.Open()

        Try
            strSelect = "SELECT * FROM dbo.hrEmployeeInformation"
            SqlDataAdapter = New OleDbDataAdapter(strSelect, SQLConn)
            DSet = New DataSet()
            SqlDataAdapter.Fill(DSet)
            Me.dhcboEmployeeSelect.DataSource = DSet.Tables(0)
            Me.dhcboEmployeeSelect.ValueMember = "eiEmployeeID"
            Me.dhcboEmployeeSelect.DisplayMember = "eiFirstName"
            'MsgBox(Me.dhcboEmployeeSelect.DisplayMember = "Cust_ID")
            SQLConn.Close()
        Catch ex As Exception
            MessageBox.Show("Error No : " & Err.Number & vbCrLf _
                          & "Error : " & ex.Message & vbCrLf _
                          & "Source : " & Err.Source & vbCrLf _
                          , "System Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Code for selectindexchanged event:

VB

Private Sub dhcboEmployeeSelect_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dhcboEmployeeSelect.SelectedIndexChanged
        Dim SqlDataAdapter As OleDbDataAdapter
        Dim custDataset As New DataSet
        Dim strSelect As String
        SQLConn.Close()
        SQLConn.ConnectionString = oFunc.GetConnectionString(sINIFile)
        SQLConn.Open()

        Try
            strSelect = "SELECT * FROM dbo.hrEmployeeInformation WHERE eiEmployeeID = '" & dhcboEmployeeSelect.Text & "'"
            SqlDataAdapter = New OleDbDataAdapter(strSelect, SQLConn)
            custDataset = New DataSet()
            SqlDataAdapter.Fill(custDataset, "dbo.hrEmployeeInformation")
            SqlDataAdapter.Dispose()
            Dim custTable As DataTable = custDataset.Tables(0)

            dhEmployeeID.Text = custTable.Rows(0).Item(0)
            dhEmployeeName.Text = custTable.Rows(0).Item(1)

            SQLConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            SQLConn.Close()
        End Try
    End Sub

Code for Form Load:

VB

Private Sub frmDepartmentHead_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            SQLConn.Close()
            SQLConn.ConnectionString = oFunc.GetConnectionString(sINIFile)
            FormName()
            EnableControlsFormLoad(True)
            SQLConn.Open()
            ds.Clear()
            SQLConn.Close()
            'Fill Combo
            PopulateDepartmentHead()
        Catch ex As Exception
            MessageBox.Show("Error No : " & Err.Number & vbCrLf _
                          & "Error : " & ex.Message & vbCrLf _
                          & "Source : " & Err.Source & vbCrLf _
                          , "System Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

PLEASE HELP ME, WHERE DID I WENT WRONG....

Thanks

Posted 18-Feb-13 0:07am

TasheeDuks

Updated 18-Feb-13 0:22am

Abhishek Pant

v2

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Naveen.Sanagasetti · Answer 1 · 2013-02-18T00:35:00

C#

Me.dhcboEmployeeSelect.DataSource = DSet.Tables(0)

I think this line you got that error message .
What's the problem in that is your DataSet doesn't have "0"th Tables.
But your try to call the table[0]. that's way this error occured.

Once try to execute your SQL query ,your query returns any value or not checkout that..

SQL

strSelect = "SELECT * FROM dbo.hrEmployeeInformation WHERE eiEmployeeID = '" & dhcboEmployeeSelect.Text & "'"

check this line returns any result or empty..

Saurabh_Damle · Answer 2 · 2013-02-18T01:41:00

The exception is thrown at line

dhEmployeeID.Text = custTable.Rows(0).Item(0)

You should always check if there is at least one row in table before accessing it.
You can do this with

custTable.Rows.Count > 0

The same can be said for line

Dim custTable As DataTable = custDataset.Tables(0)

Also there are few points which can be eliminated when using DataAdapter
1. You do not need to open or close connection as DataAdapter does this for you.
2. You should not call dispose on DataAdapter. Ideally, you should retain the same DataAdapter because it has already performed it's initialization. A DataAdapter provides properties such as the SelectCommand, UpdateCommand, InsertCommand and DeleteCommand which allow you to set different Command objects to perform these different function on the datasource. So, you see, the DataAdapter is designed to be reused for multiple commands (for the same database connection).

Mr. Mahesh Patel · Answer 3 · 2013-02-18T01:43:00

Solution 4

hi dear,

please check

VB

If DSet.Tables[0] is not nothing and DSet.Tables(0).Rows.Count > 0

before assign datasource to dhcboEmployeeSelect

Posted 18-Feb-13 1:43am

Mr. Mahesh Patel

Error "There is no row at position 0"

3 solutions

Solution 1

Solution 3

Solution 4

Add your solution here

Preview 0