no me funciona el IF para rows

[guillebomtrasmiti]

alguien me puede decir por que no me sale el mensaje de las rows cuando no hay?¿?


Dim lineasafectadas As OleDbDataReader
lineasafectadas = comacinco.ExecuteReader
If lineasafectadas.HasRows Then
Dim rows As Integer = 0
While lineasafectadas.Read()
rows += 1
End While
MsgBox(rows)
If rows = 0 Then
MessageBox.Show("cero")
Dim Lecto1 = comados.ExecuteNonQuery
Else
MessageBox.Show("hay")
End If
End If

[RootK]

Porque en tu primer IF

If lineasafectadas.HasRows Then

Estás contemplando toda tu lógica y obviamente si no hay rows obviamente nada de lo que está dentro del IF será validado, podrías quitar ese if y solamente hacerlo así:

Código:

        Dim rows As Integer = 0
        While lineasafectadas.Read()
            rows += 1
        End While
        MsgBox(rows)
        If rows = 0 Then
            MessageBox.Show("cero")
            Dim Lecto1 = comados.ExecuteNonQuery
        Else
            MessageBox.Show("hay")
        End If