Error : index was out of range. must be non-negative and less than the size of the collection. Parameter name: Index

See more:

SQL-Server-2005

VB

SQL-Server

Hi Every Body,

I am designing a desktop application (Windows) using VB.NET 2008, SQL Server 2005.

I have one FORM with a DataGridView. I have added a some column in grid view as follows:

grdDesID, grdDesName, grdDesShortName, grdDesDescription, grdIsDefault in design view.

********************************************************************
I have a following code:

Private Sub EmpDesignation_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Declaration
        Dim OConn As OleDbConnection
        Dim strSQL As String
        Dim SQLCmd As OleDbCommand
        Dim OReader As OleDbDataReader
        Dim strConn As String = ("Provider = SQLOLEDB;Data Source = INDABS\RMS;Initial Catalog = INDB;User ID = sa;Password = s@1234;Persist Security Info = TRUE;")
        OConn = New OleDbConnection(strConn)
        strSQL = "SELECT DesID,DesName,DesShortName,DesDescription,DesIsDefault FROM dbo.hrEmpDesignation"
        Try
            OConn.Open()
            Dim i As Integer
            i = 0
            SQLCmd = New OleDbCommand(strSQL, OConn)
            OReader = SQLCmd.ExecuteReader
            Do While OReader.Read()
                grvDesignationList.RowCount = grvDesignationList.RowCount + 1
                i = i + 1
            Loop
            OReader.Close()
            i = 0
            SQLCmd = New OleDbCommand(strSQL, OConn)
            OReader = SQLCmd.ExecuteReader
            Do While OReader.Read()
                grvDesignationList.Item(0, i).Value = OReader("DesID")
                grvDesignationList.Item(1, i).Value = OReader("DesName")
                grvDesignationList.Item(2, i).Value = OReader("DesShortName")
                grvDesignationList.Item(3, i).Value = OReader("DesDescription")
                grvDesignationList.Item(4, i).Value = OReader("DesIsDefault")
                i = i + 1
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message, "OlEDB Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

*******************************************************************

Though data can be load in data grid but still i receive this message " index was out of range. must be non-negative and less than the size of the collection. Parameter name: Index" when i run the APPLICATION.

PLEASE HELP !!!!!!!!!!!

rigtsale :confused: