CICLOS NO ME FUNCIONAN
Publicado por jacqueline (1 intervención) el 04/11/2004 20:26:43
Quien me puede ayudar y decir por que este codigo solo me lee la primera fila de una tabla a la que consulto y no avanza a las demas hasta que encuentre lo que busca. Ya probe con el WHILE, DO WHILE, DO pero aun asi lee el primero. ayuda porfis
---
connection.Open()
Dim resultado As String
Dim lectura As MySqlDataReader
Dim LRegistro As New MySqlCommand("SELECT fecha_ini,fecha_fin,habit_rh FROM TMP_RESERVA_HABITACION WHERE habit_rh='" & aux_habit & "'", connection)
lectura = LRegistro.ExecuteReader(CommandBehavior.SequentialAccess)
If lectura.Read() = True Then
If lectura("fecha_ini") <= aux_inicio And lectura("fecha_fin") > aux_inicio Then
habitacion.BackColor = Color.Red
ElseIf lectura("fecha_fin") = aux_inicio Then
habitacion.BackColor = Color.Blue
Else
habitacion.BackColor = Color.Black
End If
End If
lectura.Close()
connection.Close()
----
---
connection.Open()
Dim resultado As String
Dim lectura As MySqlDataReader
Dim LRegistro As New MySqlCommand("SELECT fecha_ini,fecha_fin,habit_rh FROM TMP_RESERVA_HABITACION WHERE habit_rh='" & aux_habit & "'", connection)
lectura = LRegistro.ExecuteReader(CommandBehavior.SequentialAccess)
If lectura.Read() = True Then
If lectura("fecha_ini") <= aux_inicio And lectura("fecha_fin") > aux_inicio Then
habitacion.BackColor = Color.Red
ElseIf lectura("fecha_fin") = aux_inicio Then
habitacion.BackColor = Color.Blue
Else
habitacion.BackColor = Color.Black
End If
End If
lectura.Close()
connection.Close()
----
Valora esta pregunta
0
