CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Instryccion While....

(1/2) > >>

Vortice:
Camaradas del Foro, saludos desde aca de Chile.....

Tengo una sentencia While que recorre toda una tabla hasta encontrar dos campos y despues asigna true a un valor, PERO, despues de entrar al IF q esta dentro del While sigue recorriendo la tabla y lo que yo quiero es que una vez que entre al IF y entrege el valor a esa variable se salga del While, es eso posible con alguna instruccion, trate asignandole false a la variabla condicion del While pero no me deja, Favor ayudarme, de antemano gracias, adjunto codigo. la parte en Negrita es donde ocurre lo anterior explicado.....

Public Sub ingreso()
        If chkDesarrollo.Checked Then
            strServidor = "SERVIDOR"
        Else
            strServidor = "SOPORTE"
        End If
        conectar_bd()
        Command = New SqlCommand("select * from Usuarios", Connection)
        Command.ExecuteNonQuery()
        leer = Command.ExecuteReader
        While leer.Read = True
            If usu.Text = leer.Item("nombre_usuario") AndAlso password.Text = leer.Item("password") Then
                segu = True
            End If
        End While        
        leer.Close()
        If segu = False Then
            MsgBox("el usuario no existe")
            usu.Text = ""
            password.Text = ""
            usu.Focus()
        Else
            Dim FormSolicitud As New Solicitud
            FormSolicitud.Show()
        End If
        Connection.Close()
    End Sub

spiderman160281:
sería bueno que intentaras con un break  :D  o si no en su defecto con un goto para que salga del while...

Vortice:
spider gracias pero como lo uso ¿?  :blink:

spiderman160281:
bueno prueba con el goto, funciona de la siguiente manera, bueno es según mis conocimientos jeje lo que se hace es crear una etiqueta dentro de tu código por eje tu etiqueta se puede llamar spider entonces de donde quieres que se salga o sea del if vas a poner goto spider así nada mas y hasta afuera del while vas a poner spider: asi nada más...

tu código quedaría así:
p.d esto permitira que a la hora que entre al if se salga del while que es lo que yo entendi que quiere mi estimado... B)  pruebalo y me comentas

Public Sub ingreso()
If chkDesarrollo.Checked Then
strServidor = "SERVIDOR"
Else
strServidor = "SOPORTE"
End If
conectar_bd()
Command = New SqlCommand("select * from Usuarios", Connection)
Command.ExecuteNonQuery()
leer = Command.ExecuteReader
While leer.Read = True
If usu.Text = leer.Item("nombre_usuario") AndAlso password.Text = leer.Item("password") Then
segu = True
GOTO SPIDER
End If
End While

SPIDER:
leer.Close()
If segu = False Then
MsgBox("el usuario no existe")
usu.Text = ""
password.Text = ""
usu.Focus()
Else
Dim FormSolicitud As New Solicitud
FormSolicitud.Show()
End If
Connection.Close()
End Sub

Vortice:
Spìder:

Gracias compadre resulto a la perfeccion, entro al if y salto desde ahi a la etiqueta, gracias Camarada.....

Navegación

[0] Índice de Mensajes

[#] Página Siguiente