[SOLUCIONADO] Consulta no toma el primer valor SQL .NET

[khryztall]

Buenas noches amigos;

Quisiera por favor me ayudaran en el siguiente problema:

Tengo un ListView y como es lógico declaro columnas y en el momento de llenar los datos hago una consulta de la siguiente manera:

Código .NET:

Try
            sql = "SELECT * FROM registro_variables;"
 
            Dim comandoSQL As New OdbcCommand(sql, conexionBD)
            Dim resultadoSQL As OdbcDataReader = comandoSQL.ExecuteReader()
 

En el caso de haber resultados la consultado pregunta por ellos y comienza a llenar el listview de la siguiente manera:

Código .NET:

If (resultadoSQL.Read) Then
                Dim i As Integer
                Dim aux As Integer
                i = 0
 
                While resultadoSQL.Read
                    ListViewVariables.Items.Add(resultadoSQL(0))
                    For aux = 1 To resultadoSQL.FieldCount - 1
                        ListViewVariables.Items(i).SubItems.Add(resultadoSQL(aux))
                        MsgBox(resultadoSQL(aux))
                    Next aux
                    i = i + 1
                End While
            Else
                MsgBox("no se encontraron resultados")
            End If
 

y Finaliza con la captura en caso de error:

Código .NET:

Catch ex As OdbcException
 
            'SE MUESTRA ERROR DE CONEXION CON LA BASE DE DATOS
            MsgBox(ex.Message)
 
        End Try
 

En el momento de mostrar la consulta solo me muestra a partir del segundo ítem de la consulta, me explico los ítems dentro de la tabla están numerados con un index autoincremental y al mostrar los resultados se muestra desde el index=2 en lugar de mostrar desde el index=1.

He intentado mostrando los resultados con un msgbox y efectivamente la consulta no toma el primer resultado, no se el porque de esto, por favor necesito su colaboración.

el código completo de la función seria así:

Código .NET:

'LIBRERIAS DE IMPORTACION DE ODBC PARA CONEXION DE BASE DE DATOS
Imports System.Data
Imports System.Data.Odbc
 
Public Class Form08_ConfigPistas
 
    Private Sub Form08_ConfigPistas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'FORMATO DEL LISTVIEW
        ListViewVariables.Clear()
        ListViewVariables.View = View.Details
        ListViewVariables.Columns.Add("Index", 50, HorizontalAlignment.Right)
        ListViewVariables.Columns.Add("Var PLC", 120, HorizontalAlignment.Left)
        ListViewVariables.Columns.Add("Var APP", 120, HorizontalAlignment.Left)
        ListViewVariables.Columns.Add("Tipo", 100, HorizontalAlignment.Left)
        ListViewVariables.Columns.Add("Comentario", 200, HorizontalAlignment.Left)
 
        Dim sql As String
 
        Try
 
            'SE BUSCA AL USUARIO EN EL SISTEMA
            sql = "SELECT * FROM registro_variables;"
 
            Dim comandoSQL As New OdbcCommand(sql, conexionBD)
            Dim resultadoSQL As OdbcDataReader = comandoSQL.ExecuteReader()
 
            If (resultadoSQL.Read) Then
                Dim i As Integer
                Dim aux As Integer
                i = 0
 
                While resultadoSQL.Read
                    ListViewVariables.Items.Add(resultadoSQL(0))
                    For aux = 1 To resultadoSQL.FieldCount - 1
                        ListViewVariables.Items(i).SubItems.Add(resultadoSQL(aux))
                        MsgBox(resultadoSQL(aux))
                    Next aux
                    i = i + 1
                End While
            Else
                MsgBox("no se encontraron resultados")
            End If
 
        Catch ex As OdbcException
 
            'SE MUESTRA ERROR DE CONEXION CON LA BASE DE DATOS
            MsgBox(ex.Message)
 
        End Try
    End Sub
End Class
 

[Altear]

Creo que la variable aux la deberías inicializar a 0 y no a 1

[khryztall]

La variable aux toma el valor de 1 ya que recorre el resultado del registro según los campos, de esta forma el primer elemento o sea el "0" (Cero) lo tomo para inicializar el ítem, y el for recorre el resto del registro añadiéndolos como subítem, por eso inicia en uno y no en cero.

Pero gracias por la respuesta.

[Altear]

Entonces es porque cada vez que se ejecuta la instruccion resultadoSQL.Read lee

Al ejecutarla primero en el if y luego en el while, te estas saltando el primer registro

[Malenko]

Iniciado por Altear

Entonces es porque cada vez que se ejecuta la instruccion resultadoSQL.Read lee

Al ejecutarla primero en el if y luego en el while, te estas saltando el primer registro

Efectivamente, cuando se ejecuta el Read se comprueba si hay registros y, si los hay, carga uno. Es por ello que la comprovación con Read se recomienda ponerla en un While

[khryztall]

Muchas gracias por las respuestas.

Edito:

Cambie el .read por .HasRows y asi determina si la consulta recibió algún parámetro con esto no toma como leído el primer resultado.