Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 TryCarregando comentários...