Do while o do o
Publicado por Jacqueline (11 intervenciones) el 04/11/2004 13:27:20
Hola. este codigo solo me lee la primera fila de una tabla, como puedo hacer que recorra toda la tabla hasta encontar lo que busca, Gracias, intente con el DO y Con WHILE, pero aun asi solo lee la primera fila no se si lo are mal.
--
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 & "' order by fecha_ini", connection)
'Dim Registro As
lectura = LRegistro.ExecuteReader(CommandBehavior.SingleRow)
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
lectura.Close()
--
--
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 & "' order by fecha_ini", connection)
'Dim Registro As
lectura = LRegistro.ExecuteReader(CommandBehavior.SingleRow)
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
lectura.Close()
--
Valora esta pregunta


0