Erro ao popular um listview System.IndexOutOfRangeException was unhand

[jcrf 0]

ocorre o seguinte erro "System.IndexOutOfRangeException was unhandled".

Algúem pode me ajudar...

 

 

Segue o código da rotina

 

Dim conn As New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")
       Dim commysql As MySqlCommand
       Dim drmysql As MySqlDataReader
       Dim sql As String
       Dim objlistitem As ListItemclientes

       Try
           sql = "SELECT NOME,Identificação FROM clientes"
           conn.Open()
           commysql = New MySqlCommand(sql, conn)
           drmysql = commysql.ExecuteReader

           ltbclientes.Items.Clear()

           Do While drmysql.Read()
               objlistitem = New ListItemclientes(drmysql.Item("NOME").ToString(), CInt(drmysql.Item("Identificação")))

               ltbclientes.Items.Add(objlistitem)
           Loop

           If ltbclientes.Items.Count <> 0 Then
               ltbclientes.SetSelected(0, True)
           End If
           drmysql.Close()
           conn.Close()
           commysql.Dispose()
           conn.Dispose()
       Catch ex As MySqlException
           MsgBox(ex.Message, MsgBoxStyle.Critical, "MySQL Error")
       Catch e As Exception
           MsgBox(e.Message, MsgBoxStyle.Critical, "General Error")
       End Try

[quintelab 91]

Em qual linha exatamente ocorre o erro.

 

Abraços...

[jcrf 0]

ocorre o seguinte erro "System.IndexOutOfRangeException was unhandled".

Algúem pode me ajudar...

o erro ocorre nas linhas em destaque...

 

 

Segue o código da rotina

 

Dim conn As New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")
       Dim commysql As MySqlCommand
       Dim drmysql As MySqlDataReader
       Dim sql As String
       Dim objlistitem As ListItemclientes  ' classe criada para definir a chave primária da tabela.

       Try
           sql = "SELECT NOME,Identificação FROM clientes"
           conn.Open()
           commysql = New MySqlCommand(sql, conn)
           drmysql = commysql.ExecuteReader

           ltbclientes.Items.Clear()

           Do While drmysql.Read()
               [u]objlistitem = New ListItemclientes(drmysql.Item("NOME").ToString(), CInt(drmysql.Item("Identificação")))[/u]

               ltbclientes.Items.Add(objlistitem)
           Loop

           If ltbclientes.Items.Count <> 0 Then
               ltbclientes.SetSelected(0, True)
           End If
           drmysql.Close()
           conn.Close()
           commysql.Dispose()
           conn.Dispose()
       Catch ex As MySqlException
           MsgBox(ex.Message, MsgBoxStyle.Critical, "MySQL Error")
       Catch e As Exception
           MsgBox(e.Message, MsgBoxStyle.Critical, "General Error")
       End Try

 

ocorre o seguinte erro "System.IndexOutOfRangeException was unhandled".

Algúem pode me ajudar...

o erro ocorre na linha 15.

 

 

Segue o código da rotina

 

Dim conn As New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")
       Dim commysql As MySqlCommand
       Dim drmysql As MySqlDataReader
       Dim sql As String
       Dim objlistitem As ListItemclientes  ' classe criada para definir a chave primária da tabela.

       Try
           sql = "SELECT NOME,Identificação FROM clientes"
           conn.Open()
           commysql = New MySqlCommand(sql, conn)
           drmysql = commysql.ExecuteReader

           ltbclientes.Items.Clear()

           Do While drmysql.Read()
               [u]objlistitem = New ListItemclientes(drmysql.Item("NOME").ToString(), CInt(drmysql.Item("Identificação")))[/u]

               ltbclientes.Items.Add(objlistitem)
           Loop

           If ltbclientes.Items.Count <> 0 Then
               ltbclientes.SetSelected(0, True)
           End If
           drmysql.Close()
           conn.Close()
           commysql.Dispose()
           conn.Dispose()
       Catch ex As MySqlException
           MsgBox(ex.Message, MsgBoxStyle.Critical, "MySQL Error")
       Catch e As Exception
           MsgBox(e.Message, MsgBoxStyle.Critical, "General Error")
       End Try

[quintelab 91]

O nome do campo é com acento mesmo? Identificação

Você testou pra ver se todos os valores podem ser convertidos pra inteiros mesmo?

 

Abraços...